eddie11013, on Mar 23 2008, 10:51 PM, said:
@radix
Zone Alarm has a new installer,
http://www.filehippo...zonealarm_free/. Hoping you can make me a new 'autoit' script, without the spyblocker, please.
I tried the WPI, but unfortunately it was to complicated for me. And I had a look at the RVM Integrator, but it too was to complicated for me.
Thanks in advance,
Eddie
It's the same script.
ZoneAlarm Free 7.0.470.0
Opt("TrayIconDebug", 1)
Opt("SendKeyDelay", 200)
; Executable file name
$EXECUTABLE = "zaZA_Setup_en.exe"
; Include ZoneAlarm Spy Blocker
$SpyBlocker = "0"
; I want to register ZoneAlarm
$Registration = "0"
; Email address
$Email = ""
; Detect the Operating System type (32 bit or 64 bit)
$OS = _OSBit()
If $OS = 32 Then
; Installation folder
$INSTALLLOCATION = @ProgramFilesDir & "\Zone Labs\ZoneAlarm"
EndIf
If $OS = 64 Then
; Installation folder
$INSTALLLOCATION = @HomeDrive & "\Program Files (x86)\Zone Labs\ZoneAlarm"
EndIf
If FileExists($INSTALLLOCATION & "\zonealarm.exe") Then
MsgBox(0x40010, @ScriptName, "Please uninstall previous version of ZoneAlarm before using this script", 4)
Exit
EndIf
; Run the installer
Run($EXECUTABLE)
; Installation
WinWait("ZoneAlarm Installation", "Installation")
WinActivate("ZoneAlarm Installation", "Installation")
ControlClick("ZoneAlarm Installation", "", "Button3")
WinWait("Select Destination Directory", "OK")
WinActivate("Select Destination Directory", "OK")
ControlSetText("Select Destination Directory", "", "Edit1", "")
Sleep(1000)
ControlSetText("Select Destination Directory", "", "Edit1", $INSTALLLOCATION)
ControlClick("Select Destination Directory", "", "Button1")
WinActivate("ZoneAlarm Installation", "Installation")
If $SpyBlocker = "0" Then
ControlCommand("ZoneAlarm Installation", "", "Button6", "UnCheck", "")
EndIf
ControlClick("ZoneAlarm Installation", "", "Button1")
; In order to get notified about Zone Labs news or product releases
WinWait("ZoneAlarm Registration", "In order to get notified about Zone Labs news or product releases")
WinActivate("ZoneAlarm Registration", "In order to get notified about Zone Labs news or product releases")
If $Registration = "1" Then
ControlSetText("ZoneAlarm Registration", "", "Edit2", "")
Sleep(1000)
ControlSetText("ZoneAlarm Registration", "", "Edit2", $Email)
EndIf
If $Registration = "0" Then
ControlCommand("ZoneAlarm Registration", "", "Button1", "UnCheck", "")
ControlCommand("ZoneAlarm Registration", "", "Button2", "UnCheck", "")
EndIf
ControlClick("ZoneAlarm Registration", "", "Button4")
; License Agreement
WinWait("ZoneAlarm Installation", "License Agreement")
WinActivate("ZoneAlarm Installation", "License Agreement")
ControlCommand("ZoneAlarm Installation", "", "Button4", "Check", "")
ControlClick("ZoneAlarm Installation", "", "Button1")
; Thank you very much!
WinWait("ZoneAlarm Registration Survey", "Thank you very much!")
WinActivate("ZoneAlarm Registration Survey", "Thank you very much!")
ControlClick("ZoneAlarm Registration Survey", "", "Button1")
; Installation is complete. Do you want to start ZoneAlarm now?
WinWait("ZoneAlarm Setup", "Installation is complete. Do you want to start ZoneAlarm now?")
WinActivate("ZoneAlarm Setup", "Installation is complete. Do you want to start ZoneAlarm now?")
ControlClick("ZoneAlarm Setup", "", "Button2")
Func _OSBit()
Local $tOS = DllStructCreate("char[256]")
Local $aGSWD = DllCall("Kernel32.dll", "int", "GetSystemWow64Directory", "ptr", DllStructGetPtr($tOS), "int", 256)
If IsArray($aGSWD) And DllStructGetData($tOS, 1) Then Return 64
Return 32
EndFunc