Soyez le premier à donner votre avis sur cette source.
Vue 11 639 fois - Téléchargée 656 fois
'tout d'abord ajouter cette reference au tout debut de votre code : Imports System.Net 'ensuite declarer ces variables globales et cette function Dim hName As String Dim hIp() As String Dim Halias() As String Dim nbrIP As Integer Dim nbralias As Integer Public Function getinfo(ByVal HostOrIp As String) As Boolean 'Le nom d'hote est stocké dans la variable Hname 'Si l'host renvoie plusieurs addresse, ces dernieres sont placées dans le tableau a une seule dimension HIp. 'Pareil pour les alias dans Halias Try Dim resolver As IPHostEntry = Dns.Resolve(HostOrIp) Dim n As Integer nbrIP = resolver.AddressList.GetUpperBound(0) nbralias = resolver.Aliases.GetUpperBound(0) hName = resolver.HostName ReDim halias(nbralias) For n = 0 To nbralias halias(n) = resolver.Aliases(n).ToString Next ReDim hIp(nbrIP) For n = 0 To nbrIP hIp(n) = resolver.AddressList(n).ToString Next Return True Catch ex As Exception MsgBox(ex.Message.ToString) Return False End Try End Function 'Voila comment je recupere ensuite les données, avec 1 textbox(Textbox1) et 1 listview (ListView1): Private Sub getdata_sub() Dim n As Integer ReDim hIp(0) If getinfo(TextBox1.Text) * True Then ListView1.Items.Clear() ListView1.Items.Add("Ip:") For n = 0 To hIp.GetUpperBound(0) ListView1.Items.Add(" ").SubItems.Add(hIp(n)) Next ListView1.Items.Add("Hostname:") ListView1.Items.Add(" ").SubItems.Add(hName) ListView1.Items.Add("Alias:") For n = 0 To halias.GetUpperBound(0) ListView1.Items.Add(" ").SubItems.Add(halias(n)) Next End If End Sub
Utilité 10/10
Facilité d'utilisation (commentaires ...) 10/10
Efficacitée du code 10/10
Final 10/10 ...
Merci @ toi hvb
Imports System.Management
Dim IP As String
Dim sHostName As String
Dim ipE As Net.IPHostEntry
Dim IpA() As Net.IPAddress
IP = ""
sHostName = Net.Dns.GetHostName()
ipE = Net.Dns.GetHostByName(sHostName)
IpA = ipE.AddressList()
Dim i As Integer
For i = 0 To IpA.GetUpperBound(0)
IP = IP + IpA(i).ToString()
Next i
Comme LogOff, merci d'avance...
Tu pourrais m'expliquer le fonctionnement, stp (je suis débutant) ?
Merci d'avance.
LogOff
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.