C# / VB.NET - trovare l'ip di un sito

13/08/09 20:45

Postato originariamente da maxas:

e ke devo fare...

AddressIP = IpCollection.Item(1)

aaa

13/08/09 21:37

maxas

non funziona....

aaa

13/08/09 21:44

ruggy94

Postato originariamente da maxas:

non funziona....

Non credo che bastino 2 parole per descrivere accuratamente un problema. Potresti spiegare perchè non funziona? Da' errori...o cosa?

aaa

14/08/09 0:10

VB.NET_Program_91

Ecco finalmente ho risolto

Questo è il codice corretto:

Imports System.Net
Imports System.Net.Sockets
Public Class Form1
    Dim hostentrata As IPHostEntry
    Dim IPentrata As IPAddress()
    Dim i As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            hostentrata = Dns.GetHostByName("www.google.it")

            IPentrata = hostentrata.AddressList

            For i = 0 To IPentrata.Length - 1
                TextBox1.Text = (IPentrata(i).ToString)
            Next
        Catch ex As SocketException
            MsgBox(ex.StackTrace.ToString)
        End Try
    End Sub
End Class

Spero di esserti stato di aiuto :k:

aaa

14/08/09 8:06

ProgrMan93

Postato originariamente da maxas:

fatto l'errore me lo da dove o messo '<<<

        AddressIP = IpCollection.Item(0)  '<<<<dice L'indice dell'insieme deve essere compreso tra 1 e la dimensione dell'insieme.
    End Sub
End Class

Strano quando ho provato il tuo codice e ho tolto il try l'eccezione sollevata era "Host sconosciuto" :yup:

aaa

14/08/09 8:49

maxas

funziona....^^
ma una cosa mi dice qui
Dns.GetHostByName
che e obsoleto perché con cosa dovrei cambialo per non farlo comparire

aaa

14/08/09 9:59

ProgrMan93

Fai così:


Imports System.Net
Imports System.Net.Sockets
Public Class Form1
    Dim hostentrata As IPHostEntry
    Dim IPentrata As IPAddress()
    Dim i As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'Al posto si Dns.GetHostByName metti Dns.GetHostEntry
            hostentrata = Dns.GetHostEntry("www.google.it")

            IPentrata = hostentrata.AddressList

            For i = 0 To IPentrata.Length - 1
                TextBox1.Text = (IPentrata(i).ToString)
            Next
        Catch ex As SocketException
            MsgBox(ex.StackTrace.ToString)
        End Try
    End Sub
End Class

aaa

14/08/09 11:01

maxas

funziona ma ce una cosa che non riesco a capire
tipo cosi funziona

Imports System.Net
Imports System.Net.Sockets
Public Class Ipsito

    Private Sub Ipsito_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim hostentrata As IPHostEntry
        Dim IPentrata As IPAddress()
        Dim i As Integer
        Me.Text = Form1.Text
        Try
            hostentrata = Dns.GetHostEntry("www.google.it")
            IPentrata = hostentrata.AddressList
            For i = 0 To IPentrata.Length - 1
                MsgBox(IPentrata(i).ToString)
            Next
        Catch ex As SocketException
            MsgBox(ex.StackTrace.ToString)
        End Try
    End Sub
End Class

e inceve cosi no

Imports System.Net
Imports System.Net.Sockets
Public Class Ipsito

    Private Sub Ipsito_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim hostentrata As IPHostEntry
        Dim IPentrata As IPAddress()
        Dim i As Integer
        Me.Text = Form1.Text
        Try
            hostentrata = Dns.GetHostEntry(Form1.indirizzo.Text)
            IPentrata = hostentrata.AddressList
            For i = 0 To IPentrata.Length - 1
                TextBox1.Text = (IPentrata(i).ToString)
            Next
        Catch ex As SocketException
            MsgBox(ex.StackTrace.ToString)
        End Try
    End Sub
End Class

aaa

1 2 3