Ako si vyrobiť Ping z jazyka

Operačný systém Windows obsahuje súbor DLL , ktoré používate vo svojom kóde jazyka Visual Basic pomocou príkazu ping na sieťový server . Postup ping vráti odpoveď , ktorú môžete použiť v kóde určiť , či je počítač on - line a je k dispozícii na sieti . Tie musia obsahovať súbor Windows DLL vo vašom vlastnom VB kód súboru . Po DLL je súčasťou , môžete ping ľubovoľného počítača v sieti . Pokyny
1

Kliknite na tlačidlo Windows " Štart " a vyberte " Všetky programy " . Kliknite na " Microsoft Visual Basic " , potom kliknite na " Visual Basic 6 " . Otvorte svoj ​​projekt VB .
2

Dvakrát kliknite na súbor v zozname súborov zdrojových kódov pre váš projekt . Súbor sa otvorí v ​​editore VB
3

Skopírujte a vložte nasledujúci kód do hornej časti súboru zahrnúť Windows DLL vo vašom projekte VB : .

Private declare Function IcmpSendEcho Lib " icmp.dll " _

( byVal IcmpHandle As Long , _ byVal

DestinationAddress As Long , _ byVal

RequestData As String , _

byVal RequestSize As Long , _ byVal

RequestOptions As Long , _

ReplyBuffer Ako ICMP_ECHO_REPLY , _ byVal

ReplySize As Long , _

byVal Timeout As Long ) As Long

kódu musí byť skopírované v plnom rozsahu , alebo VB kompilátor vráti chybu . Kód obsahuje funkciu " ICMP.DLL " z operačného systému Windows , ktorý ping počítača od stolného počítača
4

Pridajte nasledujúci kód na ping vzdialeného počítača : .

Volanie IcmpSendEcho ( hIcmp , IPAddress , " ping " , Ľan ( 50 ) , 0 , Odpovedať , Ľan ( odpoveď ) , 20 )

Nahradiť " IPADDRESS " s adresou IP pre vzdialený počítač .

5

Načítať záznam z príkazu ping . Nasledujúci kód určuje , či ping bol úspešný :

mypingresponse = Reply.Status

• Predchádzajúca strana: Ako si vyrobiť tlačidla pre VBScript 
• Ďalšia strana: Ako si vyrobiť VBA vstupných polí