Discussion :

[K.othmane]

Yop
le code qui pose probleme

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button5Click(Sender: TObject);
begin
hIExplorer := FindWindow('IEFrame', nil);
Sendmessage(hIExplorer, WM_KEYDOWN, VK_MENU,1);
Sendmessage(hIExplorer, WM_KEYDOWN, VK_HOME,1);
Sendmessage(hIExplorer, WM_KEYUP, VK_HOME,1);
Sendmessage(hIExplorer, WM_KEYUP, VK_MENU,1);
end;

c'est supposé envoyer la fenetre internet explorer vers la page de demarrage mais ca ne bouge pas .
par contre si je fais ca :

Code :

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

1
2
3
4
5
setforegroundwindow(hIExplorer);
keybd_event(VK_MENU, 0, 0, 0);
keybd_event(VK_HOME, 0, 0, 0);
keybd_event(VK_HOME, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);

ca marche , mais c'est pas ce que je cherche =/.
quelqun a une autre idée ?? j'ai le meme resultat que sendmessage avec postmessage

[Graffito]

Bonjour,

Peut-être un problème avec le ALT+HOME et sendmessage.
Pour contourner, essaye les raccourcis du menu ALT+A+A+d.
C'est juste une suggestion sans garantie.

[K.othmane]

Yop
Merci a toi Graffito , en testant manuellement ca semble une bonne idée mais quand je teste avec delphi ca ne marche pas =/.
j'ai mis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button4Click(Sender: TObject);
begin
Sendmessage(hIExplorer, WM_KEYDOWN, VK_MENU,0);
Sendmessage(hIExplorer, WM_KEYUP, VK_MENU,0);
Sendmessage(hIExplorer, WM_KEYDOWN, 41,0);
Sendmessage(hIExplorer, WM_KEYUP, 41,0);
Sendmessage(hIExplorer, WM_KEYDOWN, 41,0);
Sendmessage(hIExplorer, WM_KEYUP, 41,0);
Sendmessage(hIExplorer, WM_KEYDOWN, 44,0);
Sendmessage(hIExplorer, WM_KEYUP, 44,0);
end;

j'ai aussi testé :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button4Click(Sender: TObject);
begin
Sendmessage(hIExplorer, WM_KEYDOWN, VK_MENU,0);
Sendmessage(hIExplorer, WM_KEYDOWN, 41,0);
Sendmessage(hIExplorer, WM_KEYDOWN, 41,0);
Sendmessage(hIExplorer, WM_KEYDOWN, 44,0);
end;

Meme resultat.
j'ai mis 41 et 44 sachant que c la valeur de la touche A et D , car apparemment VK_A et VK_D ne marchent pas , j'ai une erreur si je met ca =/.

[Graffito]

Bonjour,

Pour les touches ALT, c'est peut-être WM_SYSKEYDOWN/UP au lieu de WM_KEYDOWN/UP.

[K.othmane]

le probleme la cest avec les lettres non pas avec ALT =/.

[Graffito]

Bonjour,

Dans ce cas, as-tu essayé de remplacer le WM_KEYDOWN ou simplement rajouter :

Code :

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

Sendmessage(hIExplorer, WM_CHAR, 41,0);

[K.othmane]

toujours pas =/

[Graffito]

Une petite erreur "A" c'est $41 et non 41.

Malheuresement, cela ne résoud pas le problème.

Ce que j'arrive à faire :
- récupérer le texte de l'URL,
- envoyer des caractères dans L'URL.

D'où une solution tordue pour spécifier l'URL, envoyer :
- le caractère "FIN",
- autant de backspace que la longueur de l'URL,
- lescaractères de la nouvelle URL.

Si ca correspond à ton besoin, je poste le code.

[K.othmane]

yop
envoyer des caracteres dans l'url m'irais bien je pense .

D'où une solution tordue pour spécifier l'URL, envoyer

c'est a dire

[Graffito]

Salut,

Voila le code (testé) :

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
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
procedure TForm1.Button2Click(Sender: TObject);
var hiExplorer,ClientWork,Toolbar,ComboBox,ComboBoxChild,Edit:HWND;
    wnd: HWND ;
    i,Len:integer ;
    result:array of char ;
    s : string ;
begin
hIExplorer := FindWindow('IEFrame',nil);
//SetForegroundwindow(hIExplorer)  ;
//Handle de la fenêtre de travail
ClientWork:=FindWindowEx(hiExplorer,0,'WorkerA',nil);
if ClientWork=0 then //Compatibilité XP / 98
    ClientWork:=FindWindowEx(hiExplorer,0,'WorkerW',nil);
// Handle de la ToolBar (casert pas)
Toolbar:=FindWindowEx(ClientWork,0,'ReBarWindow32',nil);
// Handle du ComboBox
ComboBox:=FindWindowEx(Toolbar,0,'ComboBoxEx32', nil);
ComboBoxChild:=FindWindowEx(ComboBox,0,'ComboBox',nil);
// Cherche le Handle du Edit
Edit:=FindWindowEx(ComboBoxChild,0,'Edit',nil);
//envoie les messages pour récupérer la longueur de l'URL 
Len:=SendMessage(Edit,WM_GETTEXTLENGTH,0,0)+1;
// récupère l'URL (mais c'est juste pour le fun)
SetLength(Result,Len);
SendMessage(Edit,WM_GETTEXT,Len,Integer(@Result[1]));
// envoie le "End" puis les backspaces
wnd:=Edit ;
Sendmessage(wnd,WM_KEYDOWN, VK_END,0);
Sendmessage(wnd,WM_CHAR   , VK_END,0);
Sendmessage(wnd,WM_KEYUP  , VK_END,0);
for i:=0 to Len-1 do begin
    Sendmessage(wnd,WM_KEYDOWN, VK_BACK,0);
    Sendmessage(wnd,WM_CHAR   , VK_BACK,0);
    Sendmessage(wnd,WM_KEYUP  , VK_BACK,0);
    end ;
// envoie la nouvelle URL 
s:='MyUrl' ;
for i:=1 to Length(s) do begin
    Sendmessage(wnd,WM_KEYDOWN, ord(s[i]),0);
    Sendmessage(wnd,WM_CHAR   , ord(S[i]),0);
    Sendmessage(wnd,WM_KEYUP  , ord(S[i]),0);
    end ;
exit ;
end ;

[K.othmane]

yop
Merci a toi