Alle lokale IP Adressen weergeven

[AntonioTM]

Ik ben bezig met een administratiepaneeltje om te kijken hoeveel mensen gebruik maken van een netwerk.
Maar hoe kan ik mijn programma laten pingen naar vele Local IP adressen en van alles waar die een response van krijgt in een listbox te zetten?

Dankuu

 

[manamana]

Hallo antonio zit hier misschien iets tussen tootjes. Klik

 

[AntonioTM]

Hooi,, ja zo iets ongeveer maar dan simpeler. Ik wil het zelf maken aangezien ik na mijn examen dit jaar opleiding aplicatieontwikkelaar wil doen.
Ik heb het ongeveer wel gevonden, heel simpel.

Dim Ip = "192.168.1.1"
        If My.Computer.Network.Ping(Ip) Then
            ListBox1.Items.Add(Ip)

Maar nu wil ik dus dat je eigen lokale IP er niet tussen komt te staan. die staat in dit geval bij mij in textbox1.
Geen idee hoe dat moet,,

Daarbij moet ik nu alles met de hand gaan doen (192.168.1.101/102/103 e.d)
hoe doe ik dit allemaal tegelijk? Van 192.168.1.101 naar 192.168.1.250?

Greetings

 

[manamana]

Mhh wellicht andere hulp hier daar kan ik ook niet mee overweg.

 

[Pim15]

Dat kan zo:

For IP As Integer = 1 To 250
    If My.Computer.Network.Ping("192.168.1." & IP.ToString) Then
          ListBox1.Items.Add("192.168.1." & IP.ToString)
Next

Pim

PS Moderators, sorry dat ik iets te laat reageer, maar ik wou dit nog even zeggen.