Visual Studio 2010 Server On/Off Abfrage via IP

10/14/2012 01:38 Đurek#1
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:

Code:
 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
10/14/2012 04:19 anonymous-f4h279#2
Du willst das sicherlich in Visual Basic machen oder?
Anstatt die IP in den Klammern, einfach textboxname.Text :)
10/14/2012 14:03 Đurek#3
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
10/14/2012 14:06 Player4life#4
Also du Machst erstmal einen Button bei dem Designer, Dann Doppelklick darauf.
Dann erscheint der Code-Fenster, Und zwischen dem
Code:
Private sub Button1_Click(.....) Handles button1.click
'Hier Der Code
End Sub
Den Code einfach einfügen.
10/14/2012 14:21 Đurek#5
Quote:
Originally Posted by Player4life View Post
Also du Machst erstmal einen Button bei dem Designer, Dann Doppelklick darauf.
Dann erscheint der Code-Fenster, Und zwischen dem
Code:
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 ...
10/14/2012 14:24 Player4life#6
Code:
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^^
10/14/2012 14:25 Đurek#7
Quote:
Originally Posted by Player4life View Post
Code:
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!
10/16/2012 19:57 ernilos#8
Use socket, if will open is on, and if is closed is off :p