SUPERANTISPYWARE

[engjcowi]

Hi Guys

Ive been making a program for myself to autorun superantispyware the portable version as they havent released the command lines yet. I have tested it on windows 7 and it seems to work fine except on the odd occasion it keeps re-running in a loop so it scans cleans then goes back to main menu and re scans etc... and sometimes it doesnt.

My issue is with vista. when i tested it on a friends comp with vista as it was scanning it started to repeatedly press the cancel button. Could you guys pls run and let me know what you think and what findings you get. i bet its something so simple but becaus eive been staring at it for ages im just becoming blind to it lol.

if you donwload the superantispyware portable program from portable sas and put it inthe directory listed below it will determine the file name to run.

Thanks in advance for your help

expandcollapse popup

;set up vars
Local $sasportexe, $sasportrun

;find the full file name as ver numbers may change
$sasportexe = FileFindFirstFile(@ScriptDir & '\health\sas*.com')
$sasportrun = FileFindNextFile($sasportexe) ;set the file name as file to run
FileClose($sasportexe);close the search handle

;run the program
Run(@ScriptDir & "\health\" & $sasportrun)
Sleep(4000) ; Wait for SAS to start                                       ALL SLEEP FUNCTIONS NEEDED DO NOT REMOVE!!!!!

        ;inital welcome screen
        WinActivate("Portable Launcher", "Click here to start")
        WinWaitActive("Portable Launcher", "Click here to start")
        ControlClick("Portable Launcher","Click here to start",1)
        sleep(2000)

;selects the language on selection screen
    If WinExists("SUPERAntiSpyware Language Selection", "OK") Then
        WinActivate("SUPERAntiSpyware Language Selection", "OK")
        WinWaitActive("SUPERAntiSpyware Language Selection", "OK")
        ControlClick("SUPERAntiSpyware Language Selection","OK",1)
        sleep(2500)


    ;sets up the loop while superantispyware is running - when the program closes it will end the loop
While ProcessExists("program.com")
    
    
        ;from main menu this selects the scan button
   If WinExists("SUPERAntiSpyware", "scan") Then
        WinActivate("SUPERAntiSpyware", "scan")
        WinWaitActive("SUPERAntiSpyware", "scan")
        ControlClick("SUPERAntiSpyware","Scan your Computer...",1090)
        sleep(1000)
   EndIf
        ;Selects a full scan option
     If WinExists("SUPERAntiSpyware", "scan") Then
        WinActivate("SUPERAntiSpyware", "scan")
        WinWaitActive("SUPERAntiSpyware", "scan")
        ControlClick("SUPERAntiSpyware","Perform Custom Scan",1073) ;Select full scan   change to 1074 for custom scan and testing code below
        sleep(1000)
    EndIf
    

        ;clicks next button once full scan is selected
    If WinExists("SUPERAntiSpyware", "Perform Complete Scan") Then
        WinActivate("SUPERAntiSpyware", "Perform Complete Scan")
        WinWaitActive("SUPERAntiSpyware", "Perform Complete Scan")
        ControlClick("SUPERAntiSpyware","&Next >",12324)
        sleep(1000)
    EndIf

    ;once scan is co,mpleted summary box opens and clicks to progress to removal screen
    If WinExists("SUPERAntiSpyware Scan Summary", "Potentially harmful items") Then
        WinActivate("SUPERAntiSpyware Scan Summary", "Potentially harmful items")
        WinWaitActive("SUPERAntiSpyware Scan Summary", "Potentially harmful items")
        ControlClick("SUPERAntiSpyware Scan Summary","Potentially harmful items",1)
        sleep(1000)
    EndIf
;nothing found and close
    If WinExists("SUPERAntiSpyware", "OK") Then
        WinActivate("SUPERAntiSpyware", "OK")
        WinWaitActive("SUPERAntiSpyware", "OK")
        ControlClick("SUPERAntiSpyware","OK",2)
        sleep(1000)
        ProcessClose("program.com")
        sleep(1000)
        ProcessClose("program.com") ;sometimes multiple instance found so double close added
    EndIf

        ;all spyware already checked by program so clicks ok to remove found spyware
    If WinExists("SUPERAntiSpyware", "Place a checkmark next to the items you wish to") Then
        WinActivate("SUPERAntiSpyware", "Place a checkmark next to the items you wish to")
        WinWaitActive("SUPERAntiSpyware", "Place a checkmark next to the items you wish to")
        ControlClick("SUPERAntiSpyware","&Next >",12324)
        sleep(1000)
        LogState("Spyware found and removed") ; writes in the log that spyware was found and removed
        $sasmal = 1 ; for cust report as above
    EndIf
        ;stops restart - restart will be required at some point
    If WinExists("SUPERAntiSpyware", "You must reboot to complete the remova") Then
        WinActivate("SUPERAntiSpyware", "You must reboot to complete the remova")
        WinWaitActive("SUPERAntiSpyware", "You must reboot to complete the remova")
        send("!N")
        sleep(1000)
        ;ControlClick("SUPERAntiSpyware","&Next >",12324)
    EndIf
        ;stops restart - restart will be required at some point and say ok i understand restart required
    If WinExists("SUPERAntiSpyware", "Your system is still infected, you must reboot") Then
        WinActivate("SUPERAntiSpyware", "Your system is still infected, you must reboot")
        WinWaitActive("SUPERAntiSpyware", "Your system is still infected, you must reboot")

        ControlClick("SUPERAntiSpyware","OK",2)
        sleep(1000)
        ProcessClose("superantispyware.exe")
        ProcessClose("program.com")
    EndIf

        ;clicks finish once spyware removed - think may have been part of full superantispyware code but so far done no harm so leaving for now lol
    If WinExists("SUPERAntiSpyware", "<B>Quarantined and Removed Items") Then
        WinActivate("SUPERAntiSpyware", "<B>Quarantined and Removed Items")
        WinWaitActive("SUPERAntiSpyware", "<B>Quarantined and Removed Items")

        ControlClick("SUPERAntiSpyware","Finish",12325)
        ProcessClose("superantispyware.exe")
        ProcessClose("program.com")
    EndIf
     Sleep(500) ; let the computer do something

WEnd

[engjcowi]

Anyone had chance to have a test?

[llewxam]

The really isn't the place to have this post, you should always ask for help in the General Help and Support forum, Example Scripts is more for things that already fully work....

BUT to help you out a bit, line 25 has an If that there is no EndIf for, so there may be several issues like that. I would highly suggest you get the full Scite package available in the downloads and use CTRL-F5 to check for simple errors like that while testing your code. I would also reccommend a structure more like this for automating an app:

expandcollapse popup

Run(@tempdir&"\TechFaves\Spyware Removal\ad-awareae.exe")
GUICtrlSetData($info, "waiting for ""Select Setup Language"" screen")
Do
    sleep($timedelay)
    if WinExists("Select Setup Language") Then
        WinActivate("Select Setup Language")
        GUICtrlSetData($info, "send ""Enter""")
        sleep($timedelay)
        send("{ENTER}")
        GUICtrlSetData($info, "waiting for installation wizard")
    EndIf
    if WinExists("Ad-Aware - InstallAware Wizard","Next ") Then
        WinActivate("Ad-Aware - InstallAware Wizard","Next ")
        GUICtrlSetData($info, "send ""Enter""")
        sleep($timedelay)
        send("{ENTER}")
        GUICtrlSetData($info, "waiting for ""License Agreement"" screen")
    EndIf
    if WinExists("Ad-Aware - InstallAware Wizard","END USER LICENSE AGREEMENT") Then
        WinActivate("Ad-Aware - InstallAware Wizard","END USER LICENSE AGREEMENT ")
        GUICtrlSetData($info, "select ""Accept"" (send ""Space"")")
        sleep($timedelay)
        send("{SPACE}")
        GUICtrlSetData($info, "send ""Enter""")
        sleep($timedelay)
        send("{ENTER}")
        GUICtrlSetData($info, "3 second pause then send send ""ALT-I"" at ""Confirm"" screen")
        sleep(3000)
        send("!i")
        GUICtrlSetData($info, "waiting for the ""Installation Complete"" screen")
    EndIf
    if WinExists("Ad-Aware - InstallAware Wizard","Restart now") Then
        WinActivate("Ad-Aware - InstallAware Wizard","Restart now")
        GUICtrlSetData($info, "uncheck ""Restart Now"" option (send ""Space"")")
        sleep($timedelay*2)
        send("{SPACE}")
        GUICtrlSetData($info, "send ""Enter""")
        sleep($timedelay*2)
        send("{ENTER}")
        GUICtrlSetData($info, "waiting for ""Update Manager"" to complete")
        Winwait("Update Manager")
        sleep($timedelay)
        WinActivate("Update Manager")
        GUICtrlSetData($info, "waiting for the ""Update Manager""")
    endIf
    if WinExists("Update Manager") then
        GUICtrlSetData($info, "waiting for the ""Update Manager"" to close")
        if not WinExists("Update Manager") then ExitLoop
        winwaitclose("Update Manager")
        ExitLoop   ;done
    EndIf
until 1=2

This code has nothing to do with your project, just an example grabbed from my Ad-Aware SE installation automater. I put the steps within a Do-Until loop so the timing of the window showing up doesn't matter, the script will just keep looking for windows that will come up eventually.