Lire les Url

Version imprimable

03/10/2007, 17h40
Bily.sdi

Lire les Url

Bonjour a tous,

depuis un moment j'essaie de faire une applicaoin qui me permettra
d'enregistrer toutes les url tapé dans l'outil de navigateur internet

En resumé, enregistrer toutes les url des sites visités !
J'ajouterai ce module dans mon logiciel qui securise un parc informatique !
cela servira a centraliser l'interdiction de l'ouverture de certains sites !

J'ai verifier dans la base de registre mais les url enregsitrées ne correspondent pas ou tout ne s'y trouvent pas.

faite : Executer->cmd->regedit et cherchez la cle TypeUrl (je crois)

CurrentUser->software->microsoft->internet explore->TypeUrl
devrais se trouver les url mais y a pas tout !
dans
CurrentUser->software->microsoft->internet explore->main
se trouve la cle de la page de demarrage dans "StartPage"

Moi j'ai besoin de connaitre l'url tapé, directement lorsque la recherche est lancé, meme si le site ne s'ouvre pas !

j'ai essayé de lire le handle du process internet exploreur , je n'obtiens que le titre de la page, mais apparement y a pas de handle de la barre d'adresse.

handle est : l'ID du process, avec cela vous pouvez lire et modifier
l'interface du process ! je pourrai vous poster un exemple :P

Qui peut me trouver une idée a resoudre mon problème ?

Merci d'avance
03/10/2007, 18h00
Bily.sdi

je pense avoir trouver avec cela

Handle = hwndFindWindow(handled, "WorkerA")
WorkerA pour IE 5
WorkerW pour IE 6

je teste et vous tien au courant

voila ce qui devrai donné tout les url en cours dans l'internet explore !

mais ca m'affiche que du " " ( blanc )

Code:

1
2
3
4
5
6
7
 
 
  A mettre dans un timer ou callback
 
  AnsiString var = URL();
  if( ( var != "Error" ) && ( var.IsEmpty()==false ) )
  listView->Items->Add( var );

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
 
 
AnsiString TForm1::URL()
{
 
//Récupération de l'URL en cours dans Internet Explorer
 
// j'utilise SetWindowText pour faire un test !
// si c'est trouvé je change le texte du handle
 
//Retrouve le Handle de la fenêtre principale
int Mem;
HWND Explorer,ClientWork,Toolbar,ComboBox,ComboBoxChild,Edit;
 
Mem=0;
Explorer = NULL;
ClientWork = NULL;
Toolbar = NULL;
ComboBox = NULL;
ComboBoxChild = NULL;
Edit = NULL;
AnsiString Result = "Error";
 
    Explorer = FindWindow("IEFrame",0);
    if ( Explorer == NULL )  return Result;
    SetWindowText(Edit,"IEFrame");          // ceci est un test 
 
    //Cherche le Handle de la fenêtre de travail
    ClientWork = FindWindowEx(Explorer,0,"WorkerA",NULL);
    if ( ClientWork == NULL)
     {//Compatibilité XP / 98
       ClientWork = FindWindowEx(Explorer,0,"WorkerW",NULL);
    }else return "WorkerA_W";                  // permet voir ou il y a erreur
    SetWindowText(Edit,"WorkerA");           // ceci est un test 
 
    //Retrouve le Handle de la ToolBar
    Toolbar = FindWindowEx(ClientWork,0,"ReBarWindow32",NULL);
    if ( Toolbar == NULL) return "ReBarWindow32";
    SetWindowText(Edit,"ReBarWindow32");    // ceci est un test 
 
    //Cherche le Handle du ComboBox
    ComboBox = FindWindowEx(Toolbar,0,"ComboBoxEx32", NULL);
    if ( ComboBox == NULL) return "ComboBoxEx32";
    SetWindowText(Edit,"ComboBoxEx32");
 
    ComboBoxChild = FindWindowEx(ComboBox,0,"ComboBox",NULL);
    if ( ComboBoxChild == NULL) return "ComboBox";
    SetWindowText(Edit,"ComboBox");
 
    //Atteint l'Edit et envoie un message pour avoir le texte
    Edit = FindWindowEx(ComboBoxChild,0,"Edit",NULL);
    if ( Edit == NULL) return "Edit";
    SetWindowText(Edit,"Edit");
 
    Mem = GetWindowTextLengthA(Edit);
    char *szTitre;
    szTitre = new char[Mem+1];
    GetWindowTextA(Edit,szTitre,Mem+1);
 
    return szTitre;
 
    //listView->Items->Add( szTitre );
    //SendMessageA(Form1->listView->Handle,WM_GETTEXT,Mem+1,long(Result[1]));

Salut Bily.sdi
J'ai fait ceci apres avoir verifie que l'on recuperait bien les bon Handle

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
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//AnsiString TForm1::URL()
 
//Récupération de l'URL en cours dans Internet Explorer
 
// j'utilise SetWindowText pour faire un test !
// si c'est trouvé je change le texte du handle
 
//Retrouve le Handle de la fenêtre principale
int Mem;
HWND Explorer,ClientWork,Toolbar,ComboBox,ComboBoxChild,edit;
 
Mem=0;
Explorer = NULL;
ClientWork = NULL;
Toolbar = NULL;
ComboBox = NULL;
ComboBoxChild = NULL;
edit = NULL;
AnsiString Result = "Error";
    Explorer = FindWindow("IEFrame",0);
    if ( Explorer == NULL )  return; // Result;
    SetWindowText(edit,"IEFrame");          // ceci est un test
    //Cherche le Handle de la fenêtre de travail
    ClientWork = FindWindowEx(Explorer,0,"WorkerA",NULL);
    if ( ClientWork == NULL)
     {//Compatibilité XP / 98
       ClientWork = FindWindowEx(Explorer,0,"WorkerW",NULL);
    }else return; // "WorkerA_W";                  // permet voir ou il y a erreur
    SetWindowText(edit,"WorkerA");           // ceci est un test
    //Retrouve le Handle de la ToolBar
    Toolbar = FindWindowEx(ClientWork,0,"ReBarWindow32",NULL);
    if ( Toolbar == NULL) return; // "ReBarWindow32";
    SetWindowText(edit,"ReBarWindow32");    // ceci est un test
    //Cherche le Handle du ComboBox
    ComboBox = FindWindowEx(Toolbar,0,"ComboBoxEx32", NULL);
    if ( ComboBox == NULL) return; // "ComboBoxEx32";
    SetWindowText(edit,"ComboBoxEx32");
    ComboBoxChild = FindWindowEx(ComboBox,0,"ComboBox",NULL);
    if ( ComboBoxChild == NULL) return; // "ComboBox";
    SetWindowText(edit,"ComboBox");
    //Atteint l'Edit et envoie un message pour avoir le texte
    edit = FindWindowEx(ComboBoxChild,0,"Edit",NULL);
int lng = SendMessage(edit, WM_GETTEXTLENGTH, 0, 0);
char Chain[100]; // voir pour parametrer en fonction de lng
SendMessage(edit, WM_GETTEXT, lng + 1, int (Chain));
Edit1->Text = Chain;
}

Chez moi je recupere bien l'URL dans le TEdit
Il sera necessaire de parametrer le tableau Chain en fonction de la longueur lng qui est fonction de l'URL

Solution Ok

Merci, j'ai trouvé la solution autrement ;-)

Le problem que j'avais est que mon IE6 contient la toolbar msn !!
ce qui me permet d'avoir plusieurs fenettres dans 1 grace aux onglets

la methode de lire les url ne fonctionne pas si on utilise des onglets !!!

je vais quant meme essayer trouver une solution global !
pour Mozilla qu'elle est le chemin ?
Avec ma methode je peux afficher les classes enfants et ...... :lol:

voici ma methode pour c++builder 6

Code:

1
2
3
4
5
6
7
8
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Form1->listView->Items->Clear();
 
   EnumWindows(WNDENUMPROC (EnumWindowsProc), 0);
}

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
 
 
LRESULT CALLBACK EnumWindowsProc(HWND hwnd,LPARAM lParam)
{
  char szClass[128];
  GetClassName( hwnd, szClass, sizeof(szClass) );
 
  if(!strcmp(szClass, "IEFrame"))
  {
     // Recherche des classes Enfants
     EnumChildWindows(hwnd, WNDENUMPROC(EnumChildProc),0);  
 
    char szTitre[128];
    GetWindowTextA(hwnd, szTitre, sizeof(szTitre));
 
    bool trouver = false;
    for(int i=0; i<Form1->listView->Items->Count && trouver==false; i++)
    {
      if( AnsiString(szTitre) == Form1->listView->Items->Strings[i] )
      trouver = true;
    }
 
   if(!trouver)   // titre des nouvelles fenetre IE
   Form1->listView->Items->Add( szTitre );  
 
  }
  return true;
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
LRESULT CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
  // Type de classe enfant :
  // WorkerW||WorkerA; ReBarWindow32; ComboBoxEx32; ComboBox; Edit.
 
  char szClass[128];
  GetClassName( hwnd, szClass, sizeof(szClass) );
 
  if(!strcmp(szClass, "Edit"))
  {
    char szTitre[128];
    SendMessage(hwnd,WM_GETTEXT,sizeof(szTitre),LPARAM(szTitre));
 
    Form1->listView->Items->Add( szTitre );
  }
 
 return true;
}

Merci Blondelle d'avoir participé ;-) :king:

07/10/2007, 18h47
blondelle

Je suis content que tu est resolu ton probleme :P

c'est réussi, même si vous utilisez des onglets dans IE6

cela fonctionne, il faut retirer la condition "IEframe"
pour Mozilla j'obtiens les titres des pages mais pas encore l'URL

Laisser tourné et faite juste un test dans :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 EnumChildProc(HWND hwnd,LPARAM lParam) { char szTitre[128]; GetClassName(hwnd, szTitre, sizeof(szTitre) ); SendMessage(hwnd,WM_GETTEXT,sizeof(szTitre),LPARAM(szTitre)); if( (strstr(szTitre, "http") !=NULL) || (strstr(szTitre, "www") !=NULL) ) Form1->listView->Items->Add( szTitre ); return true; }
@+