[Masterstrike]

hallo,

weissjemand von euch wie icheinenbereich wie z.B 192.168.1.1 bis 255 pingen kann und mirdasergbniss anzeigenlassen kann ?






####


Vielen dank im vorraus für die hilfe ! :-)
LG Masterstrike

[LunaticLord]

psc!

Dieser Beitrag wurde von LunaticLord bearbeitet: 31. Januar 2009 - 17:17

[datalohr]

Hallo,
also ich hab da mal was vorbereitet, das is zwar nicht annähernd als ausgereift zu bezeichnen aber es funktioniert ^^
Die Zeitanzeige ist aber relativ ungenau und naja das is halt das ergebnis von 10 min. bastelarbeit


Zur Ausführung brauchst du eine CheckedListBox und eine Form, das wars. und achja einen Button.

Public Class Form1

	Private Sub doping()
		Dim i As Integer = 0
		Dim dummy As Boolean = False
		Dim dummy2 As Integer = 0
		Dim StartZeit As Date

		For i = 1 To 254
			Application.DoEvents()
			CheckedListBox1.Items.Add("192.168.1." & i, False)
			CheckedListBox1.Refresh()

			StartZeit = System.DateTime.Now
			dummy = My.Computer.Network.Ping("192.168.1." & i, 1)
			dummy2 = (CInt(System.DateTime.Now.Subtract(StartZeit).TotalMilliseconds))

			CheckedListBox1.Items.RemoveAt(CheckedListBox1.Items.Count - 1)
			CheckedListBox1.Items.Add("192.168.1." & i & " - " & dummy2, dummy)
			CheckedListBox1.Refresh()
		Next
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		doping()
	End Sub
End Class