Ako Ping pomocou jazyka Visual Basic

Použitie príkazu ping na sieťové aplikácie pomáha medzné zlyhania pripojenia a chyby . Ping je proces , v ktorom počítač vyšle signál do iného počítača . Tento počítač môže byť server , na úplne samostatnej doméne , alebo to môže byť počítač v miestnej sieti . Použitie triedy ping v aplikácii Microsoft Visual Basic umožňuje aplikáciu vedieť , či počítač je prítomný . Ak príkaz ping nemožno nájsť počítač zadaný , programátor môže použiť chybové kódy sa zobrazí varovanie pre užívateľa . Pokyny dovolená 1

Otvorte nový súbor formulára . V Visual Studio pracovnej plochy , kliknite pravým tlačidlom myši na názov projektu v paneli nástrojov Solution Explorer . Vyberte možnosť Pridať formulár . Nová forma sa objaví vo vašej pracovnej ploche .
2

Nastavte IP adresu alebo doménový názov počítača , ktorý chcete pomocou príkazu ping . Nasledujúci kód prideľuje premenné s danou IP adresou . Premenná timeout hovorí počítaču , kedy prestať hľadať odpoveď od vzdialeného stroja .

Dim MyIP As String = " 192.168.0.1 " Dim TimeOutValue As Integer = 120
3

alokovať pamäť pre triedu ping . Pred použitím triedy ping , je potrebné využiť a uložiť do premennej .

Dim pingComputer Ako Ping = New Ping ( )
4

Ping počítač . Nasledujúci kód používa metódu Send ping IP adresu určený v kroku 2.

Dim theReply Ako PingReply = pingComputer.Send ( MyIP )
5

Kontrola, či príkaz bol úspešný . Úspešná odpoveď je vrátená do vlastníctva Stav v premennej theReply . Nasledujúci kód je balený okolo kód , ktorý povie aplikáciu, čo robiť , keď je počítač v sieti odpovedal .

Ak theReply.Status = IPStatus.Success

End If

6

Zobraziť odpoveď . Nasledujúci kód zobrazuje odpoveď na konzole iba v prípade , ping bol úspešný

Ak theReply.Status = IPStatus.Success

Console.WriteLine ( " IP : { 0 } " . , TheReply . Address.ToString ( ) ) Console.WriteLine ( " čas cesty : { 0 } " , theReply.RoundtripTime )

End If

• Predchádzajúca strana: Ako urobiť databázu programovanie pomocou jazyka Visual Basic 
• Ďalšia strana: Ako čítať sériových portov pomocou jazyka Visual Basic