Brug ping i et netværk program hjælper grænse tilslutning svigt og fejl. Ping er en proces, hvor computeren sender et signal til en anden computer . Denne computer kan være en server på en helt separat domæne , eller det kan være en computer på det lokale netværk . Anvendelsen af ping klasse i Microsoft Visual Basic muliggør anvendelsen at vide, hvis computeren er til stede . Hvis ping ikke er i stand til at finde den angivne computer, kan programmøren bruge fejlkoder til at vise en advarsel til brugeren. Instruktioner
1
Åbn en ny form fil. I Visual Studio arbejdsområde , skal du højreklikke på projektets navn i Solution Explorer værktøjskasse. Vælg Tilføj formular . En ny form vises i dit arbejdsområde.
2
Indstil IP-adressen eller domænenavnet på den computer, du ønsker at pinge . Koden nedenfor tildeler en variabel med et sæt IP-adresse. Timeout variabel fortæller computeren, når at stoppe på udkig efter et svar fra den eksterne maskine .
Dim MyIP As String = " 192.168.0.1 " Dim timeoutvalue As Integer = 120
3
allokere hukommelse for ping klassen. Før du bruger ping klasse, skal det hedde og gemmes i en variabel.
Dim pingComputer Da Ping = Ny Ping ( )
4
Ping computeren. Følgende kode bruger Send metode til at pinge IP-adressen , der er udpeget i trin 2. .
Dim theReply Som PingReply = pingComputer.Send ( MyIP )
5
Kontrollér , at kommandoen var en succes . En succesfuld svar returneres til status ejendom i variablen theReply . Koden nedenfor er viklet rundt om kode, der fortæller programmet , hvad de skal gøre, hvis computeren på netværket reageret.
P Hvis theReply.Status = IPStatus.Success
End If
< br > 6.
Vise svaret. Koden nedenfor viser svaret på konsollen , hvis ping lykkedes
p Hvis theReply.Status = IPStatus.Success
Console.WriteLine ( ". IP: {0}" , theReply . Address.ToString () ) Console.WriteLine ( " Trip tid : { 0}" , theReply.RoundtripTime )
End If