[A] Problème, IP , détection

Version imprimable

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

21/02/2008, 19h38
imparator_42

[A] Problème, IP , détection

Comment je pourrais obtenir l'adresse ip d'un pc?
J'ai déja une solution et je voudrais d'autres... Merci beaucoup si vous en savez , mettez les ici svp.

Code:

label1.caption = Winsock1.LocalIP

Et à part ça , j'ai un très gros beug ...quand j'utilise : Winsock1.LocalIP il m'affiche pas mon vrai IP, enfin j'ai un routeur et il m'affiche un IP commençant par 192.... et en vrai mon IP commence par 83....

Est-ce que quelqu'un peut m'aider? Merci d'avance
21/02/2008, 19h46
SfJ5Rpw8

Citation:

Envoyé par imparator_42

C... j'ai un très gros beug....

tu est sur ...? Il y as des chances que ton ip locale .. commence bien par 192...

;)

par contre pour récupérer l'adresse IP attribué à ton routeur sur internet... j'ai pas cela j'ai pas la solutions sous la main ..:(
21/02/2008, 19h56
DarkVader

Google+IP+WMI=résultats
21/02/2008, 20h13
imparator_42

Vous connaissez le site monip.net

Ce site me montre ip de mon routeur... (83....)
et quand j'utilise Winsock1.LocalIP il me montre quelque chose de genre 192....

comment le site peut obtenir mon vrai ip et pas mon programme lol :(:(
21/02/2008, 20h15
Delbeke

Parce que tu connfonds ton ip privée et ton ip publique
Ton ip privée est celle dans ton reseau local. L'ip publique t'a été attribuée par ton fournisseur d'acces à internet. c'est cette derrniere qui est exposée à internet
21/02/2008, 20h35
imparator_42

Désolé DarkVader mais je n'est pas trouver le résultat ... :(:(
21/02/2008, 21h11
DarkVader

Citation:

Envoyé par imparator_42

Vous connaissez le site monip.net

Ce site me montre ip de mon routeur... (83....)
et quand j'utilise Winsock1.LocalIP il me montre quelque chose de genre 192....

comment le site peut obtenir mon vrai ip et pas mon programme lol :(:(

Via un script php du style de celui-ci
Ce n'est pas la plus élégante mais c'est aussi la plus facile

Citation:

Envoyé par imparator_42

Désolé DarkVader mais je n'est pas trouver le résultat ... :(:(

C'est que tu n'as du chercher longtemps- le nombre de scripts utilisant WMI pour récupérer l'IP sont légion
ne serait-ce également que ceux cités dans la FAQ => http://vb.developpez.com/faq/index.php?rechercher=ip
21/02/2008, 21h30
imparator_42

Comment obtenir l'adresse IP de la machine ?
J'ai regardé ça et ça me créé un problème :
Syntax error on me montrons ceci : Do While (ptr1 <> 0)

http://vb.developpez.com/faq/?page=Reseau#ip
21/02/2008, 21h39
ProgElecT

Ou il y a un bug, remplace par

Code:

Do While (ptr1 > 0)

&lt est une signe special pour indiquer que le caractére suivant > est non une fin de balise

Un moderateur et/ou responsable DVP a ne pas douter, ferat la correction dans le code de la page.
21/02/2008, 21h40
SfJ5Rpw8

enlève le < ... je corrige.. :fleche: FAIT

mais ce code devrai te donner une adresse du style 192.168.0.2
;)
21/02/2008, 21h55
imparator_42

Je vais l'essayer .. maintenant je ne peux pas l'essayer car je n'ai que 1 seul IP.. donc demain ou après demain je l'essaye... si jamais quelqu'un a routeur.... merci pour votre aide :)

si c'est l'adresse de ton routeur sur internet ... une solution est de la lire sur un site ...

peu-être sur ton site .. http://monip.net ..

où comme dans la Faq python :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'
' rajouter la référence à Microsoft.XML ....
'
Private Sub Command1_Click()
Dim xmlDoc As New MSXML2.DOMDocument
Dim oIP As MSXML2.IXMLDOMElement
xmlDoc.async = "false"
If xmlDoc.Load("http://www.ippages.com/xml/?from=showmyip.com") Then
    On Error Resume Next
    Set oIP = xmlDoc.selectSingleNode("/ip_address/ip")
    If Not oIP Is Nothing Then
        MsgBox ("Adresse IP : " & oIP.Text)
    Else
        MsgBox "Erreur sur lecture adresseIP"
    End If
Else
    MsgBox "Impossible d' accéder au site"
End If
End Sub

Citation:

Envoyé par imparator_42

Vous connaissez le site monip.net

Non je ne connaissai pas.
Sur un Form, 1 CommandButton et 2 Labels AutoSeize = True

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
Option Explicit
'nécéssite d'activer la référence Microsoft Internet Controls (ieframe.dll)
Dim IE As InternetExplorer
'nécéssite d'activer la référence Microsoft HTML Objects Library (MSHTML.TLB)
Dim Doc As HTMLDocument
Dim Msg$
Dim Linfos As String
Dim TextRech As String
Dim DebutOu As Integer, FinOu As Integer
Private Sub Command1_Click()
Set IE = New InternetExplorer
Msg$ = "http://monip.net/"
On Error Resume Next
IE.navigate Msg$
Do While IE.readyState <> READYSTATE_COMPLETE
 DoEvents
 Me.Caption = IE.statusText
Loop
Set Doc = IE.document
Linfos = Doc.body.innerHTML
'pour debug
'Clipboard.Clear: DoEvents: Clipboard.SetText Doc.body.innerHTML
DoEvents: Doc.Close: Set Doc = Nothing
DoEvents: IE.Quit: Set IE = Nothing
TextRech = "f5f5f5><SPAN class=gen>"
If InStr(1, Linfos, TextRech) <> 0 Then
 DebutOu = InStr(1, Linfos, TextRech) + Len(TextRech)
 TextRech = "</SPAN></TD></TR>"
 If InStr(DebutOu, Linfos, TextRech) <> 0 Then
  FinOu = InStr(DebutOu, Linfos, TextRech)
  Label1 = Mid$(Linfos, DebutOu, FinOu - DebutOu)
  Me.Caption = "Recuperation IP"
  TextRech = "Adresse Internet : <B>"
  DebutOu = FinOu + Len(TextRech)
  If InStr(DebutOu, Linfos, TextRech) <> 0 Then
   DebutOu = InStr(DebutOu, Linfos, TextRech) + Len(TextRech)
   TextRech = "</B></SPAN></TD></TR>"
   If InStr(DebutOu, Linfos, TextRech) <> 0 Then
    FinOu = InStr(DebutOu, Linfos, TextRech)
    Label2 = Mid$(Linfos, DebutOu, FinOu - DebutOu)
    Me.Caption = "Recuperation compléte"
    Else
    Me.Caption = "echec"
   End If
  End If
  Else
  Me.Caption = "echec"
 End If
 Else
 Me.Caption = "echec"
End If
End Sub

Là s'est bien l'IP fixe ou l'IP attribuée de façon dynamique par le prestataire de service.
Ce n'est pas un code tout cuit ;), il peut fonnctionner du 1° coup, ou bien tu devras adapter.

Je viens de voir que bbil a posté avant moi, tu tries :lol:

22/02/2008, 00h16
imparator_42

Bon pour bbil .. je n'ai pas trouvé la référence à Microsoft.XML ....

et pour progElect .. regardez l'image svp :

http://hebergement-images.voiloo.net...18fef28b0f.jpg
22/02/2008, 07h12
ProgElecT

'nécéssite d'activer la référence Microsoft Internet Controls (ieframe.dll) ou (SHDOCVW.DLL)
Dim IE As InternetExplorer
'nécéssite d'activer la référence Microsoft HTML Objects Library (MSHTML.TLB)
Dim Doc As HTMLDocument
22/02/2008, 09h36
DarkVader

Utiliser un script tiers, c'est ben bof pour peu que le propriétaire le supprime ou le modifie
autant en mettre un en ligne comme indiqué dans mon post précédent
surtout qu'il suffira alors de seulement lire la page si le script ne retourne que l'IP.
22/02/2008, 14h29
SfJ5Rpw8

Citation:

Envoyé par imparator_42

Bon pour bbil .. je n'ai pas trouvé la référence à Microsoft.XML .......

étonnant quand même tu as cherché .. ou ..? ( menu projet/référence..)
22/02/2008, 14h31
imparator_42

P.S:Juste pour dire j'utilise VB en anglais....
Bon moi j'ai activé la référence Microsoft Internet Controls
et activer la référence Microsoft HTML Objects Library

(mais je ne sais pas trop ça sers ça : => ieframe.dll et MSHTML.TLB , vous pourriez juste m'expliquer...)

Et voila , je les ai activé, ça n'a pas marché... puis je les ai ajouté sur le form (Web browser et Scriptlet)... et ça me donne aucun résultat... snif
22/02/2008, 14h59
SfJ5Rpw8

quand tu "active" une référence .. tu as le nom de la dll associé qui s'affiche en bas de la fenêtre ... ;)

bon maintenant c'est quoi qui ne marche pas ... sur quel code..?
22/02/2008, 15h22
imparator_42

Toujours le même problème : Set IE = New InternetExplorer

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