Het Windows-besturingssysteem een DLL- bestand dat u in uw Visual Basic-code gebruiken om een netwerk server pingen bevat . De ping- procedure geeft een reactie die je kunt gebruiken in de code te identificeren als de computer online is en beschikbaar op het netwerk . U moet de Windows DLL -bestand in je eigen code VB -bestand . Nadat de DLL is opgenomen , kunt u elke computer op het netwerk pingelen . Instructies
1 Klik op de knop Windows "Start " en selecteer " Alle programma's . " Klik op " Microsoft Visual Basic , " en klik op ' Visual Basic 6 . " Open uw VB project . Kopen van 2 Dubbelklik op het bestand in de lijst van de broncode -bestanden voor uw project . Het bestand wordt geopend in uw VB -editor
Kopieer 3 en plak de volgende code aan de bovenkant van je bestand naar het Windows DLL in uw VB- project zijn onder meer: .
Prive Declare Function IcmpSendEcho Lib " icmp.dll " _
( ByVal IcmpHandle zoals lang, _ ByVal DestinationAddress
zoals lang, _ ByVal RequestData
als Koord , _
ByVal RequestSize zoals lang, _ ByVal RequestOptions
zoals lang, _ ReplyBuffer
Zoals ICMP_ECHO_REPLY , _ ByVal ReplySize
zoals lang, _
ByVal Timeout als lang) als Long
de code moet in zijn geheel worden gekopieerd , of de VB -compiler een fout retourneert . De code omvat de functie " ICMP.DLL " van het Windows-besturingssysteem dat een computer vanaf het bureaublad pings
4 Voeg de volgende code toe aan de externe computer te pingen : . Call
IcmpSendEcho ( hIcmp , IPaddress , "ping " , Len ( 50 ) , 0 , Reply , Len ( Reageer ) , 20 ) op Twitter Vervang " IPaddress " met het IP-adres van de externe computer .
< br > 5 Haal de replay van de ping-opdracht . De volgende code bepaalt of de ping succesvol was : mypingresponse
= Reply.Status
|
