by
4. agosto 2008 22.17
Chissà quante volte ci è capitato di dover trovare l'IP di un indirizzo e non riuscire mai a trovare una funziona che consente di trovarlo. Queste poche righe di codice ci consentono di risolvere un dominio (nell'esempio vbdotnet.it) e restiuirne il primo IP configurato.
1: Try
2: ' dichiara una nuova collezione
3: Dim IpCollection As New Collection
4:
5: ' ottiene l'indirizzo IP dal dominio inserito
6: Dim i As Integer
7:
8: Dim ipE As Net.IPHostEntry = System.Net.Dns.GetHostEntry("vbdotnet.it")
9: Dim IpA() As Net.IPAddress = ipE.AddressList
10:
11: ' ottiene tutti gli indirizzi IP relativi al dominio
12: For i = 0 To IpA.GetUpperBound(0)
13: IpCollection.Add(IpA(i).ToString)
14: Next
15:
16: ' restituisce il primo IP ottenuto
17: Dim AddressIP As String
18: AddressIP = IpCollection.Item(0)
19: Catch ex As Exception
20: MsgBox("An error has occured")
21: End Try
Come vedi, non sembra difficile :)
Sottoscrivi