Du kan bruke Windows ICMP link library å pinge en adresse i Visual Basic 6 ( VB6 ) . DLL-filen er inkludert med Windows -operativsystem til å håndtere nettverk forespørsler om TCP /IP , som er protokollen som brukes i interne nettverk og på Internett . Du må ta med DLL i VB6 kode , pinge server og tilordne resultatene til en streng. Instruksjoner
en

Høyreklikk SLN -fil som inneholder VB6 og klikk " Åpne med ". Dobbeltklikk på " Visual Basic "-programmet vises i listen over programmer.
2

Høyreklikk skjemaet du vil bruke til å pinge serveren. Kopier og lim inn følgende DLL kobling til toppen av VB6 fil : en

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

Private Declare Function WSAStartup Lib " wsock32.dll " ( ByVal wVersionRequired Som Long , lpWSADATA Som WSADATA ) Som Long

Disse to DLL-filer gir funksjonene til ping og kommunisere over TCP /IP -protokollen.
3

Ping serveren. Følgende kodenåler serveren : en

Public Function ping ( "server" , svara då ICMP_ECHO_REPLY ), så lenge

Erstatt "server " med navnet eller IP -adressen til serveren . Reprisen er lagret i "echo reply " variable .
4

Print ut resultatene fra ping . Følgende kode sender resultatet til en streng og viser resultatet i en meldingsboks : en

Dim ping As String

ping = Reply.Status

MsgBox ping