OpenTcp
OpenTcp é usado para estabelecer uma conexão com um servidor remoto usando TCP.
Sintaxe
OpenTcp(ip, port)
Retorno
Objeto de soquete.
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