DNS, PING, TRACEROUTE SANS OCX, SANS DLL, SANS SHELL
pokbizou
Messages postés
13
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
13 novembre 2003
-
24 mai 2002 à 09:03
cs_gowapinou Messages postés 1 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 21 août 2006 - 21 août 2006 à 16:42
cs_gowapinou Messages postés 1 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 21 août 2006 - 21 août 2006 à 16:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3421-dns-ping-traceroute-sans-ocx-sans-dll-sans-shell
https://codes-sources.commentcamarche.net/source/3421-dns-ping-traceroute-sans-ocx-sans-dll-sans-shell
21 août 2006 à 16:42
J'ai recherché sur le Net des informations sur une solution de remplacement, mais personne ne répond.
Si vous avez une nouvelle méthode, je suis preneur.
GOWAP
9 févr. 2005 à 21:30
30 août 2004 à 23:28
7 avril 2004 à 11:30
11 avril 2003 à 02:40
Good job Proger !
1 juil. 2002 à 17:44
HopeAddr = GetEcho(GetIPbinaryVal(Adresse), 10, CLng(i), "PINGECHO", CLng(HopeAddr))
et la compilation fonctionne.
28 juin 2002 à 16:32
Debogage :
à la ligne
HopeAddr = GetEcho(GetIPbinaryVal(Adresse), 10, i, "PINGECHO", HopeAddr)
la remplacer par
HopeAddr = GetEcho(GetIPbinaryVal(Adresse), 10, Clng(i), "PINGECHO", HopeAddr)
voila.
28 juin 2002 à 15:13
Quelqu'un d'autre a-t-il eu ce problème ?
22 juin 2002 à 12:14
Supposons : c'est le nom de la machine que tu appelles "la dns" ?
C'est le nom que Windows donne à la machine (sic : "nom de l'ordinateur"), ce n'est en aucun cas le nom dns !! C'est pour ca que ça ne marchera jamais avec mon code!
Un nom de machine ne peut être résolue qu'en réseau local (et uniquement si le protocole tcp/ip seul est activé...) donc oublie pour l'avoir sur internet.
Bref, pour ton problème, j'ai le regret de te dire que c'est quasiment impossible de retrouver l'adresse IP du gars sur internet en fonction du nom de sa machine. Voila tout. ("Quasiment", car il existe une solution, mais ça ressemble a du hack, alors chuuuut ;p )
13 juin 2002 à 09:47
c'que j'voudrais c a partir de la dns de qqn avoir son ip internet et pouvoir brancher un chat avec lui par exemple.
12 juin 2002 à 22:36
12 juin 2002 à 22:35
cela signifie que ta machine a plusieurs IP... houla! Malheureusement mon code renverra prioritairement la première adresse IP de la première carte réseau physique de la machine.
Bon, bon ok je vais rajouter la fonction qui va bien...
GetEveryIP (hostnam$, lesIP() As Long) As Long
'le début est comme GetIPofHost() (faites donc un copier-coller vous-même :p)
'renvoie la taille du tableau lesIP() avec une adresse IP type Long dedans
'lesIP() contiendra les IP de la machines. lesIP(1) contenant la première IP, etc.
If exeAPI <> 0
For i = 0 To 250 'on cherche jusqu'a 250 autres IP pour la même machine
RtlMoveMemory exeAPI, ByVal HostInfo.hAddrList + (i * 4), 4
If exeAPI <> 0 Then
RtlMoveMemory IPv4Adr, ByVal exeAPI, HostInfo.hLen
ReDim lesIP(i + 1) As Long
lesIP(i + 1) = IPv4Adr
Else
Exit For
End If
Next i
GetEveryIP = i + 1
Else
GetEveryIP = 0
End If
End Function
12 juin 2002 à 19:31
alwaysgetIP marche pas.
29 mai 2002 à 13:55
24 mai 2002 à 23:17
Tp = GetEcho(GetIPofCible(Adresse), 2000, sTTL, Space(SzPing), BadAdr)
Par contre le seul inconvénient c'est qu'il met des espaces à la place de tes A ... donc si ça peut jouer ... on peut faire autre chose ...
Dim BufferPing as String
BufferPing = Space(SzPing)
For i = 1 to len(BufferPing)
Mid(BufferPing, i, 1) = "A"
DoEvents
next i
Tp = GetEcho(GetIPofCible(Adresse), 2000, sTTL, BufferPing, BadAdr)
La boucle + le DoEvents ralentissent le prog mais le doevents c'est pour éviter que le prog plante vu le nombre de lettres à changer ...
Je n'ait pas éssayé ce que je dis mais je pense que ça doit fonctionner , si le pb du bug vient de la fonction String ...
24 mai 2002 à 18:44
Par la même occasion j'ai remarqué qu'en mettant des tailles de l'ordre de 2000-3000 octets, le programme renvoyai "0 ms" de ping. Le bug est corrigé, et à l'heure où j'écris, j'ai remis à jour le code ci-dessus et dans le zip.
Si tu envois un echo de taille vraiment énorme, ingérable par le prog, PingDef renverra "Err" .
24 mai 2002 à 13:59
Merci d'avance
24 mai 2002 à 10:46
t$ = PingDef(ip$, 1500)
Function PingDef(Adresse As String, SzPing As Long) As String
Dim BadAdr As Long
Dim Tp As Long
Tp = GetEcho(GetIPofCible(Adresse), 2000, 128, String(SzPing, "A"), BadAdr)
Select Case Tp
Case -2
PingDef = "Err"
Case -1
PingDef = "Timeout"
Case Else
PingDef = Tp & " ms"
End Select
End Function
24 mai 2002 à 09:03
Comment faire?
Merci