Windows-operativsystemet indeholder en DLL-fil , du bruger i din Visual Basic-kode til at pinge en netværksserver. Ping procedure returnerer et svar , du kan bruge i koden til at identificere, hvis computeren er online og tilgængelige på nettet. Du skal medtage Windows DLL-fil i din egen VB kode -fil. Efter DLL er inkluderet, kan du pinge enhver computer på netværket. Instruktioner
1
Klik på Windows "Start" knappen , og vælg " Alle programmer". Klik på "Microsoft Visual Basic ", klik derefter " Visual Basic 6 ". Åbn din VB -projekt.
2
Dobbeltklik på filen på listen over kildekodefilerne til dit projekt. Filen åbnes i VB editor
3
Kopier og indsæt følgende kode til toppen af din fil til at omfatte Windows DLL i dit VB -projekt : .
Privat Erklær 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 skal kopieres i sin helhed , eller VB compiler returnerer en fejl . Koden omfatter " ICMP.DLL " funktion fra Windows-operativsystemet, pinger en computer fra skrivebordet
4
Føj følgende kode til at ping fjerncomputeren : .
Ring IcmpSendEcho ( hIcmp , ipadresse "ping " , Len (50 ), 0 , Besvar, Len (Svar ), 20 )
Erstat " ip " med IP-adressen for den eksterne computer.
< br > 5
Hent replay fra ping-kommandoen . Følgende kode afgør om ping var en succes : Hej
mypingresponse = Reply.Status