Sign in to follow this  
Followers 0
coucou

Webroot SpySweeper 4.01

11 posts in this topic

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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

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]

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

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

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}>

Share this post


Link to post
Share on other sites

you are making this harder than you need to use the sssetup /silent or /verysilent and kc=(your keycode) I install it all the time

Share this post


Link to post
Share on other sites

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 :(

Share this post


Link to post
Share on other sites

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")

Share this post


Link to post
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
Sign in to follow this  
Followers 0