OpenUdp

OpenUdp viene utilizzato per stabilire una connessione con un server remoto utilizzando UDP.

Sintassi

OpenUdp()

Restituisce

Oggetto Socket.

Esempio

Lo script si connette con un server DNSUn database utilizzato dalle reti TCP/IP che consente la traduzione dei nomi host in numeri IP e di fornire altre informazioni relative al dominio., specificato dalla variabile IP ed esegue una query per www.gfi.com, quindi visualizza il risultato:

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)

'^^^^^^^^^^

'Questa parte è l’intestazione del pacchetto della nostra richiesta, include le informazioni come ad esempio i contrassegni

'^^^^^^^^^^

'Questa è la richiesta, www.gfi.com, tenere presente che '.' sono 'rappresentati come &H03 invece di &H2E

'^^^^^^^^^^

'Questa è l’intestazione End del nostro pacchetto

Set SocketObject = Socket.OpenUdp()

If Not SocketObject is Nothing Then

'controllo per vedere la restituzione completata di Object

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