PDA

View Full Version : [VBS/CMD] Come inviare una string ad un server TCP/IP?


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.