OpenTcp
OpenTcp は TCP を使ってリモート サーバーとの接続を確立するために使用します。
構文
OpenTcp(ip, port)
戻り値
ソケット オブジェクト。
例
このスクリプトは、ローカルに実行されている 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