U kunt de Windows ICMP link library gebruiken om een adres te pingen in Visual Basic 6 ( VB6 ) . De DLL wordt meegeleverd met het Windows-besturingssysteem voor netwerken aanvragen voor TCP /IP , dat is het protocol dat wordt gebruikt in de interne netwerken en op het internet af te handelen. U moet de DLL in uw VB6 code , ping de server en de resultaten toe te wijzen aan een string . Instructies
1 Rechtsklik op het SLN bestand dat je VB6 bevat en klik op ' Openen met . " Dubbelklik op de " Visual Basic " -programma wordt weergegeven in de lijst met programma's . Kopen van 2 rechtermuisknop op het formulier dat u wilt gebruiken om de server te pingen . Kopieer en plak de volgende DLL link naar de top van uw VB6 bestand :
Private Declare Function IcmpCreateFile Lib " icmp.dll " ( ) As Long Private Declare Function WSAStartup Lib
" WSOCK32.DLL " ( ByVal wVersionRequired zoals lang, lpWSADATA Als WSADATA ) As Long
Deze twee DLL's geven de functies te pingen en communiceren via het TCP /IP-protocol .
Ping 3 de server . De volgende code pinnen de server : Overheidsfunctie ping
( " server" , Antwoord Zoals ICMP_ECHO_REPLY ) As Long
Vervang " server " de naam of het IP-adres van de server . De replay wordt opgeslagen in de variabele " echo reply " .
4 Print uit de resultaten van de ping . De volgende code stuurt het resultaat naar een string en toont het resultaat in een message box : Dim ping
als Koord ping
= Reply.Status
MsgBox ping
|
