Hvordan pinge en server fra VB6

Du kan bruke Windows ICMP link library å pinge en adresse i Visual Basic 6 (VB6). DLL følger med Windows-operativsystemet til å håndtere nettverk forespørsler om TCP / IP, som er den protokollen som brukes i interne nettverk og på Internett. Du må ta med DLL i VB6 kode, pinge serveren og tildele resultatene til en streng.

Bruksanvisning

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

2 Høyreklikk skjemaet du vil bruke til å pinge serveren. Kopier og lim inn følgende DLL lenke til toppen av VB6 filen:

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

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

Disse to DLLs dekker de funksjoner å pinge og kommunisere over TCP / IP-protokollen.

3 Ping serveren. Følgende kode pins serveren:

Public Function ping ( "server", Svar As ICMP_ECHO_REPLY) As Long

Erstatt "server" med navnet eller IP-adressen til serveren. Replayen er lagret i "ekko svar" variable.

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

Dim ping As String

ping = Reply.Status

MsgBox ping