SetTimeout
发送/接收数据的默认超时值为 2 秒。 SetTimeout 用于设置发送和接收数据的不同超时值。
语法
SetTimeout(SendTimeout, RecieveTimeout)
返回结果
不返回数据。
更多信息
SetTimeout 需要在设置将用于发送和接收的对象之前进行设置。 传递的超时参数以毫秒为单位。 如果传递 -1 作为其中一个值，将使用当前设置的值。
示例
此脚本显示本地运行的 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 函数