Du kan bruge Windows ICMP link library at pinge en adresse i Visual Basic 6 ( VB6 ) . Den DLL er inkluderet i Windows-operativsystemet til at håndtere networking anmodninger om TCP /IP, som er det , der bruges på interne netværk og på internettet . Du skal medtage DLL i din VB6 kode , serveren ping og tildele resultaterne til en streng. Instruktioner
1

Højreklik på SLN fil, der indeholder din VB6 og klik på " Åbn med ". Dobbeltklik på "Visual Basic "-programmet vises i listen over programmer .
2

Højreklik på den formular, du vil bruge til at pinge serveren. Kopier og indsæt følgende DLL link til toppen af ​​din VB6 fil : Hej

Private Erklær Funktion IcmpCreateFile Lib " icmp.dll " ( ) As Long

Private Erklær Funktion WSAStartup Lib " WSOCK32.DLL "( ByVal wVersionRequired As Long , lpWSADATA Som WSADATA ) As Long

Disse to DLL giver de funktioner at ping og kommunikere over TCP /IP-protokollen.
3

Ping serveren . Følgende kode pins serveren : Hej

Public Function ping ( "server " , Svar Som ICMP_ECHO_REPLY ), så længe

Erstat "server " med navnet eller IP- adressen på den server . Den replay er gemt i " ekkosvar " variable .
4

Print ud resultaterne fra ping . Følgende kode sender resultatet til en streng og viser resultatet i en meddelelsesboks : Hej

Dim ping As String

ping = Reply.Status

MsgBox ping