Beiträge von Gerhard_Unger

Sub TestSensoren()
    Dim jsonStr100 As String
    Dim jsonStr101 As String
    Dim jsonObj100 As Object
    Dim jsonObj101 As Object
    Dim tC100 As Double
    Dim tC101 As Double
    
    jsonStr100 = GetHTTP("http://192.168.0.243/rpc/Temperature.GetStatus?id=100")
    jsonStr101 = GetHTTP("http://192.168.0.243/rpc/Temperature.GetStatus?id=101")
    
    ' JSON parsen
    Set jsonObj100 = ParseJson(jsonStr100)
    tC100 = jsonObj100("tC")
    Set jsonObj101 = ParseJson(jsonStr101)
    tC101 = jsonObj101("tC")
    
    MsgBox "Sensor 100: tC = " & tC100 & "°C" & vbNewLine & "Sensor 101: tC = " & tC101 & "°C"
    
End Sub

'--------------------------------------------------
' HTTP GET-Funktion
'--------------------------------------------------
Public Function GetHTTP(url As String) As String
    Dim Http As Object
    Set Http = CreateObject("MSXML2.XMLHTTP")
    Http.Open "GET", url, False
    Http.Send
    GetHTTP = Http.ResponseText
End Function