|
Also habe das mal geändert und auch noch den registers fehler rausgemacht
aber tut sich nicht auf der plattform..es wird nichts neues angelegt
..ich bin mir auch nicht sicher ob der http request Post richtig von der syntax ist--also die user header url das passt schon aber bei
aber wir die daten eingefügt werden bin ich mir nicht so sicher
kann man da irgend wie eine print ausgabe machen..um zu sehen was der server antwortet?
Private Sub CommandButton2_Click()
Dim Name As String
Dim Number As String
Dim result As String
Dim myURL As String, postData As String
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
myURL = "https://pstest.cumulocity.com/inventory/managedObjects"
Name = Andi
Number = 12
registers = "{'name': Name, 'number': '&Number &'}"
deviceType = "{ 'name': 'File1', 'type': 'c8y_ModbusDeviceType', 'c8y_Coils': coils, 'c8y_Registers': registers }"
Data = deviceType
WinHttpReq.Open "POST", myURL, False
WinHttpReq.SetRequestHeader "Content-Type", "application/vnd.com.nsn.cumulocity.managedObject+json"
WinHttpReq.SetCredentials "dominik.schreiber@pssystec-gmbh.de", "12er!tz", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
WinHttpReq.send (Data)
result = WinHttpReq.responseText
End Sub
|