So Leute ich kann einen ersten Erfolg vermelden!
Aktueller Code:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var wnd,wnd1,: HWND;
begin
wnd := FindWindow('
#32770','
ZoneAlarm-Sicherheitswarnung');
if wnd <> 0
then
begin
form1.caption:='
Window found. Handle: ' + IntToStr(wnd);
SetForegroundWindow(wnd);
SendMessage(wnd, WM_SETFOCUS, 0, 0);
keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_TAB, 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);
keybd_event(VK_SPACE, 0, KEYEVENTF_KEYUP, 0);
end;
end;
Also wenn ich das Fenster fokussiere springt der Fokus zunächst auf einen Info Button, dann auf eine Checkbox
"Regel immer anwenden" und dann auf Zulassen.
Mit Space kann ich diese nun klicken und die Anwendung wird zugelassen.
Nun habe ich jedoch noch 2 Probleme:
1.) Ich kann die Checkbox "Regel immer anwenden" nicht aktivieren wenn ich nach dem ersten tab noch ein space einfüge, obwohl ich so zulassen "klicken" kann.
Manuell per Tastatur geht es jedoch!
2.) Wenn ich das ganze in einen Timer tue wird zwar bei jeder ZA Sicherheitsanfrage automatisch "Zulassen" angeklickt,
jedoch hängt das komplette System danach weil er das Fenster irgendwie nichtmehr loslassen will.
Ich muss dann im passenden Moment auf Alt+F4 drücken, weil irgendwie dauernd weiter geklickt wird, was ja eigentlich nichtmehr sein sollte,
wenn das ZA Fenster weg ist.