Need to customize Explorer toobar buttons

[Guest Thinkster]

Normally I open Explorer and goto: View-->Toolbars--->Customize and then add the 'Cut' 'Copy' 'Paste' and 'Delete' Buttons, but I would like to be able to have a script to automatically do this. I've done a registry compare before and after the buttons have been added and created a .reg file that I thought would do the trick, but it doesn't work when I try it on another machine.

Also, I have a .vbs that is supposed to enable Quick Launch by the Start button, but it doesn't seem to work when I put it in the RunOnce in my registry. I'm thinking AutoIt may be able to accomplish this too?

[Valuater 130]

This will do the trick!!! (worked on my computer anyway)

its a complete menu... and its really cool

Launches IE explorer

Sets the copy, paste and cut in IE

Hides on its own or manually

looks nice with pic and title of " IE 4 ME "

expandcollapse popup

#cs ================================================
    Autor:      Robert M @ QT Appraisal
    E-mail:     XPCleanMenu@aol.com
    Language:   English
    OSystem:    Windows Xp
#ce ================================================
#include <GUIConstants.au3>
Dim $1Tip = "", $Stop = ""
opt("GUIOnEventMode", 1) ; Change to OnEvent mode
opt("WinTitleMatchMode", 3)
$Logo = @HomeDrive & "\Temp\logo.jpg"
FileInstall("C:\Windows\Help\Tours\htmltour\logo.jpg", $Logo)

$Start_Menu = GUICreate("*XPedite Clean*", 200, 115, 3, 3, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW)
GUICtrlCreatePic($Logo, 0, 0, 200, 80)
$Start_1 = GUICtrlCreateButton("Start", -1, 80, 42, 20, $BS_ICON)
GUICtrlSetOnEvent(-1, "Set_Start")
$Start_2 = GUICtrlCreateButton("Stop", 41, 80, 40, 20, $BS_ICON)
GUICtrlSetOnEvent(-1, "Set_Stop")
$Start_4 = GUICtrlCreateButton("Hide", 120, 80, 40, 20, $BS_ICON)
GUICtrlSetOnEvent(-1, "Set_Hide")
$Start_5 = GUICtrlCreateButton("Exit", 160, 80, 40, 20, $BS_ICON)
GUICtrlSetOnEvent(-1, "Set_Exit")
$Notice = GUICtrlCreateLabel("IE 4 ME", 25, 30, 200, 60)
GUICtrlSetFont(-1, 28, 10)
GUISetState()

$begin = TimerInit()
Do
    $Msg = GUIGetMsg()
    
    $dif = TimerDiff($begin)
    If $dif >= 50000 Then
        GUISetState(@SW_HIDE, $Start_Menu)
        If $1Tip = "" Then
            SplashTextOn("", "<<< Place Mouse HERE", 200, 20, 2, 2, 1)
            Sleep(3500)
            SplashOff()
            $1Tip = "off"
        EndIf
        $begin = TimerInit()
    EndIf
    
; controls Start Menu return from upper/left screen position
    $pos = MouseGetPos()
    If $pos[0] > - 1 And $pos[0] < 12 And $pos[1] > - 1 And $pos[1] < 12 Then
        Call("Set_Show")
    EndIf
    
Until $Msg = $Start_5; Continue loop until EXIT is pressed
Exit

;------------------------ Functions ---------------

Func Set_Start()
    Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
    Sleep(2000)
    WinWaitActive("", "", 20)
    Send("!v")
    Sleep(300)
    Send("t")
    Sleep(300)
    Send("c")
    Sleep(300)
    For $X = 1 To 5
        Send("{TAB}")
        Sleep(100)
    Next
    Sleep(500)
    For $X = 1 To 6
        Send("{DOWN}")
        Sleep(100)
    Next
    Sleep(700)
    Send("!a")
    Sleep(700)
    Send("!a")
    Sleep(700)
    Send("!a")
    Sleep(1000)
    Send("{ENTER}")
; ------------------------------------- I dont have a delete button in my list
    $begin = TimerInit()
EndFunc  ;==>Set_Start

Func Set_Stop()
    #Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes and No, Icon=Info, Timeout=30 ss
    If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(68, "Stop What?", "LOL" & @CRLF & @CRLF & "Brought to you by QT Appraisal Service" & @CRLF & @CRLF & "Check out our *XPClean Menu* " & @CRLF & @CRLF & "@ www.XPCleanMenu.HostRocket.com", 30)
    Select
        Case $iMsgBoxAnswer = 6;Yes
            Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.xpcleanmenu.hostrocket.com")
        Case $iMsgBoxAnswer = 7;No
            
        Case $iMsgBoxAnswer = -1;Timeout
            
    EndSelect
    #EndRegion --- CodeWizard generated code End ---
    $begin = TimerInit()
EndFunc  ;==>Set_Stop

Func Set_Hide()
    GUISetState(@SW_HIDE, $Start_Menu)
    If $1Tip = "" Then
        SplashTextOn("", "<<< Place Mouse HERE", 200, 20, 2, 2, 1)
        Sleep(3000)
        SplashOff()
        $1Tip = "off"
    EndIf
EndFunc  ;==>Set_Hide

Func Set_Show()
    GUISetState(@SW_SHOW, $Start_Menu)
    $begin = TimerInit()
EndFunc  ;==>Set_Show

Func Set_Exit()
    Exit
EndFunc  ;==>Set_Exit

There was no Delete in my list..... you may need to tweak it for your computer

Enjoy!