Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Echo rede interna


AnonymousKesha
 Compartilhar

Posts Recomendados

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

 

_sem_titulo_62.jpg

 

 

Meu projeto :

 

Scan:

Link para o comentário
Compartilhar em outros sites

  • 3 semanas atrás...
Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.