Hallo!
Ich möchte über einen Buttonclick alle Computer im Netz anpingen und den aktuellen Computer in einem Label anzeigen.
Ich habe dazu folgendes versucht:
Der Ping wird ausgeführt nur wird der aktuelle Computer in der Zeile lblcomp.Text=rechner der Computer im Label nicht angezeigt.
Wenn ich eine msgbox verwende z.B. msgbox(rechner) wird der aktuelle Computer immer angezeigt.
Daher wollte ich fragen, wo da mein Fehler liegt.
Danke
CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed
Ich möchte über einen Buttonclick alle Computer im Netz anpingen und den aktuellen Computer in einem Label anzeigen.
Ich habe dazu folgendes versucht:
VB.NET-Quellcode
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- On Error Resume Next
- Dim datei As New System.IO.StreamReader(Application.StartupPath & "\datei.txt")
- While Not datei.EndOfStream
- Dim rechner As String = datei.ReadLine
- lblcomp.Text = rechner
- If Net.NetworkInformation.NetworkInterface.GetIsNetworkAvailable() Then
- Dim Status = New Net.NetworkInformation.Ping().Send(rechner, 100)
- End If
- End While
- lblcomp.Text = ""
- datei.Close()
- End Sub
Der Ping wird ausgeführt nur wird der aktuelle Computer in der Zeile lblcomp.Text=rechner der Computer im Label nicht angezeigt.
Wenn ich eine msgbox verwende z.B. msgbox(rechner) wird der aktuelle Computer immer angezeigt.
Daher wollte ich fragen, wo da mein Fehler liegt.
Danke
CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()