Send

Send wird verwendet, um über eine TCP-Verbindung Daten an den gegenwärtig geöffneten Socket zu senden.

Syntax

Send (data, [SizeInBytes])

Rückgabewert

Die Anzahl der tatsächlich gesendeten Bytes.

Weitere Informationen

Die Funktion Send kann nur mit einem geöffneten Socket-Objekt verwendet werden, das durch Herstellen einer TCP-Verbindung geöffnet wurde. Informationen zum Senden von Daten über UDP-Verbindungen finden Sie im Abschnitt zur Funktion SendTo weiter unten in diesem Dokument.

Für die Funktion Send kann ein optionaler Parameter angegeben werden (SizeInBytes). Dieser Parameter legt fest, welcher Anteil des als Datenfeld übergebenen Puffers tatsächlich gesendet werden soll. Wenn dieser optionale Parameter nicht angegeben ist, wird die Größe automatisch berechnet.

Beispiel

Dieses Skript zeigt die Standardseite eines lokal ausgeführten Webservers in HTML-Rohform an. Das Skript kann an jeden beliebigen WebserverEin Server, der Client-Browsern mithilfe des HTTP-Protokolls Webseiten bereitstellt. angepasst werden, indem einfach der Wert der Variablen „ip“ entsprechend geändert wird:

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"

'Wagenrücklauf und Zeilenvorschub

cr = Chr(13) + Chr(10)

req = CStr(req +cr +cr)

Socket.SetTimeout 5000,5000

Set SocketObject = Socket.OpenTcp(Ip,Port)

'überprüfen, ob das Objekt erfolgreich zurückgegeben wurde

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