OpenTcp
OpenTcp 用于使用 TCP 建立与远程服务器的连接。
语法
OpenTcp(ip, port)
返回结果
Socket 对象。
示例
此脚本显示本地运行的 ftp 服务器的横幅。 通过更改变量“ip”的值可使用任何 ftp 服务器：
函数 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
'检查以确保对象成功返回
strResponse = SocketObject.Recv(1024)
echo(strResponse)
SocketObject.Close
结束条件
End 函数