È possibile utilizzare la libreria di collegamento Windows ICMP ping di un indirizzo in Visual Basic 6 (VB6). La DLL è inclusa con il sistema operativo Windows per gestire le richieste di rete per TCP/IP, che è il protocollo utilizzato in reti interne e su Internet. È necessario includere la DLL nel codice VB6, il ping del server e assegnare i risultati a una stringa.

Istruzioni

1

Pulsante destro del mouse il file SLN contenente il VB6 e fare clic su "Apri con". Fare doppio clic il programma di "Visual Basic" visualizzato nell'elenco dei programmi.

2

Pulsante destro del mouse il modulo che si desidera utilizzare per eseguire il ping del server. Copiare e incollare il seguente link DLL per l'inizio del file di VB6:

Private Declare Function eco Lib "ICMP" () As Long

Private Declare Function WSAStartup Lib "WSOCK32. DLL"(ByVal wVersionRequired As Long, lpWSADATA come WSADATA) As Long

Questi due dll forniscono le funzioni per eseguire il ping e comunicare tramite il protocollo TCP/IP.

3

Ping del server. Il seguente codice pin il server:

Ping di funzione pubblico ("server", risposta come ICMP_ECHO_REPLY) As Long

Sostituire "server" con il nome o l'indirizzo IP del server. La riproduzione è memorizzata nella variabile "echo reply".

4

Stampare i risultati dal ping. Il codice seguente invia il risultato in una stringa e visualizza il risultato in una finestra di messaggio:

Dim ping As String

Ping = Reply.Status

MsgBox ping