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
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.
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.