Jump to content

Webroot SpySweeper 4.01

coucou
 Share

Recommended Posts

coucou Prodigy

coucou

Posted
Posted

I'm not a coder but try hardly to be.

Here i try building Webroot SpySweeper 4.01 AutoIt installer and i encountered some difficulties.

TNX for any help

coucou

Here my .au3 file script

Run("SpySweeperRegSetup_EN.exe")

WinWaitActive("Setup - Spy Sweeper")

Send("!n")

WinWaitActive("Setup - Spy Sweeper", "Please Enter Your Ket Code")

Send("XXXX-XXXX-XXXX-XXXX-XXXX") see enclosed image I get AutoIt Error: Unable to parse line

Send("!n") Should it be in a separate line or in the same line above

WinWaitActive("Setup - Spy Sweeper", "License Agreement")

Send("!a")

Send("!n")

WinWaitActive("Setup - Spy Sweeper", "Select Your Install Type")

Send("!t")

Send("!n")

WinWaitActive("Setup - Spy Sweeper", "Product Registration")

Send("!n")

WinWaitActive("Setup - Spy Sweeper", "Ready to Install")

Send("!i")

WinWaitActive("Setup - Spy Sweeper", "Completing the Spy Sweeper Setup Wizard")

How to Uncheck "Run Spy Sweeper Now" before clicking on "Finish" see enclosed image

Send("!f")

Here The AutoIT Info install

1)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
&Next >
Cancel
=============================================

2)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Help...
Please Enter Your Key Code
XXXX
XXXX
XXXX
XXXX
XXXX
< &Back
&Next >
Cancel
============================================

3)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
License Agreement

I &Accept the Agreement
I &Do Not Accept the Agreement
< &Back
&Next >
Cancel
===========================================

4)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Select Your Install Type
&Custom
&Typical
< &Back
&Next >
Cancel
========================================

5)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Product Registration
Register Spy Sweeper
< &Back
&Next >
Cancel
======================================

6)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Ready to Install

< &Back
&Install
Cancel
============================================

7)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Completing the Spy Sweeper Setup Wizard

Setup has finished installing Spy Sweeper on your computer. The application may be launched by clicking the installed icons.

Click Finish to exit Setup.

&Finish
KXM Wayfarer

KXM

Posted
Posted

Well, here is my inastller. it's paer of a larger program, I just extracted to spysweeper part, so lord only knows if it'll work, but maybe it can help.

#include <GUIConstants.au3>
ssweep_inst()
Func ssweep_inst()
    opt("GUIOnEventMode", 0)
    
    If ProcessExists("spysweeper.exe") Then
        ProcessClose("spysweeper.exe")
    EndIf
    
    Dim $gSub_gui = GUICreate("SpySweeper installer", 489, 160, (@DesktopWidth - 489) / 2, (@DesktopHeight - 121) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    
    Local $gSpysweep_key = GUICtrlCreateGroup("SpySweeper info:", 10, 10, 470, 100)
    Local $sSpysweep_key_1 = GUICtrlCreateInput("", 20, 40, 80, 20)
    Local $sSpysweep_key_2 = GUICtrlCreateInput("", 110, 40, 80, 20)
    Local $sSpysweep_key_3 = GUICtrlCreateInput("", 200, 40, 80, 20)
    Local $sSpysweep_key_4 = GUICtrlCreateInput("", 290, 40, 80, 20)
    Local $sSpysweep_key_5 = GUICtrlCreateInput("", 390, 40, 80, 20)
    Local $gSpysweep_inst_btn = GUICtrlCreateButton("Install", 200, 120, 80)
    GUICtrlSetLimit($sSpysweep_key_1, 4)
    GUICtrlSetLimit($sSpysweep_key_2, 4)
    GUICtrlSetLimit($sSpysweep_key_3, 4)
    GUICtrlSetLimit($sSpysweep_key_4, 4)
    GUICtrlSetLimit($sSpysweep_key_5, 4)
    GUICtrlSetState($sSpysweep_key_1, $GUI_FOCUS)
    GUISetState()
    
    While 1
        Dim $gGetMsg = GUIGetMsg()
        Select
            Case $gGetMsg = $GUI_EVENT_CLOSE
                Exit
            Case $gGetMsg = $gSpysweep_inst_btn
            ;gets typed in key
                Local $sSpysweep_key_1 = GUICtrlRead($sSpysweep_key_1)
                Local $sSpysweep_key_2 = GUICtrlRead($sSpysweep_key_2)
                Local $sSpysweep_key_3 = GUICtrlRead($sSpysweep_key_3)
                Local $sSpysweep_key_4 = GUICtrlRead($sSpysweep_key_4)
                Local $sSpysweep_key_5 = GUICtrlRead($sSpysweep_key_5)
            ;converts key to uppercase
                Local $sSpysweep_key_1 = StringUpper($sSpysweep_key_1)
                Local $sSpysweep_key_2 = StringUpper($sSpysweep_key_2)
                Local $sSpysweep_key_3 = StringUpper($sSpysweep_key_3)
                Local $sSpysweep_key_4 = StringUpper($sSpysweep_key_4)
                Local $sSpysweep_key_5 = StringUpper($sSpysweep_key_5)
                ExitLoop
            Case Else
            ;;;
        EndSelect
    WEnd
    
    opt("WinTitleMatchMode", 2)
    Run(@ScriptDir & "\spysweeper_v4.01.exe")
    
    guidelete()
    WinWait("Setup - Spy Sweeper", "This will install Spy Sweeper ")
    ControlClick("Setup - Spy Sweeper", "", "TButton1")
    ControlSetText("Setup - Spy Sweeper", "Please Enter Your Key Code", "TEdit5", $sSpysweep_key_1)
    ControlSetText("Setup - Spy Sweeper", "Please Enter Your Key Code", "TEdit4", $sSpysweep_key_2)
    ControlSetText("Setup - Spy Sweeper", "Please Enter Your Key Code", "TEdit3", $sSpysweep_key_3)
    ControlSetText("Setup - Spy Sweeper", "Please Enter Your Key Code", "TEdit2", $sSpysweep_key_4)
    ControlSetText("Setup - Spy Sweeper", "Please Enter Your Key Code", "TEdit1", $sSpysweep_key_5)
    ControlClick("Setup - Spy Sweeper", "", "TButton3")
    ControlClick("Setup - Spy Sweeper", "", "TRadioButton1")
    ControlClick("Setup - Spy Sweeper", "", "TButton3")
    ControlClick("Setup - Spy Sweeper", "", "TButton3")
    ControlClick("Setup - Spy Sweeper", "", "TButton3")
    While 1
        Select
            Case WinExists("Setup - Spy Sweeper", "To complete the installation o")
                ControlClick("Setup - Spy Sweeper", "To complete the installation o", "TRadioButton2")
                ControlClick("Setup - Spy Sweeper", "To complete the installation o", "TButton3")
                DirCopy(@ScriptDir & "\masters", @ProgramFilesDir & "\Webroot\Spy Sweeper\Masters\", 1)
            Case WinExists("Setup - Spy Sweeper", "Completing the Spy Sweeper Setup Wizard")
                ExitLoop
        EndSelect
    WEnd
    ControlClick("Setup - Spy Sweeper", "Completing the Spy Sweeper Setup Wizard", "TButton3")
    DirCopy(@ScriptDir & "\ssweeper\masters", @ProgramFilesDir & "\Webroot\Spy Sweeper\Masters\", 1)
    ProcessWait("spysweeper.exe")
    ProcessClose("spysweeper.exe")
    ProcessWaitClose("spysweeper.exe")
    WinWait("Microsoft Internet Explorer", "", 10)
    WinClose("Microsoft Internet Explorer")
    MsgBox(0,"Finshed","SpySweeper has finshed installing")
EndFunc  ;==>ssweep_inst
coucou Prodigy

coucou

Posted
  • Author
Posted

TNX KXM... It's NOT working. I get error in line 10 Unknown Fuction Name.

Moreover, I try to build a SILENT installer which handle automatically the serial code and so on...

Regards

coucou

herewasplato Universalist

herewasplato

Posted
Posted

  coucou said:

WinWaitActive("Setup - Spy Sweeper", "Please Enter Your Ket Code")

<{POST_SNAPBACK}>

Might I suggest that you copy/paste from the "AutoIt Window Info" tool for title and text? Then copy/paste your code into your forum post. If someone were to copy/paste/run your code as posted they would be fighting your typo:

...Your Ket Code...

...Your Key Code...

  coucou said:

Send("XXXX-XXXX-XXXX-XXXX-XXXX")  see enclosed image I get AutoIt Error: Unable to parse line

Send("!n")    Should it be in a separate line or in the same line above

<{POST_SNAPBACK}>

I see no problem with the line of code above other than you might not want to send the dashes:

Send("XXXXXXXXXXXXXXXXXXXX")

As for having Send("!n") on a separate line or on the line above - it should not matter.

...not much help, just a few comments...

[size="1"][font="Arial"].[u].[/u][/font][/size]

herewasplato Universalist

herewasplato

Posted
Posted

  coucou said:

WinWaitActive("Setup - Spy Sweeper", "Completing the Spy Sweeper Setup Wizard")

How to Uncheck "Run Spy Sweeper Now" before clicking on "Finish" see enclosed image

Send("!f")

<{POST_SNAPBACK}>

If the option is already selected (as shown in the image) then try sending a space key:

Send("{SPACE}")

If it is not selected, you might tab to it by sending as many tabs as is needed.

A better option (but a bit harder to explain) is to use the control functions. Read the help file on these.

[size="1"][font="Arial"].[u].[/u][/font][/size]

coucou Prodigy

coucou

Posted
  • Author
Posted

TNX guys for yr help.

I got success allready to build this installer and I added in the end of my silent install .cmd file 

taskkill /F /IM SpySweeper.exe
it work nice.

But I prEfere the herewasplato's 'Send("{SPACE}")' command. Tested working like a charm! :(

Run("SpySweeperRegSetup_EN.exe")
WinWaitActive("Setup - Spy Sweeper")
Send("!n")
WinWaitActive("Setup - Spy Sweeper", "Help...")
Send("XXXX-XXXX-XXXX-XXXX-XXXX")
Send("!n")
WinWaitActive("Setup - Spy Sweeper", "License Agreement")
Send("!a")
Send("!n")
WinWaitActive("Setup - Spy Sweeper", "Select Your Install Type")
Send("!t")
Send("!n")
WinWaitActive("Setup - Spy Sweeper", "Ready to Install")
Send("!i")
WinWaitActive("Setup - Spy Sweeper", "Completing the Spy Sweeper Setup Wizard")
Send("{SPACE}")
Send("!f")

Is there an AutoIt command to make all silent (No install progress display)???

Again TNX all

coucou

herewasplato Universalist

herewasplato

Posted
Posted

  coucou said:

Is there an AutoIt command to make all silent (No install progress display)???

<{POST_SNAPBACK}>

If I understand your AutoIt question correctly...

...the answer is, "Not that I'm aware of".

If the installation program had a switch for silent installation, then you could add it to the line that started the install. Perhaps something like:

Run("SpySweeperRegSetup_EN.exe /Q")

It would be a feature of the installation program, not an AutoIt command/function.

Glad to help...

[size="1"][font="Arial"].[u].[/u][/font][/size]

  • 2 weeks later...
AntiVirusGuy Prodigy

AntiVirusGuy

Posted
Posted

you are making this much harder than you need to you can use the /silent or /verysilent parameter with the /kc=(your key code here) to perform this with your sssetup.exe file

  coucou said:

I'm not a coder but try hardly to be.

Here i try building Webroot SpySweeper 4.01 AutoIt installer and i encountered some difficulties.

TNX for any help

coucou

Here my .au3 file script

Run("SpySweeperRegSetup_EN.exe")

WinWaitActive("Setup - Spy Sweeper")

Send("!n")

WinWaitActive("Setup - Spy Sweeper", "Please Enter Your Ket Code")

Send("XXXX-XXXX-XXXX-XXXX-XXXX")  see enclosed image I get AutoIt Error: Unable to parse line

Send("!n")    Should it be in a separate line or in the same line above

WinWaitActive("Setup - Spy Sweeper", "License Agreement")

Send("!a")

Send("!n")

WinWaitActive("Setup - Spy Sweeper", "Select Your Install Type")

Send("!t")

Send("!n")

WinWaitActive("Setup - Spy Sweeper", "Product Registration")

Send("!n")

WinWaitActive("Setup - Spy Sweeper", "Ready to Install")

Send("!i")

WinWaitActive("Setup - Spy Sweeper", "Completing the Spy Sweeper Setup Wizard")

How to Uncheck "Run Spy Sweeper Now" before clicking on "Finish" see enclosed image

Send("!f")

Here The AutoIT Info install

1)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
&Next >
Cancel
=============================================

2)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Help...
Please Enter Your Key Code
XXXX
XXXX
XXXX
XXXX
XXXX
< &Back
&Next >
Cancel
============================================

3)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
License Agreement

I &Accept the Agreement
I &Do Not Accept the Agreement
< &Back
&Next >
Cancel
===========================================

4)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Select Your Install Type
&Custom
&Typical
< &Back
&Next >
Cancel
========================================

5)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Product Registration
Register Spy Sweeper
< &Back
&Next >
Cancel
======================================

6)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Ready to Install

< &Back
&Install
Cancel
============================================

7)
>>>>>>>>>>>> Window Title <<<<<<<<<<<<<
Setup - Spy Sweeper

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Completing the Spy Sweeper Setup Wizard

Setup has finished installing Spy Sweeper on your computer. The application may be launched by clicking the installed icons.

Click Finish to exit Setup.

&Finish

<{POST_SNAPBACK}>

coucou Prodigy

coucou

Posted
  • Author
Posted

TNX ssebrownatcolby,

I tested it right now, working :(

Here the exact parameters:

SpySweeperRegSetup_EN.exe /VERYSILENT /KC=XXXX-XXXX-XXXX-XXXX-XXXX

no bracket needed

Regards

coucou :(

AntiVirusGuy Prodigy

AntiVirusGuy

Posted
Posted

sorry bad choice of an example with the () anyway I am glad you are up and running. I am trying to figure out how to program a sweep but can not get it to work any ideas here it what I have tried but there is a problem waiting for the tpanel windows

Run("C:\Program Files\Webroot\Spy Sweeper\SpySweeper.exe")

Sleep(5000)

WinActive("Webroot Spy Sweeper ")

Send("!s")

Sleep(500)

Send("!t")

AutoItSetOption("WinTitleMatchMode", 4)

classname=TPanel2

WinWait("TPanel2","Webroot Spy Sweeper ")

Sleep(1000)

Send("!x")

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
 Share
Go to topic listing

  • Recently Browsing   0 members

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