Echo rede interna

[AnonymousKesha 11]

Muitos devem conhecer o comando ping que pode ser usando no CMD.

No VB ele está disponível como My.Computer.Network.Ping, com isso você pode fazer chamadas tanto

em IP interno quando externo.

Levei em conta as seguintes questões

 

-192.168.0.1 é considerado como Gateway padrão.

-Ele faz no máximo até 510 requisições, mas pode fazer mais requisições mas acho que nem uma casa vai ter + de 510 maquinas.

-O serviço é executado por um timer por isso ele fica para 100ms, caso a linha retorne false não que dizer que a maquina não respondeu

e está off, é considerado que só um pacote voltou (25%)

-O comando ping envia 4 pacotes (25%) cada um.

 

Objetos:

-Button : bnt_ini

-ListBox : ListBox1

-ListBox : ListBox2

-Label : lb_status

-Label : lb_ip

-ProgressBar: pic_1

-Timer : Tempo_echo

-Timer : Tempo_exe

 

Códigos:

Dim ip1 As Integer ' IP 0/255

Dim ip2 As Integer 'IP 0/255

Dim contagem As Integer '192.168.

Dim teste As Boolean 'Teste de ping[local]

 

bnt_ini

ListBox1.Items.Clear()

ListBox2.Items.Clear()

ip1 = "0"

ip2 = "0"

Tempo_echo.Start()

Tempo_exe.Start()

 

Tempo_echo

'===================Contagem de 0/255================================|

ip2 = Val(ip2) + (1)

If ip2 > "255" Then

ip2 = "0"

ip1 = Val(ip1) + "1"

End If

'=========================Passagem de dados==========================|

lb_ip.Text = "192.168." & ip1 & "." & ip2

'===============================PING=================================|

teste = My.Computer.Network.Ping(lb_ip.Text, 500) = True

'======================Passagem de dados=============================|

If teste = False Then

ListBox1.Items.Add("IP: " & lb_ip.Text & " -MUDO < 25%")

ElseIf teste = True Then

ListBox1.Items.Add("IP: " & lb_ip.Text & " -RESPONDEU[100%]")

End If

'=================================Fim=================================|

If ip1 > "1" Then

Tempo_echo.Stop()

Tempo_exe.Stop()

'==========================Pegar IP que respondeu e separar para list2=============

ListBox2.Items.Clear()

Dim pesq As String = "-RESPONDEU[100%]"

Dim count As Integer = (ListBox1.Items.Count - 1)

Dim words As String

For a = 0 To count

words = ListBox1.Items.Item(a)

If InStr(words.ToLower, pesq.ToLower) Then

ListBox2.Items.Add(words)

End If

Next

'===================================================================================

End If

'====================================================================

 

Tempo_exe

Dim verificados As Integer

verificados = ListBox1.Items.Count

lb_status.Text = "Verificação.." & verificados & "/510"

pic_1.Value = verificados

 

 

 

Meu projeto :

 

Scan:

[ThatoHenrique 0]

o link do projeto não pega cade ?? :indiferente: