OpenTcp
OpenTcp se utiliza para establecer una conexión con un servidor remoto utilizando TCP.
Sintaxis
OpenTcp(ip, port)
Devolución
Objeto de socket.
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