Hvordan lage en Ping Fra Visual Basic
Windows-operativsystemet inneholder en DLL-fil som du bruker i din Visual Basic-kode for å pinge en nettverksserver. Ping prosedyren returnerer et svar du kan bruke i koden for å finne ut om datamaskinen er tilkoblet og tilgjengelig på nettverket. Du må inkludere Windows DLL-filen i din egen VB kode fil. Etter at DLL er inkludert, kan du pinge hvilken som helst datamaskin på nettverket.
Bruksanvisning
1 Klikk på Windows "Start" -knappen og velg "Alle programmer." Klikk "Microsoft Visual Basic", deretter "Visual Basic 6." Åpne VB prosjektet.
2 Dobbeltklikk på filen i listen over kildekodefiler for prosjektet. Filen åpnes i VB editor.
3 Kopier og lim inn følgende kode til toppen av filen for å inkludere Windows DLL i VB prosjektet:
Private Declare Function IcmpSendEcho Lib "icmp.dll" _
(ByVal IcmpHandle As Long, _
ByVal DestinationAddress As Long, _
ByVal RequestData As String, _
ByVal RequestSize Som Long, _
ByVal RequestOptions As Long, _
ReplyBuffer Som ICMP_ECHO_REPLY, _
ByVal ReplySize Som Long, _
ByVal Timeout As Long) As Long
Koden må kopieres i sin helhet, eller VB kompilatoren returnerer en feil. Koden inneholder "ICMP.DLL" -funksjonen fra operativsystemet Windows som ping en datamaskin fra skrivebordet.
4 Legg til følgende kode for å pinge den eksterne datamaskinen:
Ring IcmpSendEcho (hIcmp, IPadresse, "ping", Len (50), 0, Svar, Len (Svar), 20)
Erstatt "IPadresse" med IP-adressen til den eksterne datamaskinen.
5 Hent reprisen fra ping-kommandoen. Følgende kode bestemmer om ping var vellykket:
mypingresponse = Reply.Status