Visual Studio 2010 Server On/Off Abfrage via IP

[Đurek]

Hey, es geht darum: Ich hoste mit einem Kumpel Gaming-Server und möchte nun ein eigenes Programm mit Visual Studio 2010 erstellen das eine IP die ich in eine Textbox eingebe Abfragt und mir sagt ob sie Erreichbar also Online ist. Bisher hab ich das hier:

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.Network.Ping("******¹") Then
            Label4.Text = ("Online")
        Else
            Label4.Text = ("Offline")
        End If

    End Sub

Das Funktioniert auch, nur müsste ich immer wieder ein neues Programm für jede IP erstellen. Wie kann ich nun eine Textbox einbauen in die ich die IP eingebe und dann auf einen button (nennen wir ihn Check) drücke damit dann die in die Textbox eingegebene IP gecheckt wird?

Ich hoffe ich konnte in etwa umschreiben was ich brauche

¹ - ****** steht für die IP

[anonymous-f4h279]

Du willst das sicherlich in Visual Basic machen oder?
Anstatt die IP in den Klammern, einfach textboxname.Text

[Đurek]

Das hatte ich auch schon, doch ich weiß nicht wie ich nun die Eingabe mit einem Button bestätige. Bin in VB kompletter anfänger :S

[Player4life]

Also du Machst erstmal einen Button bei dem Designer, Dann Doppelklick darauf.
Dann erscheint der Code-Fenster, Und zwischen dem

Private sub Button1_Click(.....) Handles button1.click
'Hier Der Code
End Sub

Den Code einfach einfügen.

[Đurek]

Originally Posted by Player4life

Also du Machst erstmal einen Button bei dem Designer, Dann Doppelklick darauf.
Dann erscheint der Code-Fenster, Und zwischen dem

Private sub Button1_Click(.....) Handles button1.click
'Hier Der Code
End Sub

Den Code einfach einfügen.

Sry wenn ich mich n bisschen blöd anstelle, welchen Code soll ich da einfügen? Ich blick das grade nicht so richtig ...

[Player4life]

Private sub Button1_Click(.....) Handles button1.click
If My.Computer.Network.Ping("******¹") Then
            Label4.Text = ("Online")
        Else
            Label4.Text = ("Offline")
        End If
End Sub

So sollte der Code aussehen, Weis jetzt nur nicht, was bei dem ..... hinkommt, aber das steht ja bei dir da schon^^

[Đurek]

Originally Posted by Player4life

Private sub Button1_Click(.....) Handles button1.click
If My.Computer.Network.Ping("******¹") Then
            Label4.Text = ("Online")
        Else
            Label4.Text = ("Offline")
        End If
End Sub

So sollte der Code aussehen, Weis jetzt nur nicht, was bei dem ..... hinkommt, aber das steht ja bei dir da schon^^

Achso, Danke! Jetzt versteh ich wie du das meinst

*Edit: Funktioniert Einwandfrei!

[ernilos]

Use socket, if will open is on, and if is closed is off