Jump to content

Welcome to MSFN Forum
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. This message will be removed once you have signed in.
Login to Account Create an Account


Photo

Quick Launch Classic 7 Tool 1.0.5


  • Please log in to reply
200 replies to this topic

#76
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts
OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3
English: The Quick Launch bar is created, doesn't move to the left
French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry
Regards


How to remove advertisement from MSFN

#77
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag

OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3
English: The Quick Launch bar is created, doesn't move to the left
French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry
Regards


Yes coucou! :rolleyes:

It's needed to close the Langbar first!
wazer
is looking for a workaround about this problem!

I've made an successfull installation because I've injected the reg keys to close the Langbar first!

Thanks for your support! ;)
Regards

*Edit: You can find help reading my post about how to close the Langbar for silent installation:
http://www.msfn.org/...04/page__st__40

Edited by myselfidem, 24 January 2011 - 12:53 PM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#78
yngdiego

yngdiego

    Newbie

  • Member
  • 13 posts
I only want a script/program to create the quick launch bar on the left, and to do nothing else. No re-sizing icons, changing toolbar properties, etc. I appreciate the author's work, but I think he tried to do too much in one program without giving us any GUI options to chose what we do or do not want done.

#79
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag

OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3
English: The Quick Launch bar is created, doesn't move to the left
French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry
Regards

Hello!
Could you try to close first the Langbar on your computer and launch QuickLaunch.au3 and tell us what is the result?
Thanks


After you can Enable your Langbar!
Langbar on Taskbar

Edited by myselfidem, 25 January 2011 - 02:13 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#80
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts

Hello!
Could you try to close first the Langbar on your computer and launch QuickLaunch.au3 and tell us what is the result?
Thanks

Tested works, the Quick Launch bar is created and move to the left

After you can Enable your Langbar!
Langbar on Taskbar

You can also just point the LangBar and drag it to the toolbar.

Anyway, i still use mine, much lighter (purged from any unused code) and just do the main job (creating a QuickLaunch toolbar without moving it to the left).

Regards

Edited by coucou, 25 January 2011 - 05:13 AM.


#81
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag

Hello!
Could you try to close first the Langbar on your computer and launch QuickLaunch.au3 and tell us what is the result?
Thanks

Tested works, the Quick Launch bar is created and move to the left

After you can Enable your Langbar!
Langbar on Taskbar

You can also just point the LangBar and drag it to the toolbar.

Anyway, i still use mine, much lighter (purged from any unused code) and just do the main job (creating a QuickLaunch toolbar without moving it to the left).

Regards

Thanks coucou! :rolleyes:
The way is to add many languages.
Of course if I use only mine with French language only; the file is much lighter!
I'm looking how to close the Langbar first with AutoIt 3.3.6.1!
Cheers

Edited by myselfidem, 25 January 2011 - 06:20 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#82
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts

The way is to add many languages.
Of course if I use only mine with French language only; the file is much lighter!
Cheers

mine too is multi language, here is bellow... As i wrote above, just the essential.

Opt('TrayIconDebug', 1)
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")

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
    If @error = 0 Then ; registry ValueName exist
    Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
   EndIf

$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"

Select
   Case $Lang = "fr-FR";French
         $title = "Nouvelle barre d’outils - Choisir un dossier"
   Case $Lang = "en-US"; English
         $title = "New Toolbar - Choose a folder"
EndSelect

;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

Func _TaskToolbarWin7($toolbardir)
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{ENTER}")
    WinWaitActive($title)
sleep(1000)
    ControlSetText($title, "", "Edit1", $path)
sleep(1000)
    ControlClick($title, "", "Button1")
EndFunc   ;==>_TaskToolbarWin7

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

#83
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
@wazer!

I've found a workaround to disable the Langbar and it's needed to reboot to see the Langbar again!
Tested and works fine for me:

Download for testing => QuickLaunchLangbar.au3

QuickLaunch.zip


;----------------------------------------------
;AutoIt Version: 3.3.6.1
;Author: Andrew Calcutt, wazer
;Last Edited: 01/25/2011
;Script Function: Adds Quick Launch Toolbar
;----------------------------------------------

Opt('TrayIconDebug', 1)
sleep(10)

;Adding Reg Entries.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "0")
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\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2", "Settings", "REG_BINARY", "28000000ffffffff02000000030000003e0000004e000000feffffffce030000920600001c040000")

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
    If @error = 0 Then ; registry ValueName exist
    Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
   EndIf
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$toolbartext = "{DOWN}{DOWN}{DOWN}{ENTER}"
$toolbartitle = "{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}"

Select
   ;Case $Lang = English
   Case $Lang = "en-US"
   $title = "New Toolbar - Choose a folder"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
   ;Case $Lang = French
   Case $Lang = "fr-FR"
   $title = "Nouvelle barre d'outils - Choisir un dossier"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d'exécution]"
   ;Case $Lang = Dutch
   Case $Lang = "nl-NL"
   $title = "Nieuwe werkbalk - Selecteer een map"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Actieve toepassingen]"
   ;Case $Lang = Danish
   Case $Lang = "da-DK"
   $title = "Ny værktøjslinje - vælg en mappe"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Programmer, der kører]"
   $toolbartext = "v{UP}{ENTER}"
   $toolbartitle = "v{ENTER}"
   ;Case $Lang = Swedish
   Case $Lang = "se-SE"
   $title = "Nytt verktygsfält - välj en mapp"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Program som körs]"
   ;Case $Lang = Norwegian
   Case $Lang = "nb-NO"
   $title = "Ny verktøylinje - velg en mappe"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Kjører programmer]"
EndSelect

;Unlock Taskbar
_ToggleTaskbarLock()
;Disable Langbar
_DisableLangbar()
;Create Quicklaunch Toolbar
_TaskToolbarWin7("Shell:Quick Launch")
;Get Quick Launch current postion
While 1
    Sleep(100)
    $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
    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($toolbartext)
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
;Hide "Quick Launch" toolbar title
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartitle)
;Move "Quick Launch" toolbar
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")
MouseClickDrag("left", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 5, $TaskBar_CenterHeight, 0)
;Move "Current Apps" bar
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $programs)
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

Func _DisableLangbar()
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{UP}{ENTER}")
EndFunc   ;==>_DisableLangbar

;Lock Taskbar
_ToggleTaskbarLock()

Func _TaskToolbarWin7($path)
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{ENTER}")
    WinActive($title)
sleep(1000)
    ControlSetText($title, "", "Edit1", $path)
sleep(1000)
    ControlClick($title, "", "Button1")
EndFunc   ;==>_TaskToolbarWin7

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

;Adding Reg Entries to Add Langbar to next reboot.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ExtraIconsOnMinimized", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "4")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "Label", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\MSUTB", "ShowDeskBand", "REG_DWORD", "1")



@coucou!

You can try the new QuickLaunchLangbar.exe! (Keep only the values you need for you to make it lighter)!
No need to close the Langbar, the QuickLaunch will be installed on the left and after the reboot you will see your same Langbar customized on the Taskbar!

Many thanks to report the results!
Cheers

*Edit: QuickLaunchLangbar.au3 replaced by QuickLaunchNew.au3

Edited by myselfidem, 26 January 2011 - 08:39 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#84
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts

@coucou!

You can try the new QuickLaunchLangbar.exe! (Keep only the values you need for you to make it lighter)!
No need to close the Langbar, the QuickLaunch will be installed on the left and after the reboot you will see your same Langbar customized on the Taskbar!

Many thanks to report the results!
Cheers

Tested both QuickLaunch_INT.au3 and QuickLaunch.au3 files
for both languages English and French : The Quick Launch bar is created, doesn't move to the left even after the Reboot

Bon courage

#85
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag

Tested both QuickLaunch_INT.au3 and QuickLaunch.au3 files
for both languages English and French : The Quick Launch bar is created, doesn't move to the left even after the Reboot

Bon courage


I've uploaded QuickLaunchLangbar.au3 inside the folder Quick Launch. You don't see this one?

Have you tried QuickLaunchLangbar.au3?

*Edit: Download for testing: Quick Launch

*Edit 2: In fact you will see the Langbar at the top of your Desktop and after the reboot the Langbar must be on the Taskbar or you can reduce from the Desktop without rebooting.

*Edit 3: QuickLaunchLangbar.au3 replaced by QuickLaunchNew.au3

Edited by myselfidem, 26 January 2011 - 09:28 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#86
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
Hello! :rolleyes:

I've made a new QuickLaunchNew.au3 (include many languages) and tested with an unattended install successfuly!
I've just made some little changes (little lighter!):

Works really fine for me!
No need to close the Langbar first with a reg file (or injecting inside install.wim) during the silent installation and the Langbar is keeped with your settings!

You will see the Langbar on the Taskbar after the reboot.

Download for testing: QuickLaunchNew

If you launch the file QuickLaunchNew.au3 (or others AutoIT files .au3) on your Desktop, take care to do that on an empty aera!
Because if on the background (behind the file .au3, right click contextmenu) there is another file and the mouse arrow is on it, you may have errors, using AutoIT => Run the script!

Don't forget to close previous QuickLanch before, if you make the test on your computer (Langbar need to be on the Taskbar with this script!).
Cheers

Edited by myselfidem, 26 January 2011 - 07:34 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#87
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag

I only want a script/program to create the quick launch bar on the left, and to do nothing else. No re-sizing icons, changing toolbar properties, etc. I appreciate the author's work, but I think he tried to do too much in one program without giving us any GUI options to chose what we do or do not want done.

Hello!

You can try this script to keep the Langbar and your customized Taskbar; or use mine QuickLaunchNew.exe.
The Langbar needs to be on the Taskbar with this script.

You need first to download AutoIt 3.3.6.1 and intall the program:

AUTOIT

If the script works for you, you can compile this one to make an exe file!

If you have only English or another language just set the language you need!

7QuickLaunch.au3

;----------------------------------------------
;AutoIt Version: 3.3.6.1
;Author: Andrew Calcutt, wazer
;Last Edited: 01/25/2011
;Script Function: Adds Quick Launch Toolbar
;----------------------------------------------
Opt('TrayIconDebug', 1)
sleep(10)

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

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
    If @error = 0 Then ; registry ValueName exist
    Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
   EndIf
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$toolbartext = "{DOWN}{DOWN}{DOWN}{ENTER}"
$toolbartitle = "{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}"

Select
   ;Case $Lang = English
   Case $Lang = "en-US"
   $title = "New Toolbar - Choose a folder"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
   ;Case $Lang = French
   Case $Lang = "fr-FR"
   $title = "Nouvelle barre d'outils - Choisir un dossier"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d'exécution]"
EndSelect

;Unlock Taskbar
_ToggleTaskbarLock()
;Disable Langbar to allows installing Quick Launch
_DisableLangbar()
;Create Quicklaunch Toolbar
_TaskToolbarWin7("Shell:Quick Launch")
;Get Quick Launch current postion
While 1
    Sleep(100)
    $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
    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($toolbartext)
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
;Hide "Quick Launch" toolbar title
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartitle)
;Move "Quick Launch" toolbar
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")
MouseClickDrag("left", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 5, $TaskBar_CenterHeight, 0)
;Move "Current Apps" bar
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $programs)
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

;Lock Taskbar
_ToggleTaskbarLock()

Func _DisableLangbar()
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{UP}{ENTER}")
EndFunc   ;==>_DisableLangbar

Func _TaskToolbarWin7($toolbardir)
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{ENTER}")
    WinActive($title)
sleep(1000)
    ControlSetText($title, "", "Edit1", $path)
sleep(1000)
    ControlClick($title, "", "Button1")
EndFunc   ;==>_TaskToolbarWin7

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

;Adding Reg Entrie to Add Langbar to next reboot.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "4")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\MSUTB", "ShowDeskBand", "REG_DWORD", "1")



If you do not want to reboot, just reduce at the top of your Desktop the Langbar and you will see this one on the Taskbar!

I hope that can help !
Works really fine for me (French language and much languages added inside the script).
Thanks to give a report.
Cheers

*Edit: How to compile a script .au3 to exe file

Edited by myselfidem, 26 January 2011 - 11:14 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#88
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 235 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag
ill look into the issues when i get home, in the mean while can one of you provide the correct streng for removing languagebar via reg? the hotkey method is not an option i think, to much hassle,



The script.exe denied thing you have myselfidem, mayb it needs a manifest to get acces, ill look into that.





Another thing i just saw one guy wrote that he didnt want to have small icons and such, well ill say bad luck to him for now this is the way it is!!.


If i get the time, ill look into making a gui and then make some silent switches for.. No title - no txt - small/big icons. move to the left and so on.


Tho if any will kindly help then and know how to code in VB, ill provide the source code to vb aswell.


You said it needed .net 4 when installing on fresh installation?, Thats odd, i didnt have that problem when i tryed unattended install. I dont install net frame 4 under unattended.


As said if any coders looking and wanna help, leave a message her, coucou and myselfidem, without you 2 guys ill never looked into the problem this tool had. I hope you continue to help and support with this tool so we can manage to get a proper version out that satishfieds all people that wanna use this tool.


until im home have a good luck ;)
if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#89
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag

ill look into the issues when i get home, in the mean while can one of you provide the correct streng for removing languagebar via reg? the hotkey method is not an option i think, to much hassle,
until im home have a good luck ;)


Hello wazer! :rolleyes:

Reg key to close the Langbar:


Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar]
"ExtraIconsOnMinimized"=dword:00000000
"ShowStatus"=dword:00000003

[HKEY_CURRENT_USER\Software\Microsoft\CTF\MSUTB]
"ShowDeskBand"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"ctfmon.exe"=-



For me the QuickLaunch like I've made works fine!
Many thanks for the code.

Cheers


For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#90
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 235 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag
I just found out other people are claiming that they made this tool lol. And getting loads of credits for it. rofl.
if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#91
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
I see a program freelaunchbar32.exe and freelaunchbar64.msi ( inside the zip folder) working fine with Windows 7 (freeware)!

Free Launch Bar

Silent install:

C:\freelaunchbar32.exe /S /D=C:\"Program Files"\FreeLaunchBar


Edited by myselfidem, 28 January 2011 - 05:12 PM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#92
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
Hi all! :rolleyes:

I've added inside the script a new value.
That's mean if the Langbar is on the Taskbar or not the Quick Launch is installed and moved to the left!

;Reading the Status of the Langbar (value "4" Langbar is on the Taskbar)
$Langbar = RegRead("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus")

Select
;Case $Langbar = value "4" The Langbar is on the Taskbar and must be disabled
Case $Langbar = "4"

EndSelect

The Langbar will be enabled on the next reboot, even if this one were not on the Taskbar first!

Include languages: en-US, fr-FR, se-SE, da-DK, nl-NL, nb-NO

Downlaod for testing:

7QuickLaunch.exe

Works really fine for me (fr-FR)!

*Edit: Added some changes inside the script!

Edited by myselfidem, 30 January 2011 - 12:12 PM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#93
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 235 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag

Hi all! :rolleyes:

I've added inside the script a new value.



lol my selfidem you have so much time lol :).....


try add this line and make it function with it, i dont have the time atm,


It will check for the taskbarsizemove if its locked then it will remove lock and the script can continue else if already unlocked it continue this is what we need so everyone can run it without the need to remove lock first.

Add this code to the top of the script
$Taskbarsizemove = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove")
If $Taskbarsizemove = 0 Then
    Do
        ProcessClose("explorer.exe")
    Until Not ProcessExists("explorer.exe")
	sleep ( 1000 )
    RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "1")
	sleep ( 1000 )
    If Not ProcessWait("explorer.exe", 5) Then Run(@WindowsDir & "\explorer.exe")
EndIf

and remember to remove this

REGWRITE("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","TaskbarSizeMove","REG_DWORD","0") in the script first

Edited by wazer, 29 January 2011 - 10:42 AM.

if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#94
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
Many thanks wazer! :rolleyes:

I've made some changes inside the script.

;Reading the Status of the Langbar (value "4" Langbar is on the Taskbar)
$Langbar = RegRead("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus")

Select
;Case $Langbar = "4" The Langbar is on the Taskbar and must be disabled
Case $Langbar = "4"
_DisableLangbar()
EndSelect



Maybe it's missing something or it is not correct?

Working fine on my computer (with Langbar or without) but with silent install doesn't works.
It's needed to reboot and launch the script and it's OK; 7QuickLaunch is installed!
Weird!

I will try your suggestion and add the value you've given me!
Yes I've some time but I really want to find a workaround for 7QuickLaunch!!!
I give you a report. Thanks again.

Edited by myselfidem, 29 January 2011 - 01:36 PM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#95
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
Hello wazer! :rolleyes:

Finally I think I've really found a "workaround" for the "Langbar" (set on the Taskbar or not)!

If the Langbar is on the Taskbar or not, 7QuickLaunch.exe will install the "Quick Launch" on the left and keep the values the user have choosen!

Download for testing (include much languages):

7QuickLaunch.exe

Tested on my computer (Windows 7 French version) and with silent installation and works really fine! :thumbup

*Edit: File updated

Edited by myselfidem, 01 February 2011 - 07:08 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#96
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 235 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag

Hello wazer! :rolleyes:

Finally I think I've really found a "workaround" for the "Langbar" (set on the Taskbar or not)!

If the Langbar is on the Taskbar or not, 7QuickLaunch.exe will install the "Quick Launch" on the left and keep the values the user have choosen!

Download for testing (include much languages):

7QuickLaunch.zip

Tested on my computer (Windows 7 French version) and with silent installation and works really fine! :thumbup


Try to add your solutions to this newest one i have made. This one works for me and others even under unattended installation, it has to take this long before it works correctly.

Iv added german support aswell, and cleaned up abit.
if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#97
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
Many thanks wazer! :rolleyes:

The challenge is when a user add a reg file to disable or close the Langbar after the installation is done; or if he wants keep the Langbar on the Taskbar!

With my script this two circumstances are taken into account and in all these two conditions the "Quick Launch" is installed on the left and the values choosen by the user are kept.
Thanks to try it!
I will wait your new version with these new lines you can see inside my script if you want add these and if you see it's working fine.

Regards

Edited by myselfidem, 31 January 2011 - 03:52 PM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#98
maxXPsoft

maxXPsoft

    MSFN Master

  • Developer
  • 2,880 posts
  • OS:Windows 7 x64
  • Country: Country Flag
don't know why but running both myselfidem and wazer of your latest I now get a Desktop toolbar also
wazer script creates 2 Quicklaunch also but myselfidem does not
I am running 64 bit and make sure toolbar is locked before trying which is default
Download ++> Windows 7 + 8 Unattended DVD + App Installer + Services Disabler + Load All Button + XML Creator
Jump2Reg - Registry: - Oct 4, 2013 - Version 3.0.4 - 98, ME, NT, 2K, XP, VISTA, Seven, Windows 8+ and 32 or 64 bit

XP Unattended CD/DVD creator - Version 4.1.7
Sample xml + Setupcomplete + Add Right click .wim Windows 7 or Windows 8/8.1

#99
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
@maxXPsoft!
Thanks
I think it's needed to improve the script for 64-bits because Windows is more faster.

Maybe at this lines I can add a sleep delay to see if the Langbar is on the Taskbar or not:

$FloatingLangBar = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:CiceroUIWndFrame]")
If @error = 0 Then
_DisableLangbar()
Else
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "3")
EndIf


I will take a look and try with my Windows 64-bits version!
Regards

@wazer

I think it's better to use WinActive at this line inside the script and I think you will have only one Quick Launch and not two:

Func _TaskToolbarWin7($toolbardir)
MouseClick("right", 0, @DesktopHeight)
Send("{DOWN}{RIGHT}{UP}{ENTER}")
WinActive($title)


Regards

Edited by myselfidem, 01 February 2011 - 02:36 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#100
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
I've made some changes inside the script (language: de-DE added) and tested with Virtual Machine with Windows 64-bits. Works fine for me!
Works fine with Windows 32-bits with Langbar on the Taskbar or not (Tested)!
Works really fine for me also with Windows 7 64-bits!

Yes, when I use 7QuickLaunch made by wazer I've also 2 Quick Launch.

Changes inside the new script:

$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:CiceroUIWndFrame]")
If @error = 0 Then ;Langbar is on the Taskbar and will be disabled
_DisableLangbar()
Else ; Langbar is closed
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "3")
Sleep(100)

EndIf


Download for testing:

7QuickLaunch.exe

Edited by myselfidem, 01 February 2011 - 06:35 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users



How to remove advertisement from MSFN