Einzelnen Beitrag anzeigen

snapman
(Gast)

n/a Beiträge
 
#22

Re: Mausklick simulieren funktioniert nicht

  Alt 29. Jan 2007, 00:45
Zitat von Sunlight7:
1. Steht der Fokus auf der CheckBox?
2. MSDN-Library durchsuchenIsWindowVisible, bzw. MSDN-Library durchsuchenIsIconic

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
  Mit Zitat antworten Zitat