Close
Close 用于释放之前分配的套接字对象。
语法
Close
返回结果
不返回数据。
示例
此脚本显示本地运行的 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 函数