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
Link to comment
Share on other sites
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
Link to comment
Share on other sites
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

Link to comment
Share on other sites
herewasplato Universalist

herewasplato

Posted
Posted

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]

Link to comment
Share on other sites
herewasplato Universalist

herewasplato

Posted
Posted

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]

Link to comment
Share on other sites
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

Link to comment
Share on other sites
herewasplato Universalist

herewasplato

Posted
Posted

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]

Link to comment
Share on other sites
  • 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

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

Link to comment
Share on other sites
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")

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

  • Recently Browsing   0 members

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