SetTimeout
O tempo limite padrão para enviar/receber dados é de 2 segundos. SetTimeout é usada para definir um tempo limite diferente tanto para enviar quanto para receber dados.
Sintaxe
SetTimeout(SendTimeout, RecieveTimeout)
Retorno
Nenhum dado retornado.
Mais informações
SetTimeout precisa ser definida antes de configurar o objeto que será usado para enviar e receber. Os parâmetros informados para o tempo limite devem estar em milissegundos. Se -1 for informado como um dos valores, o valor atual continuará a ser usado.
Exemplo
Este script mostra o banner de um servidor FTPProtocolo usado para transferir arquivos entre computadores da rede. cuja execução seja local. Ele pode funcionar em qualquer servidor FTP alterando o valor da variável “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
'verifica se o Objeto retornou com sucesso
strResponse = SocketObject.Recv(1024)
echo(strResponse)
SocketObject.Close
End If
End Function