Sign in to follow this  
Followers 0
wazer

Check if applyd already.

1 post in this topic

Hi there I made this script.

Its all about getting the good old XP quicklaunch back to windows 7 x86/x64 version AUTOMATIC. It works!..

But if the quicklaunch folder has already been applyed to the taskbar it fails and make double quicklaunch on the taskbar.

So are there any kindly to help me check if the quick launch folder has already been applyed to the taskbar?.

Ill show your screenshot. And when your at it, please try my script and see it in action ;).

This is all my code i done have anything to hide. Open for all :)..

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=wazer
#AutoIt3Wrapper_Res_Description=Quick Launch Classic win7 x86/x64 - DK
#AutoIt3Wrapper_Res_LegalCopyright=wazer
#AutoIt3Wrapper_Res_Language=1033
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;------------------------------------------------------------------
; AutoIt Version: 3.3.6.1
; Author: wazer
; Last Edited: 09/04/2010
; QuickLaunch Classic Version 1.03
; Last Edited: 04/09/2010 - EU
; Script Function: Adds Quick Launch Classic Toolbar
;------------------------------------------------------------------

;Messages Box 1.
MsgBox(0, "WARNING -1- !!!! QUICK LAUNCH ENABLE", "THIS WILL RESTART EXPLORER TO TAKE EFFECT OF REG ENTRIES TO BE ALLOWED")
sleep(10)

;Adding Reg Entries.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "EnableAutoTray", "REG_DWORD", "0")
RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2','Settings',"REG_BINARY","28000000ffffffff02000000030000003e0000004e000000feffffffce030000920600001c040000")


;End Windows Explorer.
While ProcessExists ( "explorer.exe" )
   ProcessClose ( "explorer.exe" )
WEnd
Sleep ( 3000 )
;Check for Explorer if not started - then start
While Not ProcessExists ( "explorer.exe" )
   Run ( @WindowsDir & "\explorer.exe" )
   Sleep ( 1000 )
WEnd


;Messages Box 2.
MsgBox(0, "WARNING -2- !!!! QUICK LAUNCH ENABLE", "THIS WILL ENABLE CLASSIC QUICK LAUNCH ON WINDOWS 7 x86/x64 VERSIONS - DONT TOUCH MICE OR KEYBOARD AFTER PRESSING OK UNTIL IT SAYS DONE!!!")

sleep(2000)


;Unlock Taskbar
_ToggleTaskbarLock()
;Create Quicklaunch Toolbar
_TaskToolbarWin7("Shell:Quick Launch")
;Get Quick Launch current postion
While 1
    Sleep(100)
    $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")
    If Not @error Then ExitLoop
WEnd
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
;Hide "Quick Launch" toolbar text
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send("v{UP}{ENTER}")
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
;Hide "Quick Launch" toolbar  title
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send("v{ENTER}")
;Move "Quick Launch" toolbar
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")
MouseClickDrag("left", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 5, $TaskBar_CenterHeight, 0)
;Move "Current Apps" bar                                                        ;Change "Running applications" To your desired language!
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:MSTaskListWClass; TEXT:Running applications]")
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)
;Lock Taskbar
_ToggleTaskbarLock()

sleep(100)
;Locking Taskbar.
Send("{UP}{enter}")


Func _TaskToolbarWin7($toolbardir)
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{ENTER}")
    ;Change to your desired language - "New Toolbar" Only!
    WinWaitActive("New Toolbar")
    ;Change to your desired language - "New Toolbar" Only!
    ControlSetText("New Toolbar", "", "Edit1", $toolbardir)
    ;Change to your desired language - "New Toolbar" Only!
    ControlClick("New Toolbar", "", "Button1")
EndFunc   ;==>_TaskToolbarWin7



Func _ToggleTaskbarLock()
MouseClick("right", 0, @DesktopHeight)
Send("{UP}")
EndFunc ;==>_ToggleTaskbarLock

;Messages Box 3.
MsgBox(0, "WARNING -3- !!!! QUICK LAUNCH ENABLE", "DONE!!! Happy Quicklaunch ;)")

Posted Image

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