IE : SendMessage / Postmessage

Yop
le code qui pose probleme

Code:

---

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 8O .
par contre si je fais ca :

Code:

---

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 :(

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.

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:

---

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:

---

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 =/.

Bonjour,

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

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

Bonjour,

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

Code:

---

Sendmessage(hIExplorer, WM_CHAR, 41,0);

---

toujours pas :( =/

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.

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

Citation:

---

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

---

c'est a dire :roll:

Salut,

Voila le code (testé) :

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

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 ;

---

yop
Merci a toi