Discussion :

[Goshi]

Bonjour, comme le dit le titre je souhaiterais pouvoir obtenir l'url (complète de préférence) du site que l'utilisateur voit. J'ai cherché avec des mots clefs types referer, historique mais rien ne correspond à ce que je cherche.

Si quelqu'un a une iéde je prend avec grand plaisir

En attendant, je vais aller jeter un coup d'oeil du côté des sources des keyloggers, certains arivent à obtenir les sites visités, j'y trouverais peut-être mon bonheur

Merci pour l'aide 8)

[fr48545]

Bonjour,

Quelque chose dans le genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Dim ieTitle As New InternetExplorer
    Dim winShell As New ShellWindows
 
    For Each ieTitle In winShell
        Debug.Print ieTitle.LocationURL
    Next ieTitle

Faut ajouter la référence "Microsoft Internet Controls" il me semble.

[Goshi]

Merci pour l'aide. Oui, c'est certainement un truc avec cette référence mais je ne vois pas exactement ce qui pourrait aller.

Avec le code ci dessus, j'ai une erreur dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each ieTitle In winShell

qui me dit que le composant activex ne peut créer l'objet.

Une autre iéde ?

[fr48545]

Suis désolé, mais je ne sais pour quelle raison ton message d'erreur est affiché.

Je viens d'essayer avec VBA Excel, en ajoutant la référence "Microsoft Internet Controls" et cela fonctionne parfaitement.

[michelxld]

bonjour

je viens de tester la procédure et elle fonctionne effectivement tres bien en activant la référence "Microsoft Internet Controls"

dans l'editeur de macros
Menu Outils
References
coches la ligne "Microsoft Internet Controls"
cliques sur OK pour valider


bonne soiree

Michel

[Goshi]

Ca marche peut-etre en VBA mais pas en VB6

[michelxld]

rebonsoir

je viens de tester en VB6 . tout est ok : ça fonctionne aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
'Activer la référence "Microsoft Internet Controls" 
Dim ieTitle As New InternetExplorer
Dim winShell As New ShellWindows
 
For Each ieTitle In winShell
Debug.Print ieTitle.LocationURL
MsgBox ieTitle.LocationURL
Next ieTitle
End Sub

bonne soiree

Michel

[Goshi]

Hum....étrange. Je met bien en référence microsoft internet control mais j'ai une erreur et c'est toujours la même

Je vais essayer de faire compiler par quelqu'un d'autre ca me parait étrange cette histoire. Ca vient peut-etre de mon internet explorer je vois pas sinon. Je vais le réinstaller, pour tester

Enfin merci, si le code marche ca vient de moi

[Goshi]

Arf, ca marche d'un coup, je sais pas ce qui lui a pris j'ai rien changé

Merci, par contre ca donne aussi quel dossier est ouvert sur le bureau, ca m'empeche d'utiliser l'url du site visité mais c'est pas grave, en cherchant http dans les valeurs données je devrais pouvoir extraire l'url. Ou en stockant toutes les valeurs dans une list et en cherchant seulement celle qui ont http

Merci pour l'aide



edition : voila le code modifié qui donne unqiuement l'url visitée si ca peut servir a d'autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
'Activer la référence "Microsoft Internet Controls"
Dim ieTitle As New InternetExplorer
Dim winShell As New ShellWindows
 
For Each ieTitle In winShell
Text1.Text = ieTitle.LocationURL
pos = InStr(1, Text1.Text, "http")
If pos <> 0 Then
Debug.Print ieTitle.LocationURL
MsgBox Text1.Text
End If
Next ieTitle
 
End Sub