OpenTcp
OpenTcp wird verwendet, um eine Verbindung zu einem entfernten Server über TCP herzustellen.
Syntax
OpenTcp(ip, port)
Rückgabewert
Socket-Objekt.
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