SetTimeout
傳送/接收資料的預設逾時值為 2 秒。 SetTimeout 用於設定傳送和接收資料的不同逾時值。
語法
SetTimeout(SendTimeout, RecieveTimeout)
結果
未傳回資料。
詳細資訊
SetTimeout 需要在設定將用於傳送和接收的物件之前進行設定。 傳遞的逾時參數以毫秒為單位。 如果傳遞 -1 作為其中一個值，將使用目前設定的值。
範例
此指令碼顯示本機執行的 ftp 伺服器的橫幅。 透過變更變數「ip」的值可使用任何 ftp 伺服器：
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
'檢查以確保物件成功傳回
strResponse = SocketObject.Recv(1024)
echo(strResponse)
SocketObject.Close
End If
End Function