Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Option Explicit On 'Klar
Option Strict On 'Sollte immer an sein
Imports System.Net
Imports System.Net.NetworkInformation

Visual Basic Quellcode

Public Class PingForm 'Name der Form

    Private WithEvents PingTimer As New Timer        'Wir benutzen für die Anfänger anfangsvariante einen Timer
    Private IpToPing As IPAddress                           'unsere benötigte globale Variable die die IP Adresse enthalten wird

'Nun kommt das FormLoad Event, dort machen wir nicht viel:
Private Sub PingForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BtnStop.Enabled = False                                 'Wir deaktivieren den Stop Button 
        TxtIP.Text = "www.google.de"                         'wir setzen einen Default Wert für die IP/Hostname Textbox
        ResultList.View = View.Details                         'wir setzen die Listview Ansicht auf Detail
         Me.AcceptButton = btnStart                            'der Startbutton wird zum acceptButton der Form-> bei Druck auf enter wird dieser ausgelöst
    End Sub

'Nun kommen wir zum BtnStart.Click Event. Dieses ist entscheidend:

  Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Dim Ip As IPAddress()  'Wir deklarieren ein leeres Array von IPAdressen
        ResultList.Items.Clear() 'Wir löschen alle Items der Listview
        Dim LItm As New ListViewItem 'Wir erstellen ein neues ListviewItem
        LItm.Text = TxtIP.Text  'Wir fügen noch einen Text hinzu
        'Dieser ist erstmal das eingebene
        Try 'Fehler abfangen, falls der Hostname/die website nicht aufgelöst werden kann
            If Not IPAddress.TryParse(TxtIP.Text, IpToPing) Then 'Wir versuchen erstmal den Inhalt der Textbox
                'in eine IPAdresse zu wandeln
                'Dies ist natülich nur erfolgreich wenn wir eine IP eingeben,
                'Andernfalls liefert TryParse False zurück und wir versuchen 
                'den Namen aufzulösen und in das leere IP Array zu schreiben:
                Ip = Dns.GetHostAddresses(TxtIP.Text) 'Die DNS Klasse aus dem Framework versucht dies
                'schlägt dies Fehl, fliegen wir aus dem Try Block
                'und kommen in den Catch Block und geben den Fehler aus


                'Nun weisen wir unserer IP Variable die zurückgegebene erste IP Adresse aus unserem IP Array zu
                'Da Webseiten auch mehr als eine IP haben können, gibt:
                'Dns.GetHostAddresses ein array von IP's zurück, wir nehmen halt einfach die erste
                'Da mindest eine aufgelöst werden MUSS
                IpToPing = Ip(0)
            End If

            PingTimer.Interval = Integer.Parse(txtRpt.Text) 'Nun geben wir dem Timer
            'sein Intervall indem wir den Text der txtrpt in Integer umwandeln und zuweisen

            LItm.SubItems.Add("") 'und 2 Leeren Subitems
            LItm.SubItems.Add("")
            ResultList.Items.Add(LItm) 'Und fügen diesem der Listview zu
            'Die Darstellung ist hier sicher nicht optimal.
            BtnStop.Enabled = True 'nun disablen wir den StartButton
            btnStart.Enabled = False 'und enablen den Stop Button
            PingTimer.Start() 'und starten den Timer

        Catch ex As Exception
            'Gibts einen Fehler (Name nicht auflösbar) schreiben wir diesen ins ListviewItem

            LItm.SubItems.Add(ex.Message) ' 
            ResultList.Items.Add(LItm)
        End Try

    End Sub

Visual Basic Quellcode

 Private Sub PingTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PingTimer.Tick
        Dim myPing As New Ping 'Neue Instanz der PingKlasse erstellen
        Dim myPOptions As New PingOptions ' Neue Instanz der PingOptionen Klasse erstellen
        Dim myTimeOut = 2000 'UNd das TimeOut auf 2 Sekunden gesetzt(ist optional, bzw kann man auch einstellbar gestalten)
        Dim sbuffer As String = "" 'Einen Leeren String für den Buffer
        For a = 0 To 31 'Hier befüllen wir den Buffer mit 32 Chars
            sbuffer &= "a"
        Next
        Dim mybuffer() As Byte = System.Text.Encoding.Default.GetBytes(sbuffer) 'Hier wandeln wir den String in ein ByteArray
        'Die Größe des Buffers ist nun 32 Byte
        myPOptions.DontFragment = False 'Hier setzen wir die Ping Option
        'Die Daten dürfen fragmentiert werden, diese Eigenschaft ist optional
        'Näheres kommt später
        myPOptions.Ttl = Integer.Parse(txtTTL.Text)
        'Hier sezten wir die TimeToLive
        'Auch das benötigen wir für den einfachen Ping eigentlich nicht
        '
        '####################################################################################
        '# Hier kommt der eigentlich Ping request. Wir senden nun synchron an den Host
        '# Mit all unseren Gesetzten Optionen
        '# PING.Send("IPADRESSE","TIMEOUT","BUFFER","PINGOPTIONEN"
        '# Das Resultat kommt in ein PingReply Objekt.
        '# Dies enthält nun alle wichtigen Antwort Daten
        Dim myPingResult As PingReply = myPing.Send(IpToPing, myTimeOut, mybuffer, myPOptions)

        ResultList.Items(0).Text = IpToPing.ToString ' Wir tragen die IP ins erste ITEM, Spalte 1
        ResultList.Items(0).SubItems(1).Text = myPingResult.Status.ToString ' Den status (erreichbar/nicht erreichbar) in Spalte 2
        ResultList.Items(0).SubItems(2).Text = myPingResult.RoundtripTime.ToString ' Die ResonseTime in Spalte 3

    End Sub

Visual Basic Quellcode

  Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
        PingTimer.Stop()
        BtnStop.Enabled = False
        btnStart.Enabled = True
    End Sub

Visual Basic Quellcode

 Private Sub txtTTL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTTL.TextChanged
        btnStart.Enabled = Integer.TryParse(txtTTL.Text, New Integer)
    End Sub

    Private Sub txtRpt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRpt.TextChanged
        btnStart.Enabled = Integer.TryParse(txtTTL.Text, New Integer)
    End Sub