OpenUdp

OpenUdp wird verwendet, um eine Verbindung zu einem entfernten Server über UDP herzustellen.

Syntax

OpenUdp()

Rückgabewert

Socket-Objekt.

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)

'^^^^^^^^^^

'Dieser Teil ist der Paketheader unserer Anfrage, er enthält Daten wie zum Beispiel Flags

'^^^^^^^^^^

‚Dies ist die Anfrage selbst, www.gfi.com, beachten Sie, dass '.' nicht durch &H2E, sondern durch &H03 dargestellt werden

'^^^^^^^^^^

'Dies ist der Endheader unseres Pakets

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