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