SendTo

SendTo 用於將資料透過 UDP 連接傳送到目前的開放通訊端。

語法

SendTo (ip, 連接埠, 數據, [SizeInBytes])

結果

傳送的位元組的實際數量。

詳細資訊

SendTo 函數只能與在 UDP 連接中開啟的開放通訊端物件配合使用，為了能透過 TCP 連接傳送資料，請檢查檔案中的 Send 函數。

SendTo 函數接受可選參數（SizeInBytes），該參數指定了傳送的傳遞給資料欄位的緩衝區的實際數量。 如果忽略此選用參數，則會自動計算大小。

範例

該指令碼與 IP 變數指定的 DNSTCP/IP 網路使用的資料庫，可以將主機名稱轉換為 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"

Port = "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

Next a

SocketObject.Close

End If

End Function