傳送

Send 用於將資料透過 TCP 連線傳送到目前的開放通訊端。

語法

Send (資料, [SizeInBytes])

結果

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

詳細資訊

Send 函數只能用於在 TCP 連接上開啟的開放通訊端物件。 要透過 UDP 連接傳送資料，請參閱檔案中的 SendTo 函數。

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

範例

該指令碼顯示在本機執行的 Web 伺服器的原始 html 中的預設頁面。 透過簡單地變更變數「ip」的值，該指令碼可用於任何 Web 伺服器使用 HTTP通訊協定為用戶端瀏覽器提供 web 頁面的伺服器。：

Function 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 Function