emilio20
Level-1
- Beiträge
- 835
- Reaktionspunkte
- 20
-> Hier kostenlos registrieren
Hallo
ich möchte einen Yamaha AV Receiver mit VBS steuern. Ich habe einen Autoit Code der mit WinHTTP Funktioniert. Nun möchte ich diesen in VBS umwandeln.
Hier mal der Autoit Code
Mein bisheriger VBS Code funktioniert noch nicht
Es liegt noch ein Fehler in postDaten "PUT" vor die Anführungszeichen habe ich schon mal entfern aber dies funktioniert auch nicht.
ich möchte einen Yamaha AV Receiver mit VBS steuern. Ich habe einen Autoit Code der mit WinHTTP Funktioniert. Nun möchte ich diesen in VBS umwandeln.
Hier mal der Autoit Code
Code:
#include <WinHTTP.au3>
Global $port=80
Global $ip="192.168.178.46"
Global $response=""
Global $PostDaten='<YAMAHA_AV cmd="PUT"><System><Power_Control><Power>On</Power></Power_Control></System></YAMAHA_AV>'
$hOpen = _WinHttpOpen()
$hConnect = _WinHttpConnect($hOpen, $ip, $port)
$hRequest = _WinHttpOpenRequest($hConnect, "POST", "/YamahaRemoteControl/ctrl")
_WinHttpSendRequest($hRequest, 'Content-type: text/xml'&@CRLF, $PostDaten)
_WinHttpReceiveResponse($hRequest)
_WinHttpCloseHandle($hRequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)
exit
Mein bisheriger VBS Code funktioniert noch nicht
Code:
Yamaha()
Sub Yamaha()
Dim result
Dim URL , postData
Dim winHttpReq
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://192.168.178.46:80/YamahaRemoteControl/ctrl"
postDaten="<YAMAHA_AV cmd="PUT"><System><Power_Control><Power>On</Power></Power_Control></System></YAMAHA_AV>"
winHttpReq.Open "POST", URL, false
winHttpReq.SetRequestHeader "Content-type","text/xml"
winHttpReq.Send postDaten
End Sub
Es liegt noch ein Fehler in postDaten "PUT" vor die Anführungszeichen habe ich schon mal entfern aber dies funktioniert auch nicht.