(Gast)
n/a Beiträge
|
Re: Mausklick simulieren funktioniert nicht
29. Jan 2007, 01:45
Zitat von Sunlight7:
1. Steht der Fokus auf der CheckBox?
2. IsWindowVisible, bzw. IsIconic
PS: Wieder nicht vorhandener roter Kasten:
Seltsam, ich verwende nie die WM_SetFocus Nachrichten
Also erstmal ein BigTHX!! Dank IsWindowVisible klickt er den ganzen Kram jetzt automatisch ohne Murren weg auch im Timer!
Aber die Checkbox kann ich seltsamerweise trotz Focus nicht anhaken
Hier mal der aktuelle Code:
Delphi-Quellcode:
var wnd,wnd1: HWND;
begin
wnd := FindWindow('#32770','ZoneAlarm-Sicherheitswarnung');
wnd1 := FindWindowEx2(wnd,'ZaButton', 2); //Checkbox
if (wnd <> 0) and (iswindowvisible(wnd)) then
begin
SetForegroundWindow(wnd);
SendMessage(wnd, WM_SETFOCUS, 0, 0);
keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
SendMessage(wnd1, WM_SETFOCUS, 0, 0); //FOcus auf checkbox
keybd_event(VK_SPACE, 0, 0, 0); //checkbox anhaken
keybd_event(VK_SPACE, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_SPACE, 0, 0, 0); //Zulassen klicken
keybd_event(VK_SPACE, 0, KEYEVENTF_KEYUP, 0);
Also zulassen geht wunderbar mit dem Code, das mit der checkbox nicht, egal ob ich den focus auf die box reinnehme oder nicht
|
|
Zitat
|