发送

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

语法

Send (data, [SizeInBytes])

返回结果

发送字节的实际数量。

更多信息

Send 函数只能用于在 TCP 连接上打开的开放套接字对象。 要通过 UDP 连接发送数据，请参阅文档中的 SendTo 函数。

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

示例

该脚本显示在本地运行的 Web 服务器的原始 html 中的默认页面。 通过简单地更改变量“ip”的值，该脚本可用于任何 Web 服务器：

函数 Main

Dim SocketObject As Object

Dim ip As String

Dim port As String

Dim req As String

Dim strResponse As String

Ip = "172.16.130.112"

Port = "80"

req = "GET / HTTP/1.0"

'回车符和换行

cr = Chr(13) + Chr(10)

req = CStr(req +cr +cr)

Socket.SetTimeout 5000,5000

Set SocketObject = Socket.OpenTcp(Ip,Port)

'检查以确保对象成功返回

If Not SocketObject is Nothing Then

SocketObject.Send(CStr(req))

strResponse = SocketObject.Recv(1024)

While Len(CStr(strResponse)) <> 0

echo(strResponse)

StrResponse = SocketObject.Recv(1024)

Wend

echo(strResponse)

End If

End 函数