Använda ping i ett nätverk program hjälper misslyckanden gräns anslutning och fel . Ping är en process där datorn sänder en signal till en annan dator . Denna dator kan vara en server på en helt separat domän , eller det kan vara en dator i det lokala nätverket . Användningen av ping klass i Microsoft Visual Basic möjliggör tillämpningen att veta om datorn är närvarande. Om ping inte hittar datorn angetts , kan programmeraren använda felkoder för att visa en varning för användaren . Instruktioner
1
Öppna ett nytt formulär fil . I Visual Studio arbetsyta , högerklicka på projektets namn i Solution Explorer verktygslådan . Välj Lägg formulär . En ny form visas på arbetsytan .
2
Ange IP-adressen eller domännamnet på den dator du vill pinga . Koden nedan tilldelar en variabel med en inställd IP -adress . Timeout variabeln talar om för datorn när du ska sluta leta efter ett svar från fjärrdatorn .
Dim MyIP As String = " 192.168.0.1 " Dim timeoutvalue As Integer = 120 Addera 3
Allokera minne för ping klassen . Innan du använder ping klassen , måste det kallas och sparas i en variabel .
Dim pingComputer Som Ping = Ny Ping ( )
4
Ping datorn . I följande kod används Send-metoden för att pinga IP- adress som angivits i steg 2 .
Dim theReply Som PingReply = pingComputer.Send ( MyIP )
5
Kontrollera att kommandot lyckades . Ett lyckat svar returneras till Status egendom i variabeln theReply . Koden nedan är virad runt den kod som talar om för programmet vad du ska göra om datorn i nätverket reagerade .
P Om theReply.Status = IPStatus.Success
End If
6
Visa svaret . Koden nedan visar svar på konsolen endast om ping lyckades
p Om theReply.Status = IPStatus.Success
Console.WriteLine ( . " IP : { 0 } " , theReply . Address.ToString ( ) ) Console.WriteLine ( " Trip tid : { 0 } " , theReply.RoundtripTime ) katalog
End If Addera
