Jump to content
Sign in to follow this  
Guest Thinkster

Need to customize Explorer toobar buttons

Recommended Posts

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?

Share this post


Link to post
Share on other sites

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 "

#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!


NEWHeader1.png

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...