Recuperer nom d'hote dns, alias et ips via une ip ou un hostname en dot net
Soyez le premier à donner votre avis sur cette source.
Vue 11 694 fois - Téléchargée 664 fois
Description
Je pense que le nom est assez explicite, j'ai mis un exemple de base au lieu de vous filer un scanner bourré de fonction peu utiles et brouillant la lecture du code, le but etant que vous reutilisiez cette Sub.
Maj rapide le 7/04/04 a 23h53
si il y a des questions ou des remarques, vous connaissez le principe.
Maj rapide le 7/04/04 a 23h53
Source / Exemple :
'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
Conclusion :
si il y a des questions ou des remarques, vous connaissez le principe.
Codes Sources
A voir également
- Dns alias
- Alias dns - Meilleures réponses
- Vb.net alias - Meilleures réponses
- Visual Basic / VB.NET : Récupérer le nom de domaine (DNS) d'une IP - CodeS SourceS - Guide
- Visual Basic / VB.NET : Récupérer le nom de domaine (DNS) d'une IP - CodeS SourceS - Guide
- C# / .NET : Récupérer le nom de domaine (DNS) d'une IP - CodeS SourceS - Guide
- Foxpro : Résoudre un nom dns en adresse ip en utilisant ws2_32 (dll winsock) - CodeS SourceS - Guide
- Adresse ip et nom d'hote ✓ - Forum - Visual Basic 6
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.