sábado, 2 de julio de 2011

Como obtener tolas las IPs en VB 2010 .NET

Tendremos que añadir al principio la siguiente linea, para que podamos usar las variables de red entre otras:

Imports System.Net

Ahora os dejamos el código que se puede emplear en un commandbutton y pegarlo en un textbox el resultado:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i_cont As Integer
Dim Host As String
       
        If Environment.GetCommandLineArgs().Length > 1 Then
            Host = Environment.GetCommandLineArgs(1)
        Else
            Host = Dns.GetHostName
        End If

Dim IPs As IPHostEntry = Dns.GetHostByName(Host)
Dim Direcciones As IPAddress() = IPs.AddressList

        'Se despliega la lista de IP's

        i_cont = 0

ForEach IP As IPAddress in Direcciones



TextBox1.Text = TextBox1.Text & "IP " & IP.ToString & vbCrLf


Next




End Sub

6 comentarios:

  1. Hola,

    El código muy útil pero, ¿un goto? ¿de verdad veo un goto? ¡goto malo!

    Por cierto las cadenas en VB se concatenan con & si usas + te puedes encontrar cosas "raras".

    Creao que quedaría mejor, y más legible, así:

    ForEach IP As IPAddress in Direcciones
    TextBox1.Text = TextBox1.Text &
    & "IP " & IP.ToString & vbCrLf
    Next

    Perdón por la prepotencia y un saludo.
    Por

    ResponderEliminar
  2. A ver, yo no soy programador y hago mis cuatro pinitos con esto del .NET (que sigue sin gustarme y prefiero GamBAS, pero ya que necesito para un pequeño proyecto, pues... Bueno, que ya lo modifico. Gracias por tu aporte

    ResponderEliminar
  3. Por cierto, en cuanto lo acabe lo publicaré como GPL V3 :D

    ResponderEliminar
  4. Hola de nuevo,

    Si esta en mi mano echarte un cable no dudes en contactarme. Y más si lo "liberas". Que no solo se criticar.

    Un saludo.

    ResponderEliminar
  5. slimer, sabes como se puede obtener el tipo de arquitectura (32 ó 64 bits)con visual basic 2010????? gracias desde ya.

    ResponderEliminar
    Respuestas
    1. hola jota,

      Puedes mirar en este enlace: http://www.ajpdsoft.com/modules.php?name=Foros&file=viewtopic&t=1504

      También hay una clave del registro (HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Enable64Bit) que te dirá si .NET Framework puede funcionar en 64 bits o no, ya que puedes tener una arquitectura de 64 bits con un SO de 32 bits instalado.

      Saludos.

      Eliminar