elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Programa para detectar dispositivos en una red
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Programa para detectar dispositivos en una red  (Leído 2,070 veces)
Sk9ITk5Z


Desconectado Desconectado

Mensajes: 2.306



Ver Perfil WWW
Programa para detectar dispositivos en una red
« en: 16 Marzo 2013, 01:07 am »

Quiero hacerme un software para detectar dispositvos en una red pero no se por donde empezar  xd,  que librerias me suguieren utilizar para relizar ese tipo de software? lo hare en VB.NET


edito

ya hice uno pero esta muy lento tarda mucho en terminar de hacer los ping

Código
  1.  
  2. Imports System.Net
  3. Public Class Form1
  4.    Dim a As Integer
  5.    Dim b As Integer
  6.    Dim i As Integer
  7.    Dim t As Integer
  8.    Dim eco As New System.Net.NetworkInformation.Ping
  9.    Dim respuesta As System.Net.NetworkInformation.PingReply
  10.    Dim algo As System.Net.NetworkInformation.IPInterfaceProperties
  11.    Dim ip As IPAddress
  12.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  13.        b = Val(TextBox2.Text)
  14.        a = Val(TextBox3.Text)
  15.        t = 0
  16.        For i = a To b
  17.            TextBox4.Text = i
  18.            ip = IPAddress.Parse("192.168.1." + TextBox4.Text)
  19.            respuesta = eco.Send(ip)
  20.  
  21.            If respuesta.Status = NetworkInformation.IPStatus.Success Then
  22.                TextBox1.Text = TextBox1.Text + "Respuesta desde: " & respuesta.Address.ToString + vbCrLf
  23.            Else
  24.                TextBox1.Text = TextBox1.Text + "Sin Respuesta" + vbCrLf
  25.            End If
  26.  
  27.        Next
  28.  
  29.  
  30.    End Sub
  31. End Class
  32.  
  33.  


« Última modificación: 21 Marzo 2013, 02:57 am por Sk9ITk5Z » En línea

Este es un pueblo de corazón extraviado, no quiere conocer mis caminos por eso no entraran en mi descanso.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines