Outpost Firewall Pro v4.0.971.7030 AutoIT Script

[scdd]

$title1 = "Configuration Wizard"
$title2 = "Outpost Firewall Pro Setup"
$key1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Agnitum\Outpost Firewall"
$sn_p1 = "sn part 1"
$sn_p2 = "sn part 2"
$sn_p3 = "sn part 3"
$sn_p4 = "sn part 4"
$sn_p5 = "sn part 5"

AdlibEnable("OPAdlib")
Run("Outpost.exe /LANG=en /SP- /SILENT /NORESTART")
WinWait($title1, "Advanced security")
ControlClick($title1, "", "Button5")
WinWait($title1, "Help Agnitum make program better")
ControlCommand($title1, "", "Button1", "UnCheck", "")
ControlClick($title1, "", "Button8")			
$e = ControlCommand($title1, "", "Button9", "IsEnabled", "")
While $e = 0
$e = ControlCommand($title1, "", "Button9", "IsEnabled", "")
WEnd
ControlClick($title1, "", "Button9")
RegWrite($key1, "Key", "REG_SZ", $sn_p1&@LF&$sn_p2&@LF&$sn_p3&@LF&$sn_p4&@LF&$sn_p5)
AdlibDisable()
Exit

Func OPAdlib()
Select
Case WinExists("Error")
WinClose("Error")
Exit
Case WinExists($title2, "Please select Exit")
AbortOP()
MsgBox(262144, "Outpost Firewall", "Outpost Firewall is already installed.", 3)
Exit
Case WinExists($title2, "Warning! The following firewall")
AbortOP()
Exit
Case WinExists($title1, "Some applications that can cause system stability issues")
ControlClick($title1, "", "Button2")			
EndSelect
EndFunc

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