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

destro del mouse sul file SLN che contiene il VB6 e fare clic su " Apri con ". Fare doppio clic sul programma " Visual Basic " visualizzato nella lista dei programmi .

2 Fare clic con il modulo che si desidera utilizzare per eseguire il ping del server. Copia e incolla il seguente link DLL per la parte superiore del file di VB6 :

Private Declare Function IcmpCreateFile Lib " icmp.dll " ( ) As Long

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

Questi due DLL forniscono le funzioni di ping e di comunicare attraverso il protocollo TCP /IP .
3

Ping il server . Il seguente codice pin il server:

Public Function ping ( "server" , Reply Come ICMP_ECHO_REPLY ) As Long

sostituire " server" con il nome o l'indirizzo IP del server . La riproduzione viene memorizzato nella variabile "echo reply" .
4

stampare i risultati del 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 Commercio