SetTimeout
El tiempo de espera predeterminado para enviar o recibir datos es de 2 segundos. SetTimeout se utiliza para determinar un tiempo de espera diferente para enviar y recibir datos.
Sintaxis
SetTimeout(SendTimeout, RecieveTimeout)
Devolución
No se devuelven datos.
Más información
SetTimeout se debe determinar antes de determinar el objeto que se utilizará para el envío y la recepción. Los parámetros transmitidos para los tiempos de espera se encuentran en milisegundos. Si -1 se transmite como uno de los valores, se utilizará el valor determinado actualmente.
Ejemplo
Este script muestra el rótulo de un servidor FTPProtocolo que se utiliza para transferir archivos entre equipos de redes. que funciona a nivel local. Puede funcionar con cualquier servidor FTP cambiando el valor de la variable “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,Puerto)
If Not SocketObject is Nothing Then
'verificar que el objeto se haya devuelto con éxito
strResponse = SocketObject.Recv(1024)
echo(strResponse)
SocketObject.Close
End If
End Function