Jump to content

scdd

Member
  • Posts

    7
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    China

About scdd

scdd's Achievements

0

Reputation

  1. C:\Archivos de programa = C:\Program Files ?? C:\Program Files = @ProgramFilesDir Esta es una mejor forma de expresión (Translation by google) This is a better way of expression: Runwait("Setup.exe /S") Run(@ProgramFilesDir&"\WinUtilities\WO.exe") Spyware Doctor 6 With Antivirus packaged with Inno Setup Seems to disconnect the network connection(Parece que desconectar la conexión de red) Then use /SP- /VERYSILENT /NORESTART Setup will pop up a window,close it ...
  2. Winutilities 6.4 Download from Homepage:http://www.ylcomputing.com/download/wuinstall.exe packaged with NSIS,try to use /S
  3. u r lucky outpost firewall pro 2009over here
  4. $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
  5. $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
  6. add: WinWait($title1) like this
  7. Try this (base on edmoncu's script,thanks!) $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) ControlClick($title1, "", "Button5") $e = ControlCommand($title1, "", "Button5", "IsEnabled", "") While $e = 0 $e = ControlCommand($title1, "", "Button5", "IsEnabled", "") WEnd ControlClick($title1, "", "Button5") ControlClick($title1, "", "Button10") RegDelete($key1, "RenewalDaysLeft") 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") WinClose($title2) WinWait($title2) ControlClick($title2, "", "Button1") MsgBox(262144, "Outpost Firewall", "Outpost Firewall is already installed.", 3) Exit EndSelect EndFunc
×
×
  • Create New...