ASP til .NET - Ping med C# og VB.NET

Taget udgangspunkt i spørgsmål fra https://www.eksperten.dk/spm/838433

Noget som jeg selv har siddet og bikset med for en del år tilbage er hvordan man henter oplysninger omkring "state", så man kan få at vide om en maskine er oppe eller nede. Jeg snakker her om netværkets allerførste funktion - ping!

start -> kør -> cmd

Sådan gør du i windows, men der findes desværre ikke en tilsvarende metode i ASP.

I .NET derimod findes der et helt namespace spækket med lækre funktioner til netop at lave disse netværks forspørgelser. Ja, der findes skam også en ping metode, og den ligger under namespacet System.Net.NetworkInformation.

Så hvis vi gerne vil pinge en maskine kan vi lave en metode overpå der f.eks ser således ud:

    1:  using System;

    2:  using System.Net.NetworkInformation;

    3:   

    4:  namespace PingMachine

    5:  {

    6:      class Program

    7:      {

    8:          static void Main( string[] args )

    9:          {

   10:              Console.WriteLine( PingAddress( "192.168.1.2" ) );

   11:              Console.ReadLine();

   12:          }

   13:   

   14:          private static bool PingAddress( string address )

   15:          {

   16:              using( Ping ping = new Ping() ) {

   17:                  PingReply reply = ping.Send( address );

   18:   

   19:                  if( reply.Status == IPStatus.Success ) {

   20:                      return true;

   21:                  } else {

   22:                      return false;

   23:                  }            

   24:              }

   25:          }

   26:      }

   27:  }

Og i VB.NET kan du gøre det sådan her (har ikke tester VB udgaven, sorry)

    1:  Imports System

    2:  Imports System.Net.NetworkInformation

    3:   

    4:  Namespace PingMachine

    5:      Friend Class Program

    6:          Shared Sub Main(ByVal args() As String)

    7:              Console.WriteLine(PingAddress("192.168.1.2"))

    8:              Console.ReadLine()

    9:          End Sub

   10:   

   11:          Private Shared Function PingAddress(ByVal address As String) As Boolean

   12:              Using ping As New Ping()

   13:                  Dim reply As PingReply = ping.Send(address)

   14:   

   15:                  If reply.Status = IPStatus.Success Then

   16:                      Return True

   17:                  Else

   18:                      Return False

   19:                  End If

   20:              End Using

   21:          End Function

   22:      End Class

   23:  End Namespace

Det er da nemt :0)

Comments

• Anonymous
  July 17, 2008
  PingBack from http://blog.a-foton.ru/2008/07/asp-til-net-ping-med-c-og-vbnet/

• Anonymous
  July 17, 2008
  Det er jo sjovt som C# udviklere gerne vil gøre tingene lidt mere besværlige end de er :) Se nu Daniels

• Anonymous
  July 17, 2008
  The comment has been removed

• Anonymous
  July 17, 2008
  Eller blot: Console.WriteLine(new Ping().Send("192.168.1.2").Status==IPStatus.Success); Ikke så kønt men MEGET kort :-)

• Anonymous
  July 17, 2008
  @Brian: hvis jeg bare linker til et dokument på engelsk er der sikkert mange der ikke læser indlægget, og det er der ikke meget sjov i. Det er ikke alle der kan se C# som VB og omvendt. Det er godt at der er kode eksempler på begge sprog så vi ikke mister den ene halvdel af udviklerne, og der findes stadig flere udviklere der koder ASP og som VB.NET appelere meget mere til end C#. @Guidmaster: så lærte jeg også lidt idag :-)

• Anonymous
  July 19, 2008
  Mortens løsning får dog ikke kaldt Dispose(). Tip til Daniel: return reply.Status == IPStatus.Success; Pænere kode, samme resultat.

• Anonymous
  July 28, 2008
  Daniel, jeg vil påstå at alle og enhver er i stand til at forstå kode skrevet i VB eller C#. Særligt når der ikke er tale anvendelse af indviklede sprogkonstruktioner.

• Anonymous
  July 30, 2008
  Jamen Søren dog, det er da fint du har det sådan!

• Anonymous
  August 02, 2008
  Jeg har lige opdaget My namespacet i VB (OK, jeg er C# udvikler): My.Computer.Network.Ping("192.168.2.1")