Resolveur de dns

Télécharger le projet
Commenter

Description

Resolveur de DNS (à partir d'une IP style 192.168.0.1)
Ce code est basé sur une DLL trouvé sur le net.
En fait je vous livre le code, et l'outil qui va bien, le tout est installable et assez stable.

Source / Exemple : 


Private Sub cmd_go_Click()
Dim Source As String
Dim Dest As String
Dim MyDns As dnsFinder.DNS

Set MyDns = New dnsFinder.DNS
Source = frm_main.txt_dns.Text
Dest = MyDns.getDNS(Source)
MsgBox Dest
Clipboard.Clear
Clipboard.SetText Dest

Set MyDns = Nothing

End Sub

Conclusion :


Pour que ca marche oubliez pas d'aller dans Références et d'ajouter la DLL DNSFinder.dll, je peux vous epliquer comment elle marche en ASP et vous faire voir comment faire un tracer facile.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (Clem2k)