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

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

Pagine: [ 1 2 3 ]

maxas (Normal User)
Rookie

Messaggi: 53
Iscritto: 26/07/2009

Postato alle 13:38
Giovedì, 13/08/2009

sapete dirmi dove sbaglio

Codice sorgente - presumibilmente VB.NET

Public Class Form1
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            ' dichiara una nuova collezione
            Dim IpCollection As New Collection
            ' ottiene l'indirizzo IP dal dominio inserito
            Dim i As Integer
            Dim ipE As Net.IPHostEntry = System.Net.Dns.GetHostEntry("http://it.msn.com/")
            Dim IpA() As Net.IPAddress = ipE.AddressList
            ' ottiene tutti gli indirizzi IP relativi al dominio
            For i = 0 To IpA.GetUpperBound(0)
                IpCollection.Add(IpA(i).ToString)
            Next
            ' restituisce il primo IP ottenuto
            Dim AddressIP As String
            AddressIP = IpCollection.Item(0)
        Catch ex As Exception
            MsgBox("An error has occured")
        End Try
    End Sub
End Class

VB.NET_Program_91 (Member)
Pro

Messaggi: 93
Iscritto: 10/02/2008

Postato alle 16:59
Giovedì, 13/08/2009

Hai importato queste librerie?:

Codice sorgente - presumibilmente C# / VB.NET

Imports System.Net
Imports System.Net.Dns
Imports System.Net.Sockets

Ultima modifica effettuata da VB.NET_Program_91 il 13/08/2009 alle 17:17

ProgrMan93 (Ex-Member)
Pro

Messaggi: 68
Iscritto: 25/06/2008

Postato alle 18:33
Giovedì, 13/08/2009

che errore ti esce precisamente?

maxas (Normal User)
Rookie

Messaggi: 53
Iscritto: 26/07/2009

Postato alle 19:25
Giovedì, 13/08/2009

si ho provato ma non funziona....
quello che ce scritto nel codice...

ruggy94 (Member)
Guru

Messaggi: 890
Iscritto: 21/04/2008

Postato alle 20:47
Giovedì, 13/08/2009

Testo quotato

Postato originariamente da maxas:
quello che ce scritto nel codice...

Leva un attimo il try...catch e vediamo quale eccezione si presenta esattamente.

maxas (Normal User)
Rookie

Messaggi: 53
Iscritto: 26/07/2009

Postato alle 21:16
Giovedì, 13/08/2009

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

Codice sorgente - presumibilmente VB.NET

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' dichiara una nuova collezione
        Dim IpCollection As New Collection
        ' ottiene l'indirizzo IP dal dominio inserito
        Dim i As Integer
        Dim ipE As Net.IPHostEntry = System.Net.Dns.GetHostEntry("http://it.msn.com/")
        Dim IpA() As Net.IPAddress = ipE.AddressList
        ' ottiene tutti gli indirizzi IP relativi al dominio
        For i = 0 To IpA.GetUpperBound(0)
            IpCollection.Add(IpA(i).ToString)
        Next
        ' restituisce il primo IP ottenuto
        Dim AddressIP As String
        AddressIP = IpCollection.Item(0)  '<<<<dice L'indice dell'insieme deve essere compreso tra 1 e la dimensione dell'insieme.
    End Sub
End Class

ruggy94 (Member)
Guru

Messaggi: 890
Iscritto: 21/04/2008

Postato alle 22:09
Giovedì, 13/08/2009

E allora il problema è che hai inserito indice 0.

maxas (Normal User)
Rookie

Messaggi: 53
Iscritto: 26/07/2009

Postato alle 22:44
Giovedì, 13/08/2009

e ke devo fare...

ruggy94 (Member)
Guru

Messaggi: 890
Iscritto: 21/04/2008

Postato alle 22:45
Giovedì, 13/08/2009

Testo quotato

Postato originariamente da maxas:

e ke devo fare...

Codice sorgente - presumibilmente Plain Text

AddressIP = IpCollection.Item(1)

Pagine: [ 1 2 3 ]