Sign in to follow this  
Followers 0
Guest Redback

Removing A Start menu Deadwood

4 posts in this topic

I'm new too this , so be patient with me , thanks.

I'm trying to delete a shortcut directory from the start program menu but I have tried two commands and both don't seem to remove the folder link ( this is in XP) .

Maybe someone can enlighten me ?

P.S as ya can see , I have tried both @ProgramsCommonDir & @StartMenuCommonDir to no avail .

; ----------------------------------------------------------------------------

; Language: English

; Platform: NT /XP Server 2003

; Author: Redback

; Script Function:

; Ad-aware SE Pro Edition 1.06

; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------

; End User Var's

; ----------------------------------------------------------------------------

$SF_1 = "Ad-aware.exe" ; Setup File Name

$SM_1 = "\Security\System - Scanners\Ad-Aware Se Professional\" ; Location For Start Menu

$DL_1 = @ProgramFilesDir & "\Security\System - Scanners\Ad-Aware Se Professional\" ; Location For Installation

$DD_1 = "daemonB1"; Bus driver name

$DD_2 = "daemonP1"; Miniport driver name

$Opt_1 = "N"; (Y)es or (N)o - Perform a full system scan now

$Opt_2 = "N"; (Y)es or (N)o - Open the help file now

$Opt_3 = "N"; (Y)es or (N)o - Update definition file now

; Delete Ad-aware Shortcuts

$SC_1 = "N" ; (Y)es or (N)o - Delete Shortcut For Ad-Aware SE Manual

$SC_2 = "N" ; (Y)es or (N)o - Delete Shortcut For Ad-Aware SE Professional

$SC_3 = "N" ; (Y)es or (N)o - Delete Shortcut Ad-Watch SE Professional

$SC_4 = "N" ; (Y)es or (N)o - Delete Shortcut Uninstall Ad-Aware SE Professional

$SC_5 = "N" ; (Y)es or (N)o - Delete Shortcut Ad-Aware SE Professional

; ----------------------------------------------------------------------------

; Prevent Duplicates From Running

; ----------------------------------------------------------------------------

$g_szVersion = "Ad-Aware SE Professional"

If WinExists($g_szVersion) Then Exit ; It"s already running

AutoItWinSetTitle($g_szVersion)

; ----------------------------------------------------------------------------

; Script Defaults

; ----------------------------------------------------------------------------

opt("CaretCoordMode", 1) ;1=absolute, 0=relative

opt("ExpandEnvStrings", 0) ;0=don"t expand, 1=do expand

opt("MouseClickDelay", 10) ;10 milliseconds

opt("MouseClickDownDelay", 10) ;10 milliseconds

opt("MouseClickDragDelay", 250) ;250 milliseconds

opt("MouseCoordMode", 0) ;1=absolute, 0=relative

opt("MustDeclareVars", 0) ;0=no, 1=require pre-declare

opt("PixelCoordMode", 1) ;1=absolute, 0=relative

opt("RunErrorsFatal", 1) ;1=fatal, 0=silent set @error

opt("SendAttachMode", 0) ;0=don"t attach, 1=doattach

opt("SendCapslockMode", 1) ;1=store and restore, 0=don"t

opt("SendKeyDelay", 1) ;5 milliseconds

opt("SendKeyDownDelay", 1) ;1 millisecond

opt("TrayIconDebug", 1) ;0=no info, 1=debug line info

opt("TrayIconHide", 0) ;0=show, 1=hide tray icon

opt("WinDetectHiddenText", 0) ;0=don"t detect, 1=do detect

opt("WinSearchChildren", 1) ;0=no, 1=search children also

opt("WinTitleMatchMode", 3) ;1=start, 2=subStr, 3=exact, 4=...

opt("WinWaitDelay", 250) ;250 milliseconds

; ----------------------------------------------------------------------------

; Script Start

; ----------------------------------------------------------------------------

Run(@ComSpec & " /c " & "start " & $SF_1, "", @SW_HIDE)

$Title_1 = "Ad-Aware SE Professional"

; Welcome

WinWaitActive($Title_1, "Welcome")

ControlClick($Title_1, "", "Button1")

; License Agreement

WinWaitActive($Title_1, "I accept the license agreement")

ControlClick($Title_1, "", "Button4")

ControlClick($Title_1, "", "Button1")

; Check Installation

ControlClick($Title_1, "", "Button5")

ControlClick($Title_1, "", "Button1")

; Desination Location

WinWaitActive($Title_1, "different folder")

ControlClick($Title_1, "", "Button5")

ControlSetText("", "", "Edit1", $DL_1)

Send("{ENTER}")

ControlClick($Title_1, "", "Button1")

; Install options

WinWaitActive($Title_1, "Anyone who uses this computer")

ControlClick($Title_1, "", "Button4")

ControlClick($Title_1, "", "Button1")

Send("{ENTER}")

WinWaitActive ( $Title_1 , "&Finish " )

If $Opt_1 = "n" Then ControlClick( $Title_1 , "" , "Button7" )

If $Opt_2 = "n" Then ControlClick( $Title_1 , "" , "Button9" )

If $Opt_3 = "n" Then ControlClick( $Title_1 , "" , "Button8" )

Send("{ENTER}")

; Create Directorys if Non-Existant

If FileExists ( @ProgramsCommonDir & "\System - Scanners\" & $SM_1 ) = 0 Then DirCreate ( @ProgramsCommonDir & "\" & $SM_1 )

; Move Files

FileMove ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional\Ad-Aware SE Manual.lnk" , @ProgramsCommonDir & "\" & $SM_1 & "\Ad-Aware SE Manual.lnk" , 1 )

FileMove ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional\Ad-Aware SE Professional.lnk" , @ProgramsCommonDir & "\" & $SM_1 & "\Ad-Aware SE Professional.lnk" , 1 )

FileMove ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional\Ad-Watch SE Professional.lnk" , @ProgramsCommonDir & "\" & $SM_1 & "\Ad-Watch SE Professional.lnk" , 1 )

FileMove ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional\Uninstall Ad-Aware SE Professional.lnk" , @ProgramsCommonDir & "\" & $SM_1 & "\Uninstall Ad-Aware SE Professional.lnk" , 1 )

; Delete Ad-aware Shortcuts

$local = @ProgramsCommonDir & "\" & $SM_1 & "\"

If $SC_1 = "y" Then FileDelete ( $local & "Ad-Aware SE Manual.lnk" )

If $SC_2 = "y" Then FileDelete ( $local & "Ad-Aware SE Professional.lnk" )

If $SC_3 = "y" Then FileDelete ( $local & "Ad-Watch SE Professional.lnk" )

If $SC_4 = "y" Then FileDelete ( $local & "Uninstall Ad-Aware SE Professional.lnk" )

If $SC_5 = "y" Then FileDelete ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

Exit

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

You have the @StartMenuDir macro, or the @StartMenuCommonDir macro.

You have not tried the 1st, as of yet?

Edit: Just did a test install of Adaware 1.06 personal. The startmenu location is @StartMenuDir

Edited by MHz

Share this post


Link to post
Share on other sites

tried all these ! still to no avail !

If $SC_5 = "y" Then FileDelete ( @StartMenuDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

If $SC_6 = "y" Then FileDelete ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

If $SC_7 = "y" Then FileDelete ( @ProgramsDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

If $SC_8 = "y" Then FileDelete ( @StartupCommonDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

Share this post


Link to post
Share on other sites

One this should be in the Support Forum (I think)? :whistle:

I am having a similar problem, in the fact I cannot get any shortcuts to delete. I try it without the .lnk and with it, to no avail. If anyone has a solution for deleteing shortcuts that would be wonderful.

JS


AutoIt Links

File-String Hash Plugin Updated! 04-02-2008 Plugins have been discontinued. I just found out.

ComputerGetInfo UDF's Updated! 11-23-2006

External Links

Vortex Revolutions Engineer / Inventor (Web, Desktop, and Mobile Applications, Hardware Gizmos, Consulting, and more)

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