[VB6]Résolution d'IP

Version imprimable

Voir 40 message(s) de cette discussion en une page

31/12/2003, 14h32
abelman

C'est pareil comme pour le ping. ça doit être le firewall
31/12/2003, 14h37
Sadneth

Presque gagné !!!

J'ai fait ça :

Code:

tracert -h 1 www.lesacteursdelombre.com

Pour info, c'est mon site qui est hébergé par OnLine.net

et j'ai eu pour résultat :

Citation:

D‚termination de l'itin‚raire vers web.pro.proxad.net [212.27.37.71]

avec un maximum de 1 sautsÿ:

1 68 ms 71 ms 71 ms lns06.par.net.tiscali.fr [212.129.20.226]

Itin‚raire d‚termin‚.

Mais quand je fais ça :

Code:

tracert -h 1 www.microsoft.fr

J'ai eu :

Citation:

D‚termination de l'itin‚raire vers www.microsoft.fr [195.6.184.9]

avec un maximum de 1 sautsÿ:

1 69 ms 71 ms 71 ms lns06.par.net.tiscali.fr [212.129.20.226]

Itin‚raire d‚termin‚.

Donc lns06.par.net.tiscali.fr [212.129.20.226] , c'est juste mon fournisseur d'accés... Mais ca ne doit pas être loin...
31/12/2003, 14h39
abelman

Envlève le nombre de saut dans ta commande
31/12/2003, 14h50
Sadneth

Voilà

Quand je ne limite pas le saut :

Citation:

D‚termination de l'itin‚raire vers www.microsoft.fr [195.6.184.9]

avec un maximum de 30 sautsÿ:

1 67 ms 71 ms 71 ms lns06.par.net.tiscali.fr [212.129.20.226]

2 76 ms 71 ms 71 ms vlan22.gw2.par.net.tiscali.fr [213.36.82.62]

3 77 ms 71 ms 71 ms ge-1-1-1-0.bb2.par.net.tiscali.fr [213.36.82.102]

4 68 ms 71 ms 71 ms so-1-0-0-0.bb1.par.net.tiscali.fr [212.129.8.1]

5 88 ms 71 ms 71 ms so-0-0-0-0.bb1.cou.net.tiscali.fr [212.129.8.25]

6 77 ms 71 ms 71 ms so-0-0-0-0.bb1.lil.net.tiscali.fr [212.129.8.98]

7 77 ms 71 ms 83 ms fe0-0-63.lil-te.net.tiscali.fr [212.129.17.26]

8 77 ms 82 ms 83 ms fe01-pictime-gw.fr.cw.net [195.154.227.65]

9 * * * D‚lai d'attente de la demande d‚pass‚.

10 * * * D‚lai d'attente de la demande d‚pass‚.

11 * * * D‚lai d'attente de la demande d‚pass‚.

12 * * * D‚lai d'attente de la demande d‚pass‚.

13 * * * D‚lai d'attente de la demande d‚pass‚.

14 * * * D‚lai d'attente de la demande d‚pass‚.

15 * * * D‚lai d'attente de la demande d‚pass‚.

16 * * * D‚lai d'attente de la demande d‚pass‚.

17 * * * D‚lai d'attente de la demande d‚pass‚.

18 * * * D‚lai d'attente de la demande d‚pass‚.

19 * * * D‚lai d'attente de la demande d‚pass‚.

20 * * * D‚lai d'attente de la demande d‚pass‚.

21 * * * D‚lai d'attente de la demande d‚pass‚.

22 * * * D‚lai d'attente de la demande d‚pass‚.

23 * * * D‚lai d'attente de la demande d‚pass‚.

24 * * * D‚lai d'attente de la demande d‚pass‚.

25 * * * D‚lai d'attente de la demande d‚pass‚.

26 * * * D‚lai d'attente de la demande d‚pass‚.

27 * * * D‚lai d'attente de la demande d‚pass‚.

28 * * * D‚lai d'attente de la demande d‚pass‚.

29 * * * D‚lai d'attente de la demande d‚pass‚.

30 * * * D‚lai d'attente de la demande d‚pass‚.

Itin‚raire d‚termin‚.
31/12/2003, 14h51
Admin

et en desactivant ton firewall ? rassure moi tu passe pas par un proxi ?
02/01/2004, 12h09
Sadneth

euhhhhh

Là en fait, tu parles en charabia.
J'ai 3 firewall d'activé, c'est tout :
- Celui de XP
- Celui de Norton
- Et Kerio

Et j'ai pas à me plaindre honnêtement... Après Proxi, euh, c'est trop pr moi là :oops:

Re: Résolution d'IP

Citation:

Envoyé par Sadneth

Bonjour,
Je voudrais résoudre une adresse IP afin de récupérer le contenu dans une variable.
MaChaine = MaSuperFonctionDeResolutionIP("213.36.226.25")

Dans un module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 
Option Explicit
 
Private Const WSADescription_Len As Long = 256
Private Const WSASYS_Status_Len As Long = 128
Private Const WS_VERSION_REQD As Long = &H101
Private Const IP_SUCCESS As Long = 0
Private Const SOCKET_ERROR As Long = -1
Private Const AF_INET As Long = 2
 
Private Type WSADATA
  wVersion As Integer
  wHighVersion As Integer
  szDescription(0 To WSADescription_Len) As Byte
  szSystemStatus(0 To WSASYS_Status_Len) As Byte
  imaxsockets As Integer
  imaxudp As Integer
  lpszvenderinfo As Long
End Type
 
Private Declare Function WSAStartup Lib "wsock32" _
  (ByVal VersionReq As Long, _
   WSADataReturn As WSADATA) As Long
 
Private Declare Function WSACleanup Lib "wsock32" () As Long
 
Private Declare Function inet_addr Lib "wsock32" _
  (ByVal s As String) As Long
 
Private Declare Function gethostbyaddr Lib "wsock32" _
  (haddr As Long, _
   ByVal hnlen As Long, _
   ByVal addrtype As Long) As Long
 
Private Declare Sub CopyMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (xDest As Any, _
   xSource As Any, _
   ByVal nbytes As Long)
 
Private Declare Function lstrlen Lib "kernel32" _
   Alias "lstrlenA" _
  (lpString As Any) As Long
 
 
Public Function SocketsInitialize() As Boolean
 
   Dim WSAD As WSADATA
 
   SocketsInitialize = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS
 
End Function
 
 
Public Sub SocketsCleanup()
 
   If WSACleanup() <> 0 Then
       MsgBox "Windows Sockets error occurred in Cleanup.", vbExclamation
   End If
 
End Sub
 
 
Public Function GetHostNameFromIP(ByVal sAddress As String) As String
 
   Dim ptrHosent As Long
   Dim hAddress As Long
   Dim nbytes As Long
 
   If SocketsInitialize() Then
 
     'convert string address to long
      hAddress = inet_addr(sAddress)
 
      If hAddress <> SOCKET_ERROR Then
 
        'obtain a pointer to the HOSTENT structure
        'that contains the name and address
        'corresponding to the given network address.
         ptrHosent = gethostbyaddr(hAddress, 4, AF_INET)
 
         If ptrHosent <> 0 Then
 
           'convert address and
           'get resolved hostname
            CopyMemory ptrHosent, ByVal ptrHosent, 4
            nbytes = lstrlen(ByVal ptrHosent)
 
            If nbytes > 0 Then
               sAddress = Space$(nbytes)
               CopyMemory ByVal sAddress, ByVal ptrHosent, nbytes
               GetHostNameFromIP = sAddress
            End If
 
         Else: MsgBox "Call to gethostbyaddr failed."
         End If 'If ptrHosent
 
      SocketsCleanup
 
      Else: MsgBox "String passed is an invalid IP."
      End If 'If hAddress
 
   Else: MsgBox "Sockets failed to initialize."
   End If  'If SocketsInitialize
 
End Function

Dans un form: deux textBox, Text1 et Text2 et un bouton COmmand1:

Code:

1
2
3
Private Sub Command1_Click()
   Text2.Text = GetHostNameFromIP(Text1.Text)
End Sub

02/01/2004, 16h40
Sadneth

merci

Merci, mais celà ne répond pas aux problèmes...

Je me répète parce que je sais pas si je me suis bien expliqué :
J'ai besoin de faire IpConfig

Mais pas sur mon IP, mais sur les IP des gens qui viennent sur mon site.
02/01/2004, 16h43
grafikm_fr

J'ai pas compris :(

Tu veux, connaissant l'IP de qqun, trouver son hostname ou quoi???
02/01/2004, 16h46
Sadneth

eheh

Je comprend :

Ma question est : y'a-t-il moyen de savoir de quel fournisseur vient une telle IP.

Si je fais : MaSuperFonction("UNE IP D'UNE NET")

Et bien il me sort un tas d'information dont celle du fournisseur d'accés de l'IP demandé...
02/01/2004, 16h48
grafikm_fr

Ben si tu fais la fonction que je t'ai mis,
par exemple si je resous "123.123.122.121" et que ca te sort

jesaispasquoi.wanadoo.fr

T'as moyen de savoir que ca vient de Wanadoo, non???
02/01/2004, 16h50
Sadneth

En effet

Oui, en effet, ca serait bon comme ça... Mais là, quand j'essai sur mon IP, il me sort le nom de mon serveur...
02/01/2004, 16h54
abelman

Re: En effet

Citation:

Envoyé par Sadneth

Oui, en effet, ca serait bon comme ça... Mais là, quand j'essai sur mon IP, il me sort le nom de mon serveur...

Oui parce qu'il voit ton ip du réseau local
02/01/2004, 17h34
Sadneth

euhhh

C'est bizarre, car je lui donne mon IP internet et non 127.1.1...
03/01/2004, 20h46
hpfx

Re: euhhhhh

Citation:

Envoyé par Sadneth

Là en fait, tu parles en charabia.
J'ai 3 firewall d'activé, c'est tout :
- Celui de XP
- Celui de Norton
- Et Kerio

rien que ca !? 3 FW ? je pensais pas que c'etait possible....

Citation:

Envoyé par Sadneth

Ca reste un problème non résolu pour moi actuellement. J'ai déjà vu ça sur des sites professionnels et j'aimerais bien savoir comment ils font... lol

bref, pour ton probleme, voici ce que je pense :

ce n'est pas possible.
ce dont tu parle (site professionnel qui affichent le nom de ton fournisseur) est different. en effet il s'agit de SITE web utilisant un PROTOCOLE (HTTP)
il y a des paquet qui pertent de chez toi (ta demande d'URL de ton browser) qui passent par ton fournisseur (normal) et qui arrivent sur le serveur ou la page est construite (cas de page dynamique) il est alors facile de recuperer ces info en PHP.
mais dans ton cas, tu es sur ton PC, a qui tu veux envoyer tes paquets ?
il y aurait bien une astuce, fait une page web, heberges-là chez free par ex. fait là en PHP et fait afficher juste les info du client (celui qui surf), toutes les info que tu veux, ensuite dans ton appli tu fait un socket qui va chercher cette adresse et en retour tu a le contenu de la page web, qu'il te reste a traiter, voilà.

en tout etat de cause il n'existe AUCUNE commande dos pour ton probleme, nslookup, net, ping, ipconfig, nbtstat et consors NE sont pas dans une problematique FAI, ils gerent des elements reseaux, un point c'est tout.

voilà.
03/01/2004, 20h57
hpfx

suite

Et c'est un peu hors sujet, mais je me permet de vous donner cette adresse tres sympatique pour ceux qui voudrait recuperer des info sur leur config reseau (un peu comme au debut de ce thread quoi..)

http://vbnet.mvps.org/code/network/getinterfacetable.htm
c'est de l'excellentissime site vbnet, son seul defaut est d'être en anglais :)

et aussi puisque ca été abordé dans le thread aussi : comment pinger en VB6 (sans passer par des commande dos, je préfere)
http://vbnet.mvps.org/code/internet/ping.htm
http://vbnet.mvps.org/code/internet/pingbyhostname.htm

ce site est specialisés dans les API, a eviter si vous êtes alergiques aux API.

voilà, bonne année !!!!
03/01/2004, 23h45
Sadneth

Et bien si

Sisi, c'est tout à fait possible et grafikm_fr m'a donné la solution.
Tu peux faire ce que tu veux à la base. Il n'y a aucune différence entre un hébergeur comme free ou comme mon propre serveur (enfin PC, je te l'accorde). Mais mon serveur est sous IIS et le fonctionnement est identique à un hébergeur professionnel.

Après pour avis perso, je ne considère pas Free comme professionnel, ca reste du gratuit et nous ne pouvons pas leur demander la lune (fonction Mail bloquée)

Ensuite pour info, j'étais en PHP sur mon site à la base et je suis développeur ASP de formation et je préfère de loin faire de l'ASP au PHP. Ce que tu peux faire en PHP, tu peux le faire aussi en ASP. J'ai décidé de faire tout ça en ASP, car mes possibilités sont bien + grandes. Pour être franc, je prend mon pied et plus les problèmes sont difficiles, plus je m'éclate.

Le problème de base a été résolu pour ma part. Le gars vient sur mon site, il poste son message sur mon libre d'or. Hop, je flague son IP et hop, je résous son IP pour savoir de quel fournisseur il vient. Le but ? Bah comme je l'avais dit, si un gros con m'insulte, je verrai d'où il vient... C'était juste pour ça et je te prie de me croire, ca me servira bien à un moment t...

Merci de ta participation ;)
04/01/2004, 00h03
hpfx

ha, en fait j'avais pas compris que tu faisais de l'ASP !

je croyait que tu devellopais un programme en VB et c'est tout.
mais en fait ta machine joue le role d'un serveur web (ca change tout, car tu recoit des informations de la part de IIS (idem apache) qui (on va dire) viennent de l'utilisateur... (cf mon post avec HTTP), dans ce cas tu te situe dans la situation que je decrit (serveur web, free ...etc)

j'avais pas compris.
moi j'ai parlé de PHP parce que je connais mieux le PHP que l'ASP, c'est tout, c'etait pas pour dire que c'est mieux ou pas...

a propos de free, je suis 100% OK avec toi, je cherchais simplement une solution qui ne t'aurais rien couté (par rapport a ma mauvaise comprehention du probleme)

enfin, je suis content pour toi si tu as trouvé ton bonheur.

Voir 40 message(s) de cette discussion en une page