MyStrom Switch

myStrom Switch
 
https://mystrom.ch/wifi-switch-ch/
Product page

https://api.mystrom.ch/
Restful API documentation

<ip> Your local myStrom IP address
Results
http://<ip>/ Home page - for configuration

http://<ip>/report
Returns JSON page
https://api.mystrom.ch/
http://<ip>/api/v1/settings Current status
{"rest":true,"panel":true,"name":"","temp_offset":0}
http://<ip>/relay?state=1 Turn On

http://<ip>/relay?state=0 Turn Off







VB example
 JSON = urlLaunch("http://<ip>/report")
Get the JSON status result or blank if offline
VB6 routine
(requires
Microsoftl XML, v5.0 reference )
Private Function urlLaunch(ByVal URL As String) As String
Dim Ans As String
Dim oHTTP As MSXML2.XMLHTTP, sBuffer As String
   
    ModuleName = "urlLaunch"
    On Error GoTo HandleError
   
100    Set oHTTP = CreateObject("MSXML2.ServerXMLHTTP")
105    oHTTP.setTimeouts 3500, 3500, 3500, 3500
110    oHTTP.open "GET", URL, False
120    oHTTP.send
130    sBuffer = oHTTP.responseText
140    Set oHTTP = Nothing
150    urlLaunch = sBuffer

HandleExit:
    Exit Function

HandleError:
    urlLaunch = ""
    Set oHTTP = Nothing
    On Error GoTo 0
   
End Function

VB6 convert JSON result to readable
Function JSONFormat(JSON As String) As String

    y = Replace(JSON, vbTab, "")
    y = Replace(y, vbLf, "")
    y = Replace(y, "{", "{" & vbCrLf)
    y = Replace(y, "}", vbCrLf & "}")
    y = Replace(y, ",", vbCrLf)
   
    JSONFormat = y
  
End Function
Download Windows JSON.exe Converter tool

Download Windows JSON.zip Converter tool