Operativsystemet Windows innehåller en DLL fil som du använder i ditt Visual Basic-kod för att pinga en nätverksserver . Den ping Förfarandet returnerar ett svar du kan använda i koden för att identifiera om datorn är online och tillgänglig på nätet . Du måste inkludera Windows DLL -filen i din egen VB -kod fil . Efter DLL ingår , kan du pinga alla datorer i nätverket . Instruktioner
1
Klicka på Windows " Start " -knappen , och välj " Alla program ". Klicka på " Microsoft Visual Basic , " klicka sedan på " Visual Basic 6 . " Öppna din VB -projektet .
2
Dubbelklicka på filen i listan över filer källkoden för ditt projekt . Filen öppnas i din VB editor
3
Kopiera och klistra in följande kod till toppen av din fil för att inkludera Windows DLL i ditt VB -projektet : .
Privat deklarera Funktion IcmpSendEcho Lib " icmp.dll " _
( ByVal IcmpHandle As Long , _
ByVal DestinationAddress As Long , _
ByVal RequestData As String , _
ByVal RequestSize As Long , _
ByVal RequestOptions så länge , _
ReplyBuffer Som ICMP_ECHO_REPLY , _
ByVal ReplySize As Long , _
ByVal Timeout As Long ) As Long
koden måste kopieras i sin helhet , eller VB kompilatorn returnerar ett fel . Koden omfattar " ICMP.DLL " funktion från Windows -operativsystemet som pingar en dator från skrivbordet
4
Lägg till följande kod för att pinga fjärrdatorn : .
Call IcmpSendEcho ( hIcmp , IPadress , " ping " , Len ( 50 ) , 0 , Svara , Len ( Svara ) , 20 ) katalog
Ersätt " IPadress " med IP-adressen för fjärrdatorn .
5
Hämta reprisen från kommandot ping . Följande kod bestämmer om ping lyckades :
mypingresponse = Reply.Status