Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - trovare l'ip di un sito
Forum - C# / VB.NET - trovare l'ip di un sito - Pagina 2

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
maxas (Normal User)
Rookie


Messaggi: 53
Iscritto: 26/07/2009

Segnala al moderatore
Postato alle 23:37
Giovedì, 13/08/2009
non funziona....

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
Postato alle 23:44
Giovedì, 13/08/2009
Testo quotato

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?

PM Quote
Avatar
VB.NET_Program_91 (Member)
Pro


Messaggi: 93
Iscritto: 10/02/2008

Segnala al moderatore
Postato alle 2:10
Venerdì, 14/08/2009
Ecco finalmente ho risolto :)
Questo è il codice corretto:
Codice sorgente - presumibilmente VB.NET

  1. Imports System.Net
  2. Imports System.Net.Sockets
  3. Public Class Form1
  4.     Dim hostentrata As IPHostEntry
  5.     Dim IPentrata As IPAddress()
  6.     Dim i As Integer
  7.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8.         Try
  9.             hostentrata = Dns.GetHostByName("www.google.it")
  10.  
  11.             IPentrata = hostentrata.AddressList
  12.  
  13.             For i = 0 To IPentrata.Length - 1
  14.                 TextBox1.Text = (IPentrata(i).ToString)
  15.             Next
  16.         Catch ex As SocketException
  17.             MsgBox(ex.StackTrace.ToString)
  18.         End Try
  19.     End Sub
  20. End Class



Spero di esserti stato di aiuto :k:

PM Quote
Avatar
ProgrMan93 (Ex-Member)
Pro


Messaggi: 68
Iscritto: 25/06/2008

Segnala al moderatore
Postato alle 10:06
Venerdì, 14/08/2009
Testo quotato

Postato originariamente da maxas:

fatto l'errore me lo da dove o messo '<<<
Codice sorgente - presumibilmente C# / VB.NET

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



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

PM Quote
Avatar
maxas (Normal User)
Rookie


Messaggi: 53
Iscritto: 26/07/2009

Segnala al moderatore
Postato alle 10:49
Venerdì, 14/08/2009
funziona....^^
ma una cosa mi dice qui
Dns.GetHostByName
che e obsoleto perché con cosa dovrei cambialo per non farlo comparire

PM Quote
Avatar
ProgrMan93 (Ex-Member)
Pro


Messaggi: 68
Iscritto: 25/06/2008

Segnala al moderatore
Postato alle 11:59
Venerdì, 14/08/2009
Fai così:

Codice sorgente - presumibilmente VB.NET

  1. Imports System.Net
  2. Imports System.Net.Sockets
  3. Public Class Form1
  4.     Dim hostentrata As IPHostEntry
  5.     Dim IPentrata As IPAddress()
  6.     Dim i As Integer
  7.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8.         Try
  9.             'Al posto si Dns.GetHostByName metti Dns.GetHostEntry
  10.             hostentrata = Dns.GetHostEntry("www.google.it")
  11.  
  12.             IPentrata = hostentrata.AddressList
  13.  
  14.             For i = 0 To IPentrata.Length - 1
  15.                 TextBox1.Text = (IPentrata(i).ToString)
  16.             Next
  17.         Catch ex As SocketException
  18.             MsgBox(ex.StackTrace.ToString)
  19.         End Try
  20.     End Sub
  21. End Class


PM Quote
Avatar
maxas (Normal User)
Rookie


Messaggi: 53
Iscritto: 26/07/2009

Segnala al moderatore
Postato alle 13:01
Venerdì, 14/08/2009
funziona ma ce una cosa che non riesco  a capire
tipo cosi funziona
Codice sorgente - presumibilmente VB.NET

  1. Imports System.Net
  2. Imports System.Net.Sockets
  3. Public Class Ipsito
  4.  
  5.     Private Sub Ipsito_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         Dim hostentrata As IPHostEntry
  7.         Dim IPentrata As IPAddress()
  8.         Dim i As Integer
  9.         Me.Text = Form1.Text
  10.         Try
  11.             hostentrata = Dns.GetHostEntry("www.google.it")
  12.             IPentrata = hostentrata.AddressList
  13.             For i = 0 To IPentrata.Length - 1
  14.                 MsgBox(IPentrata(i).ToString)
  15.             Next
  16.         Catch ex As SocketException
  17.             MsgBox(ex.StackTrace.ToString)
  18.         End Try
  19.     End Sub
  20. End Class



e inceve cosi no
Codice sorgente - presumibilmente VB.NET

  1. Imports System.Net
  2. Imports System.Net.Sockets
  3. Public Class Ipsito
  4.  
  5.     Private Sub Ipsito_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         Dim hostentrata As IPHostEntry
  7.         Dim IPentrata As IPAddress()
  8.         Dim i As Integer
  9.         Me.Text = Form1.Text
  10.         Try
  11.             hostentrata = Dns.GetHostEntry(Form1.indirizzo.Text)
  12.             IPentrata = hostentrata.AddressList
  13.             For i = 0 To IPentrata.Length - 1
  14.                 TextBox1.Text = (IPentrata(i).ToString)
  15.             Next
  16.         Catch ex As SocketException
  17.             MsgBox(ex.StackTrace.ToString)
  18.         End Try
  19.     End Sub
  20. End Class


PM Quote
Avatar
VB.NET_Program_91 (Member)
Pro


Messaggi: 93
Iscritto: 10/02/2008

Segnala al moderatore
Postato alle 14:42
Venerdì, 14/08/2009
Testo quotato

Postato originariamente da maxas:
e inceve cosi no
Codice sorgente - presumibilmente VB.NET

  1. Imports System.Net
  2. Imports System.Net.Sockets
  3. Public Class Ipsito
  4.  
  5.     Private Sub Ipsito_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         Dim hostentrata As IPHostEntry
  7.         Dim IPentrata As IPAddress()
  8.         Dim i As Integer
  9.         Me.Text = Form1.Text
  10.         Try
  11.             hostentrata = Dns.GetHostEntry(Form1.indirizzo.Text)
  12.             IPentrata = hostentrata.AddressList
  13.             For i = 0 To IPentrata.Length - 1
  14.                 TextBox1.Text = (IPentrata(i).ToString)
  15.             Next
  16.         Catch ex As SocketException
  17.             MsgBox(ex.StackTrace.ToString)
  18.         End Try
  19.     End Sub
  20. End Class



Basta inserire un controllo button e si risolve tutto :)

In questo modo:
Codice sorgente - presumibilmente VB.NET

  1. Imports System.Net
  2. Imports System.Net.Sockets
  3. Public Class Ipsito
  4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  5.         Dim hostentrata As IPHostEntry
  6.         Dim IPentrata As IPAddress()
  7.         Dim i As Integer
  8.         Me.Text = Me.Text
  9.         Try
  10.             hostentrata = Dns.GetHostEntry(TextBox2.Text)
  11.             IPentrata = hostentrata.AddressList
  12.             For i = 0 To IPentrata.Length - 1
  13.                 TextBox1.Text = (IPentrata(i).ToString)
  14.             Next
  15.         Catch ex As SocketException
  16.             MsgBox(ex.StackTrace.ToString)
  17.         End Try
  18.     End Sub
  19. End Class



Spero ti sia stato d' aiuto :)

Ultima modifica effettuata da VB.NET_Program_91 il 14/08/2009 alle 14:43
PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo