Operativsystemet Windows inneholder en DLL-fil du bruker i din Visual Basic-kode for å pinge en nettverksserver. Ping prosedyren returnerer et svar du kan bruke i koden for å finne ut om datamaskinen er tilkoblet og tilgjengelig på nettverket. Du må inkludere Windows DLL -filen i din egen VB kode fil. Etter at DLL er inkludert , kan du pinge hvilken som helst datamaskin på nettverket. Instruksjoner
en

Klikk på Windows "Start "-knappen og velg " Alle programmer". Klikk på " Microsoft Visual Basic ," klikk " Visual Basic 6 . " Åpne din VB prosjektet .
2

Dobbeltklikk på filen i listen over filene med kildekoden for prosjektet . Filen åpnes i VB editor
3

Kopier og lim inn følgende kode til toppen av filen for å inkludere Windows DLL i VB prosjektet : .

Privat erklærer Funksjon IcmpSendEcho Lib " icmp.dll " _

( ByVal IcmpHandle Som Long , _

ByVal DestinationAddress Som Long , _

ByVal RequestData As String , _

ByVal RequestSize Som Long , _

ByVal RequestOptions så lang, _

ReplyBuffer Som ICMP_ECHO_REPLY , _

ByVal ReplySize Som Long , _

ByVal Timeout Som Long) As Long

koden må kopieres i sin helhet , eller VB kompilatoren returnerer en feil . Koden inneholder " ICMP.DLL "-funksjonen fra Windows operativsystemet som ping en datamaskin fra skrivebordet
4

Legg til følgende kode for å pinge den eksterne datamaskinen : .

Ring IcmpSendEcho ( hIcmp , ipadresse , "ping " , Len ( 50 ) , 0 , Svar , Len ( Svar ) , 20 )

Erstatt " ip-adresse " med IP-adressen til den eksterne datamaskinen .

5

Hent reprisen fra ping-kommandoen . Følgende kode bestemmer om ping var vellykket : en

mypingresponse = Reply.Status