SendTo

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

構文

SendTo (ip, port, data, [SizeInBytes])

戻り値

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

詳しい情報

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

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

例

このスクリプトは IP 変数で指定される DNSホスト名の IP 番号への変換を可能にして他のドメイン関連の情報を提供する TCP/IP ネットワークによって使用されるデータベース。 サーバーと接続し、www.gfi.com へのクエリを実行してから結果を表示します。

Function Main

Dim SocketObject As Object

Dim ip As String

Dim port As String

Dim rawdata As Variant

Dim Response As Variant

Ip = "172.16.130.40"

ポート番号：= "53"

strRequest="www.gfi.com"

rawdata = Array(0,3,1,0,0,1,0,0,0,0,0,0,3, &H77, &H77, &H77, &H03, &H67, &H66, &H69, &H03, &H63, &H6F,&H6D, 0,0,1,0,1)

Set SocketObject = Socket.OpenUdp()

If Not SocketObject is Nothing Then

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

SocketObject.SendTo IP,port,rawdata

Response = SocketObject.Recv(1024)

For a = UBound(response)-3 To UBound(response)

echo(Response(a))

If a <> UBound(response) Then

echo(".")

End If

Nexta

SocketObject.Close

End If

End Function