Hallo zusammen,
ich möchte per VB6-Code die aktuellen Verbrauchswerte meiner Solar-Log 300 auslesen um diese zu visualisieren.
Hab schon einiges im Internet drüber gelesen, bin aber noch nicht bei einer funktionierenden Lösung.
Habe folgenden VB-Code getestet, läuft aber noch nicht richtig.
Bin mir auch nicht ganz sicher ob vor einem GET ein POST Request gesendet werden muss. Beide Varianten funktionieren nicht.
Vielleicht kann mir jemand einen Tipp geben oder hat sogar noch VB6 und eine Solar-Log zum Testen.
Danke schon mal im Voraus!
Code
Private Sub CB_SolarLog2_Click()
' Code für Webservice-Aufrufe über GET und POST
Dim XMLHttp As Object
Dim strURL As String, strMethod As String, strUser As String
Dim strPassword As String
Dim bolAsync As Boolean
Dim varMessage
' Microsoft XML HTTP Objekt erzeugen
Set XMLHttp = CreateObject("MSXML2.XMLHTTP")
' -------------- POST-Request, der xml liefert -------------
' Parameter für einen simplen POST-Request ohne Authentifizierung füllen
strMethod = "POST"
strURL = "http://192.168.1.26/getjp {„801“:{„170“:null}}"
bolAsync = False
strUser = ""
strPassword = ""
'varMessage = "CountryCode=DE"
varMessage = ""
MsgBox "POST-Request, der XML liefert"
' Request absetzen
'Call XMLHttp.Open(strMethod, strURL, bolAsync, strUser, strPassword)
'Call XMLHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
'Call XMLHttp.send(varMessage)
' Rückgabewerte ausgeben
'MsgBox "Status: " & XMLHttp.Status
'MsgBox "responseText: " & XMLHttp.responseText
'MsgBox "reponseXML: " & XMLHttp.responseXML.Text
' ---------------- GET-Request, der json liefert ----------------
' Parameter für einen simplen GET-Request ohne Authentifizierung füllen
strMethod = "GET"
strURL = "http://192.168.1.26/getjp {„801“:{„170“:null}}"
bolAsync = False
strUser = ""
strPassword = ""
varMessage = ""
MsgBox "GET-Request, der JSON liefert"
' Request absetzen
Call XMLHttp.Open(strMethod, strURL, bolAsync, strUser, strPassword)
Call XMLHttp.send(varMessage)
' Rückgabewerte ausgeben
MsgBox "Status: " & XMLHttp.Status
MsgBox "responseText: " & XMLHttp.responseText
MsgBox "reponseXML: " & XMLHttp.responseXML.Text
End Sub
