SetTimeout
Der Standardwert für die Zeitüberschreitung beim Senden bzw. Empfangen von Daten beträgt 2 Sekunden. Mithilfe von SetTimeout kann ein anderer Wert für die Zeitüberschreitung festgelegt werden. Der Wert gilt sowohl für das Senden als auch für das Empfangen von Daten.
Syntax
SetTimeout(SendTimeout, RecieveTimeout)
Rückgabewert
Keine Rückgabedaten.
Weitere Informationen
Der Wert für SetTimeout muss festgelegt werden, bevor das Objekt erstellt wird, das zum Senden und Empfangen verwendet wird. Der Parameter für die Zeitüberschreitung wird in Millisekunden übergeben. Wenn der Wert -1 übergeben wird, wird der gegenwärtig eingestellte Wert für die Zeitüberschreitung verwendet.
Beispiel
Dieses Skript zeigt das Banner eines FTPEin Protokoll, das zur Übertragung von Dateien zwischen Netzwerkcomputern verwendet wird.-Servers, der lokal ausgeführt wird. Durch Einsetzen eines anderen Wertes für die Variable „ip“ funktioniert es mit jedem beliebigen FTP-Server:
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
'überprüfen, ob das Objekt erfolgreich zurückgegeben wurde
strResponse = SocketObject.Recv(1024)
echo(strResponse)
SocketObject.Close
End If
End Function