Jump to content

comodo firewall 3.8.65951.477_XP_Vista_x32


neuropass

Recommended Posts

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()
EndIf
ProcessWaitClose($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

#endregion

Exit

#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
#ce

Func _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)
EndIf
EndFunc

Func _Abort()
; close process if exists then exit.
Dim $pid
If ProcessExists($pid) Then
ProcessClose($pid)
Exit 2
Else
Exit 3
EndIf
EndFunc

Func _Desktop($shortcut)
; Delete a Desktop shortcut.
If FileExists(@DesktopDir & '\' & $shortcut) Then
Return FileDelete(@DesktopDir & '\' & $shortcut)
ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then
Return FileDelete(@DesktopCommonDir & '\' & $shortcut)
EndIf
EndFunc

Func _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
EndIf
EndFunc

Func _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)
EndIf
EndFunc

Func _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
EndIf
EndFunc

Func _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)
Next
EndFunc

Func OnAutoItStart()
; A 2nd script instance will exit.
If StringInStr($CMDLINERAW, '/dummy') Then Exit
If WinExists(@ScriptName & '_Interpreter') Then Exit
AutoItWinSetTitle(@ScriptName & '_Interpreter')
EndFunc

Edited by neuropass
Link to comment
Share on other sites


i'm curious how did you extract the exe? i tried uniextract and it wouldnt work

i know dude... sometimes the solution it's so easy that you don't even think about it... i just used winrar!!! :thumbup

So guys , anybody tried this????

Edited by neuropass
Link to comment
Share on other sites

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/57

Line 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.au3

I hope this script somehow helps you in one way or another. Otherwise, just ignore it :)

Link to comment
Share on other sites

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 testing

COMODOInternetSecurityInstallerWizardScript.au3

Homepage

Edited by Geej
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...