OpenTcp
OpenTcp viene utilizzato per stabilire una connessione con un server remoto utilizzando TCP.
Sintassi
OpenTcp(ip, port)
Restituisce
Oggetto Socket.
Esempio
Lo script visualizza il banner di un server ftp in esecuzione locale. Può funzionare con qualsiasi server ftp modificando il valore della variabile "ip":
Function Main
Dim SocketObject As Object
Dim ip As String
Dim port As String
Dim strResponse As String
Ip = "127.0.0.1"
Port = "21"
Socket.SetTimeout 5000,5000
Set SocketObject = Socket.OpenTcp(Ip,Port)
If Not SocketObject is Nothing Then
'controllo per vedere la restituzione completata di Object
strResponse = SocketObject.Recv(1024)
echo(strResponse)
SocketObject.Close
End If
End Function