[scdd]

$title2 = "Outpost Firewall Pro"
$title3 = "Settings"
$key2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Agnitum Outpost Firewall Pro_is1"
$sn6_p1 = "sn part 1"
$sn6_p2 = "sn part 2"
$sn6_p3 = "sn part 3"
$sn6_p4 = "sn part 4"
$sn6_p5 = "sn part 5"

AdlibEnable("OPAdlib")
OKExists()
Run("Outpost6.exe /LANG=en /SP- /SILENT /NORESTART")
WinWaitActive($title2, "Completing the Outpost Firewall Pro Setup Wizard")
ControlClick($title2, "", "Button2")
ControlClick($title2, "", "Button7")
$e = WinExists($title3)
Do
Sleep(500)
Until $e = WinExists($title3)
ControlSend($title3, "", "SysTreeView321", "{PGUP}")
WinWaitActive($title3, "Enable sel&f-protection")
ControlClick($title3, "Enable sel&f-protection", "Button9")
WinWait("Enter Key")
ControlCommand("Enter Key", "", "Edit1", "EditPaste", $sn6_p1&$sn6_p2&$sn6_p3&$sn6_p4&$sn6_p5)
ControlClick("Enter Key", "", "Button1")
WinWait($title2, "Thank you for registering!")
ControlClick($title2, "Thank you for registering!", "Button1")
WinActivate($title3)
Sleep(2000)
ControlClick($title3, "OK", "Button1")
AdlibDisable()
Exit

Func OKExists()
$var = RegRead($key2,"DisplayName")
If $var = "Outpost Firewall Pro" OR $var = "Agnitum Outpost Firewall Pro" Then
MsgBox(262144, "Already Installed", "Outpost has already installed.", 3)
Exit
EndIf
EndFunc

Func OPAdlib()
Select
Case WinExists("Error", "The installation/removal of a previous program was not completed.") 
Sleep(1000)
WinClose("Error") 
Exit
Case WinExists($title2, "Warning! The following firewall") 
AbortOP() 
Exit
EndSelect
EndFunc

Func AbortOP()
WinClose($title2)
WinWait($title2)
ControlClick($title2, "", "Button1")
EndFunc

This required about 3 minutes. Please be patient.
Sorry for my bad English

This post has been edited by scdd: 15 February 2009 - 07:29 AM

[matute_mat]

Thanks, works perfect!!!!!!!!!!!!!!!

Sorry for my bad English, i speak spanish:

Gracias por el script funciona de 10 amigo, me salvaste la vida, gracias por comentarmelo en mi post, saludos!!!!

Bye

[matute_mat]

hi, thanks for the fast reply, but i make a script with autoit for winutilities 6.4! this is look:

Quote

Run("Setup.exe /S")
Sleep(3000)
Run("C:\Archivos de programa\WinUtilities\WO.exe [OR YOUR DIRECTORY OF PROGRAMAS EJ: PROGRAM FILES"])
WinWaitActive("Register")
ControlClick("Register", "", "Button2")
WinWaitActive("Enter Registration Key")
Send("USERNAME")
Send("{TAB}")
Send("PASSWORD")
Send("{TAB}")
Send("{ENTER}")
WinWaitActive("Information")
Send("{ENTER}")
Winclose("Register")

Now, i wait for this programs:

Spyware Doctor 6 With Antivirus PRO

AND

Paragon Partition Manager 9 PRO

Thanks again, greetings !!!!!!

Sorry for my bad English, i speak spanish:

[matute_mat]

thanks, you have the razon with Winutilities 6.4, but in the spyware doctor 6, i need cracking the program and it is impossible, by the process of update, I can not enter a license, we renounce the spyware doctor, I will wait for the Paragon Partition Manager, bye and thanks :thumbup:thumbup!!!!!

Sorry for my bad english!

[x-Shadow-x]

Please do not doube post and tripple post and hijack a persons thread. And especially do NOT talk about cracking!!