Ako ping na server z VB6

môžete použiť prepojenie knižnice Windows ICMP ping adresu vo Visual Basic 6 ( VB6 ) . DLL je súčasťou operačného systému Windows , aby zvládnuť sietí žiadosti o protokole TCP /IP , čo je protokol používaný vo vnútorných sieťach a na internete . Tie musia obsahovať DLL v VB6 kódu , ping na server a priradiť výsledky na reťazec . Pokyny
1

Pravým tlačidlom myši na SLN súbor , ktorý obsahuje vaše VB6 a kliknite na " Otvoriť " . Dvakrát kliknite na program " Visual Basic " zobrazí sa v zozname programov .
2

Pravým tlačidlom myši na formulár , ktorý chcete použiť ping na server . Skopírujte a vložte nasledujúci DLL odkaz na hornej časti VB6 súboru :

Private Declare Function IcmpCreateFile Lib " icmp.dll " ( ) As Long

Private Declare Function WSAStartup Lib " WSOCK32.DLL " ( byVal wVersionRequired As Long , lpWSADATA Ako WSAD ) Dokiaľ

Tieto dve knižnice poskytujú funkcie pre ping a komunikovať cez protokol TCP /IP .
3

ping servera . Nasledujúci kód kolíky servera :

Public Function ping ( " server " , odpovedal ICMP_ECHO_REPLY ) As Long klipart

Nahradiť " servera" s adresou na meno alebo IP servera . Replay je uložený v " echo odpoveď " premenné .
4

Vytlačte výsledky z ping . Nasledujúci kód odošle výsledok k reťazcu a výsledok zobrazí v okne so správou :

Dim stolný As String

ping = Reply.Status

MsgBox ping

• Predchádzajúca strana: Ako používať oba súbory dát v VB 
• Ďalšia strana: Ako previesť HTML ampersand vo Visual Basic 6