$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