OpenUdp
OpenUdp 用于使用 UDP 建立与远程服务器的连接。
语法
OpenUdp()
返回结果
Socket 对象。
示例
该脚本与 IP 变量指定的 DNSTCP/IP 网络使用的数据库,可以将主机名转换为 IP 号并提供其他域相关的信息。 服务器相连接,并对 www.gfi.com 运行查询,然后显示结果:
函数 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
下一个
SocketObject.Close
End If
End 函数