Send

Send は TCP 接続経由で現在の開いたソケットにデータを送信するために使用します。

構文

Send (data, [SizeInBytes])

戻り値

送信されたバイトの実際の量。

詳しい情報

Send 関数は、TCP 接続で開かれた、開いたソケット オブジェクトで使用できるだけです。 UDP 接続経由でデータを送信する詳細については、マニュアル内の SendTo 関数を参照してください。

Send 関数は、データ フィールドに渡されたバッファのどの程度が実際に送信されるのかを指定するオプションのパラメーター (SizeInBytes) を受け入れます。 このオプションのパラメーターが省略された場合は、サイズが自動的に計算されます。

例

このスクリプトはローカルに実行されている Web サーバーのロー html にあるデフォルト ページを表示します。 スクリプトは変数 "ip" の値を単純に変更するだけで Web サーバーで動作するようにできます。

Function Main

Dim SocketObject As Object

Dim ip As String

Dim port As String

Dim req As String

Dim strResponse As String

Ip = "172.16.130.112"

ポート番号：= "80"

req = "GET / HTTP/1.0"

'改行and line feed

cr = Chr(13) + Chr(10)

req = CStr(req +cr +cr)

Socket.SetTimeout 5000,5000

Set SocketObject = Socket.OpenTcp(Ip,Port)

' オブジェクトが正常終了したかどうかをチェック

If Not SocketObject is Nothing Then

SocketObject.Send(CStr(req))

strResponse = SocketObject.Recv(1024)

While Len(CStr(strResponse)) <> 0

echo(strResponse)

StrResponse = SocketObject.Recv(1024)

Wend

echo(strResponse)

End If

End Function