Krakatoa
15-02-2011, 11:50
Salve a tutti.
Magari faccio una domanda stupida o fuori luogo, ma non riesco ad orientarmi.
Sto facendo un piccolo programma in Visula Basic Script .VBS
tale per cui invia una stringa ad un server TCP/IP in ascolto sulla porta 8765,
precisamente WinLirc.
Finora sono arrivato a questo:
codice = InputBox("Valore da inviare","INVIA CODICE A WINLIRC", codice)
If codice = 0 Then exit do
Command = ("password remote1 " & codice & " " & vbLf)
Set objHttp = WScript.CreateObject("WinHttp.WinHttpRequest.5.1")
objHttp.Option(4) = 256 + 512 + 4096 + 8192
objHttp.SetTimeouts 0, 5000, 10000, 10000
objHttp.Open "GET","http://127.0.0.1:8765", FALSE
objHttp.Send command
objHttp.Close
MsgBox("Codice: " & codice)
Ma non ottengo molto, solo un messaggio
Riga x (objHttp.Send command)
The server returned an invalid or unrecognized response
WinHttp.WinHttpRequest
Le righe objHttp e simili le ho prese in rete,
da questo (http://www.wut.de/e-5763w-36-apit-000.php) esempio.
Qualcuno puņ indicarmi cosa sbaglio e/o come procedere?
Grazie
K.
Magari faccio una domanda stupida o fuori luogo, ma non riesco ad orientarmi.
Sto facendo un piccolo programma in Visula Basic Script .VBS
tale per cui invia una stringa ad un server TCP/IP in ascolto sulla porta 8765,
precisamente WinLirc.
Finora sono arrivato a questo:
codice = InputBox("Valore da inviare","INVIA CODICE A WINLIRC", codice)
If codice = 0 Then exit do
Command = ("password remote1 " & codice & " " & vbLf)
Set objHttp = WScript.CreateObject("WinHttp.WinHttpRequest.5.1")
objHttp.Option(4) = 256 + 512 + 4096 + 8192
objHttp.SetTimeouts 0, 5000, 10000, 10000
objHttp.Open "GET","http://127.0.0.1:8765", FALSE
objHttp.Send command
objHttp.Close
MsgBox("Codice: " & codice)
Ma non ottengo molto, solo un messaggio
Riga x (objHttp.Send command)
The server returned an invalid or unrecognized response
WinHttp.WinHttpRequest
Le righe objHttp e simili le ho prese in rete,
da questo (http://www.wut.de/e-5763w-36-apit-000.php) esempio.
Qualcuno puņ indicarmi cosa sbaglio e/o come procedere?
Grazie
K.