SetTimeout
Il timeout predefinito per l’invio/la ricezione dei dati è 2 secondi. SetTimeout viene utilizzato per impostare un timeout diverso sia per inviare che per ricevere i dati.
Sintassi
SetTimeout(SendTimeout, RecieveTimeout)
Restituisce
Nessun dato restituito.
Ulteriori informazioni
SetTimeout deve essere impostato prima di impostare l’oggetto che verrà utilizzato per l’invio e la ricezione. I parametri passati per i timeout sono espressi in millisecondi. Se viene passato -1 come un valore, verrà utilizzato il valore impostato correntemente.
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