SendTo

SendTo 用于将数据通过 UDP 连接发送到当前的开放套接字。

语法

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

返回结果

发送的字节的实际数量。

更多信息

SendTo 函数只能与在 UDP 连接中打开的开放套接字对象配合使用，为能够通过 TCP 连接发送数据，请检查文档中的 Send 函数。

SendTo 函数接受可选参数 (SizeInBytes)，该参数指定了发送的传递给数据字段的缓冲区的实际数量。 如果忽略此可选参数，则自动计算大小。

示例

该脚本与 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)

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 函数