neuropass Posted March 6, 2009 Share Posted March 6, 2009 (edited) ok guys seen as nobody wants to make firewall unattended i started to work on it with auto it..so here the step, i extracted the comodo setup from its first archive, so, after that i made the autoit script, which is perfect... except for the last two step of the installation... where it asks to scan the system and then the one after that where it asks to restart the pc.. so my script stops there..could please anybody take a look of it now??? finally it's almost done please!!!!!!#region - CIS_Setup_3.8.65951.477_XP_Vista_x32 install script - (Automated with WinWait functions)Opt('TrayIconDebug', 1)Opt('WinDetectHiddenText', 1)Opt('WinTitleMatchMode', 4); Installer.$executable = 'CIS_Setup_3.8.65951.477_XP_Vista_x32.exe'; Show progess.$splash = 0; Default catagory folder in startmenu.$group = ''; New catagory to move the default folder into.$catagory = ''; Installation folder in Program Files.$directory = ''; Run the installer.$pid = _Install()If WinWait("C:\Users\Administrator\Desktop\New Folder","Navigation Bar", 60) Then$CLVItem = ControlListView("C:\Users\Administrator\Desktop\New Folder","Navigation Bar","SysListView321","FindItem","CIS_Setup_3.8.65951.477_XP_Vista_x32.exe")ControlListView("C:\Users\Administrator\Desktop\New Folder","Navigation Bar","SysListView321","SelectClear")ControlListView("C:\Users\Administrator\Desktop\New Folder","Navigation Bar","SysListView321","Select",$CLVItem)$CLVItem = ControlListView("C:\Users\Administrator\Desktop\New Folder","Navigation Bar","SysListView321","FindItem","CIS_Setup_3.8.65951.477_XP_Vista_x32.exe")ControlListView("C:\Users\Administrator\Desktop\New Folder","Navigation Bar","SysListView321","SelectClear")ControlListView("C:\Users\Administrator\Desktop\New Folder","Navigation Bar","SysListView321","Select",$CLVItem)WinWait("COMODO Internet Security Installer","< Back");AutoIt supports no Owner drawn Buttons (or CheckBoxes, RadioButtons and Groupboxes: only ControlClick is possible...ControlClick("COMODO Internet Security Installer","< Back","Button2")WinWait("COMODO Internet Security Installer","I DECLINE");AutoIt supports no Owner drawn Buttons (or CheckBoxes, RadioButtons and Groupboxes: only ControlClick is possible...ControlClick("COMODO Internet Security Installer","I DECLINE","Button2")WinWait("COMODO Internet Security Installer","< Back");AutoIt supports no Owner drawn Buttons (or CheckBoxes, RadioButtons and Groupboxes: only ControlClick is possible...ControlClick("COMODO Internet Security Installer","< Back","Button2")WinWait("COMODO Internet Security Configuration Wizard","The installation may cause you")ControlClick("COMODO Internet Security Configuration Wizard","The installation may cause you","Button2")WinWait("COMODO Internet Security Configuration Wizard","Select this option to install ")ControlCommand("COMODO Internet Security Configuration Wizard","Select this option to install ","Button2","UnCheck","")ControlClick("COMODO Internet Security Configuration Wizard","Select this option to install ","Button4")WinWait("COMODO Internet Security Configuration Wizard","This option provides optimal n")ControlClick("COMODO Internet Security Configuration Wizard","This option provides optimal n","Button7")WinWait("COMODO Internet Security Configuration Wizard","Choose this option if you woul")ControlClick("COMODO Internet Security Configuration Wizard","Choose this option if you woul","Button2")ControlClick("COMODO Internet Security Configuration Wizard","Choose this option if you woul","Button9")WinWait("COMODO Internet Security Configuration Wizard","Save time by searching smarter")ControlClick("COMODO Internet Security Configuration Wizard","Save time by searching smarter","#327701")ControlCommand("COMODO Internet Security Configuration Wizard","Save time by searching smarter","Button2","UnCheck","")ControlCommand("COMODO Internet Security Configuration Wizard","Save time by searching smarter","Button1","UnCheck","")ControlClick("COMODO Internet Security Configuration Wizard","Save time by searching smarter","Button12")WinWait("Windows Security","")ControlClick("Windows Security","","DirectUIHWND1")ControlClick("Windows Security","","Button1")WinWait("COMODO Internet Security Configuration Wizard","Optional: Please provide us wi")ControlClick("COMODO Internet Security Configuration Wizard","Optional: Please provide us wi","Button14")WinWait("COMODO Internet Security Configuration Wizard","Please wait while your free li")ControlClick("COMODO Internet Security Configuration Wizard","Please wait while your free li","#327701")ControlClick("COMODO Internet Security Configuration Wizard","Please wait while your free li","Button15")WinWait("Clean PC?","Are you sure that this compute")ControlClick("Clean PC?","Are you sure that this compute","Static1")WinWait("COMODO Internet Security Installer","< Back")ControlClick("COMODO Internet Security Installer","< Back","Button4");AutoIt supports no Owner drawn Buttons (or CheckBoxes, RadioButtons and Groupboxes: only ControlClick is possible...ControlClick("COMODO Internet Security Installer","< Back","Button3")Else _Abort()EndIfProcessWaitClose($pid); Remove shortcuts.If _MainShortcut('?.lnk') Then; Relative to shortcut directories; Remove Startmenu shortcuts FileDelete('?.lnk') FileDelete('?.lnk') FileDelete('?.lnk') FileDelete('?.lnk') FileDelete('?.lnk'); Remove other shortcuts _Desktop('?.lnk') _QuickLaunch('?.lnk')EndIf#endregionExit#cs - Exitcodes 1 = _Install(): Installer not found 2 = _Abort(): Installer process closed and then Abort 3 = _Abort(): Abort only -1 = _ProcessBlock(): Blocked processes not unblocked#ceFunc _Install($path = 'Default'); Run the installer in Default Script directory. Dim $splash, $processblock If $path = 'Default' Then $path = @ScriptDir If StringRight($path, 1) <> '\' Then $path = $path & '\' If StringInStr($executable, '\') Then $path = '' If Not FileExists($path & $executable) Then Exit 1 If $processblock <> '' Then Call('_' & 'ProcessBlock') If $splash Then _Splash('Installing:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4)) If StringRight($executable, 3) = 'msi' Then Return Run(@SystemDir & '\msiexec /i "' & $path & $executable & '"') Else Return Run($path & $executable) EndIfEndFuncFunc _Abort(); close process if exists then exit. Dim $pid If ProcessExists($pid) Then ProcessClose($pid) Exit 2 Else Exit 3 EndIfEndFuncFunc _Desktop($shortcut); Delete a Desktop shortcut. If FileExists(@DesktopDir & '\' & $shortcut) Then Return FileDelete(@DesktopDir & '\' & $shortcut) ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then Return FileDelete(@DesktopCommonDir & '\' & $shortcut) EndIfEndFuncFunc _MainShortcut($shortcut, $rename = ''); Change working directory to correct StartMenu\Group directory. Dim $group, $catagory, $splash If $group = '' Then Return 0 If FileExists(@ProgramsDir & '\' & $group) Then FileChangeDir(@ProgramsDir & '\' & $group) ElseIf FileExists(@ProgramsCommonDir & '\' & $group) Then FileChangeDir(@ProgramsCommonDir & '\' & $group) Else Return 0 EndIf; Wait for main shortcut. If $splash Then _Splash('Waiting for shortcuts') For $i = 1 To 20 If FileExists($shortcut) Then ExitLoop Sleep(500) Next If $splash Then _Splash('Cleaning up:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4)); If catagory not assigned anything, then return. If $catagory = '' Then Return 1; Move the group folder into the catagory folder. If FileChangeDir('..') And DirCopy($group, $catagory & '\' & $group, 1) Then If DirRemove($group, 1) Then ; If optional rename parameter is used, then rename the group folder. If $rename <> '' And FileChangeDir($catagory) Then If DirCopy($group, $rename, 1) And DirRemove($group, 1) Then Return FileChangeDir($rename) EndIf Else Return FileChangeDir($catagory & '\' & $group) EndIf EndIf EndIfEndFuncFunc _QuickLaunch($shortcut); Delete a Quicklaunch shortcut. Local $subdirs = 'Microsoft\Internet Explorer\Quick Launch' If FileExists(@AppDataDir & '\' & $subdirs & '\' & $shortcut) Then Return FileDelete(@AppDataDir & '\' & $subdirs & '\' & $shortcut) ElseIf FileExists(@AppDataCommonDir & '\' & $subdirs & '\' & $shortcut) Then Return FileDelete(@AppDataCommonDir & '\' & $subdirs & '\' & $shortcut) EndIfEndFuncFunc _Splash($text = ''); Shows a small borderless splash message. Dim $splash If $splash Then If $text Then SplashTextOn('', $text, 500, 25, -1, 5, 1, '', 14) Else SplashOff() EndIf EndIfEndFuncFunc _WinClose($title, $text = ''); Close a window with further attempts. For $i = 1 To 10 WinClose($title, $text) If Not WinExists($title) Then Return 1 Sleep(500) NextEndFuncFunc OnAutoItStart(); A 2nd script instance will exit. If StringInStr($CMDLINERAW, '/dummy') Then Exit If WinExists(@ScriptName & '_Interpreter') Then Exit AutoItWinSetTitle(@ScriptName & '_Interpreter')EndFunc Edited March 6, 2009 by neuropass Link to comment Share on other sites More sharing options...
neuropass Posted March 6, 2009 Author Share Posted March 6, 2009 c'mon guys!!! 32 views and after i made this script , no body wants to try it and fix it?????????????????????????????? Link to comment Share on other sites More sharing options...
ccl0 Posted March 6, 2009 Share Posted March 6, 2009 i'm curious how did you extract the exe? i tried uniextract and it wouldnt work Link to comment Share on other sites More sharing options...
neuropass Posted March 9, 2009 Author Share Posted March 9, 2009 (edited) i'm curious how did you extract the exe? i tried uniextract and it wouldnt worki know dude... sometimes the solution it's so easy that you don't even think about it... i just used winrar!!! So guys , anybody tried this???? Edited March 9, 2009 by neuropass Link to comment Share on other sites More sharing options...
Geej Posted March 13, 2009 Share Posted March 13, 2009 after that i made the autoit script, which is perfect... except for the last two step of the installation... where it asks to scan the system and then the one after that where it asks to restart the pc.. so my script stops there..could please anybody take a look of it now??? finally it's almost done please!!!!!!Since u didn't provide the installer link for download, I google CIS_Setup_3.8.65951.477_XP_Vista_x32.exe and I download from here.I tired it only on VM and I managed to get pass the last 2 stages. But I don't understand your script as it is too complex. I made my own and you can take a look.BTW, I tested on Virtualbox only and the part where it ask to scan the system, my code is in line 56/57Line 59 onwards is the 2nd part where it asks to restart the pc. Script was not tested in unattended environment and I build the script on XP Pro SP3 VM. COMODOInternetSecurityInstallerWizardScript.au3I hope this script somehow helps you in one way or another. Otherwise, just ignore it Link to comment Share on other sites More sharing options...
Geej Posted March 14, 2009 Share Posted March 14, 2009 (edited) Updated script (forgot to include "email address screen")Also test to work at T13 (in VM with internet access ON). When get to 1st login, it throws some error msgs. But After click ok here and there , etc, the program works.Script written to install COMODO Antivirus, COMODO Firewall and COMODO Defense+ , without selecting COMODO SafeSurf Toolbar. Pls use this latest copy for testingCOMODOInternetSecurityInstallerWizardScript.au3Homepage Edited March 14, 2009 by Geej Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now