HOw to make this VBS script work in AutoIt

[hijolin]

host=inputbox("IP:")

port=inputbox("port:")

Set socket=WScript.CreateObject("MSWinsock.Winsock","winsock_")

socket.Protocol=0

socket.RemotePort=port

socket.RemoteHost=host

socket.connect

for a=1 to 30

WScript.sleep 10

next

msgbox("port "&socket.remoteport&" close!")

socket.close

WScript.quit

Sub winsock_connect()

msgbox("port "&socket.remoteport&" open!")

socket.close

WScript.quit

end sub

[nobbe]

hi

if noone helps you its because noone understood your question what you really want..

i can only guess too : try to search in forum for the tcpip codes of autoit..

[ChrisL]

I guess this is what it translates to, but I can't get it to do anything on my laptop

$host=inputbox("Enter IP","IP:")
$port=inputbox("EnterPort","port:")
Local  $socket=Objcreate("MSWinsock.Winsock","winsock_")
$socket.Protocol=0
$socket.RemotePort=$port
$socket.RemoteHost=$host
$socket.connect
for $a=1 to 30
sleep (10)
next
msgbox(0,"","port " & $socket.remoteport & " close!")
$socket.close
;WScript.quit


Func winsock_connect()
msgbox(0,"","port " & $socket.remoteport & " open!")
$socket.close
;WScript.quit
EndFunc