SetTimeout
データ送受信のデフォルト タイムアウトは 2 秒です。 SetTimeout はデータの送信と受信の両方に異なるタイムアウトを設定するために使用します。
構文
SetTimeout(SendTimeout, ReceiveTimeout)
戻り値
戻されるデータはありません。
詳しい情報
SetTimeout は、送信と受信に使用されるオブジェクトを設定する前に設定する必要があります。 タイムアウト用に渡されたパラメーターはミリ秒単位になります。 -1 が値の 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