È possibile utilizzare la libreria di collegamento di Windows ICMP per il ping di un indirizzo in Visual Basic 6 (VB6). La DLL viene fornito 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 al server e assegnare i risultati ad una stringa.

istruzione

1 Fare clic 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 al server. Copia e incolla il seguente link DLL alla parte superiore del file 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

Queste due DLL forniscono le funzioni di Ping e comunicare attraverso il protocollo TCP / IP.

3 Ping il server. Il seguente codice pin del server:

ping Funzione pubblica ( "server", risponderemo al più ICMP_ECHO_REPLY) As Long

Sostituire "server" con il nome o l'indirizzo IP del server. Il replay viene memorizzato nella variabile "echo reply".

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

ping Dim As String

ping = Reply.Status

MsgBox ping