SendTo

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

Syntax

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

Rückgabewert

Die Anzahl der tatsächlich gesendeten Bytes.

Weitere Informationen

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

Für die Funktion SendTo 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 stellt eine Verbindung zu einem in der Variable IP angegebenen DNSEine in TCP/IP-basierten Netzwerken verwendete Datenbank, mit der sich Hostnamen in IP-Adressen übersetzen und andere Domänen-bezogene Informationen bereitstellen lassen.-Server her, führt eine Abfrage nach www.gfi.com durch und zeigt anschließend das Ergebnis an:

Function 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

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

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

Next a

SocketObject.Close

End If

End Function