OpenUdp

OpenUdp 用於使用 UDP 建立與遠端伺服器的連線。

語法

OpenUdp()

結果

Socket 物件。

範例

該指令碼與 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)

'^^^^^^^^^^

'該部分是要求的封包標頭，包括標誌等資訊

'^^^^^^^^^^

'這是要求本身 www.gfi.com，注意「.」顯示為 &H03 而不是 &H2E

'^^^^^^^^^^

'這是封包的結束標頭

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