Jump to content

Quick Launch Classic 7 Tool 1.0.5


wazer

Recommended Posts

Thats all I changed that had to do with taskbar and no more doubles here or Desktop toolbar. Remember I am running 64 and small icons but that should not matter

I have uploaded the lastest. To mediafire and rapidshare plus attachment to the first post :)

:rolleyes:

Link to comment
Share on other sites


@wazer

I think it's better to leave this part of the script because it isn't correct even if that works!

In AutoIt forum I read that is like a glitch

mutilply param

 

;Switchless commands
If $CMDLINE[0] Then
For $i = 1 To $CMDLINE[0]
Switch $CMDLINE[$i]
Case '/?'
MsgBox(0x40000, 'Help', 'Switchless Commands: /NOPIN /TGL /TSI /AUTOTRAY /LBS3 /EXPLORER')
Exit
Case '/NOPIN'
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
Case '/TGL'
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")
Case '/TSI'
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1")
Case '/AUTOTRAY'
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")
Case '/LBS3'
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "3")
Case '/EXPLORER'
ProcessClose("explorer.exe")

EndSwitch
Next
EndIf

Wikipedia article extract:

Glitch - Wikipedia

Computer glitch

A computer glitch is the failure of a system, usually containing a computing device, to complete its functions or to perform them properly. In public declarations, glitch is used to suggest a minor fault which will soon be rectified and is therefore a euphemism by comparison to bug, which is a factual statement that a programming fault is to blame for a system failure.

It frequently refers to an error which is not detected at the time it occurs but shows up later in data errors or incorrect human decisions. While the fault is usually attributed to the computer hardware, this is often not the case since hardware failures rarely go undetected. Situations which are frequently called computer glitches are:

  • Incorrectly written software (software bug)
  • Incorrect instructions given by the operator (operator error) (this might also be considered a software bug)
  • Undetected invalid input data (this might also be considered a software bug)
  • Undetected communications errors
  • Computer viruses
  • Computer security cracking (sometimes erroneously called "hacking")

Such glitches could produce problems such as:

  • Keyboard malfunction
  • Number key failure
  • Screen abnormalities (turned left, right or upside down)
  • Random program malfunctions
  • Abnormal program registering

Examples of computer glitches causing disruption include an unexpected shutdown of a water filtration plant in New Canaan, 2010;[1] failures in the Computer Aided Dispatch system used by the police in Austin, resulting in unresponded 911 calls;[2] and an unexpected bit flip causing the Cassini spacecraft to enter "safe mode" in November 2010.[3]

I think it's better to look for another method for this part (switchless commands)!

Thanks!

Link to comment
Share on other sites

OK!

Nice to clarify this point :rolleyes:

I think it would be better to use commands parameters shorter like for example:

7QuickLaunch.exe /N /S /L

Thanks

*Edit: And it's needed to write this reg value first otherwise the silent install fails!

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "3")

Edited by myselfidem
Link to comment
Share on other sites

Hello wazer and myselfidem,

CONGRATULATIONS :P

Tested French and English... works liuke a charm.

You've got it. :thumbup

However, I try pushing the test to non europeen languages, and tested Hebrew which is left to right writing.

AutoIt stick at line 245

   Case $Lang = "he-IL"
$title = "‏‏סרגל כלים חדש - בחר תיקיה"

got error; Unable to parse line.

I opened the script with Notepad i get the above $title in hebrew. Then I edited it with AutoiT, i got

 Case $Lang = "he-IL"
$title = "â€â€×¡×¨×× ×××× ××ש - ××ר ת×ק××"

:wacko:

Again Congartulation

Edited by coucou
Link to comment
Share on other sites

Thanks coucou! :)

I think Hebrew is write: right to left, No?

You can maybe try to set your language to Hebrew inside your computer and use Enumshell to see how it's writed in Hebrew language!

Hebrew Alphabet

You can also test with no value for Hebrew.

$title = ""

*Edit: maybe some help about Bi-directionnal text:

Bi-directional text

Edited by myselfidem
Link to comment
Share on other sites

Thanks coucou! :)

I think Hebrew is write: right to left, No?

OOOopppsss you're right.

Regarding my conputer, is already 3 languages handling (Eng, Fre and Heb. The above $title i got it with my computer Notepad.

I just noticed what i wrote here above "AutoIt stick at line 245" the script is 244 lines. :wacko:

Line 245 is a copy of the hebrew text

Anyway, AutoIt doesn't accept any exotic language.

I correct that (with Notepad), and relaunch the script this time It stick at Line 165

While 1
Sleep(100) ; Line 165
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")
If Not @error Then ExitLoop
WEnd

It could be because I didn't modifed yet the line 155 ($programs) to hebrew

Case $Lang = "he-IL"
$title = "‏‏סרגל כלים חדש - בחר תיקיה"
$programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"

Remind me please how to get that $programs title

Regards

Edited by coucou
Link to comment
Share on other sites

It could be because I didn't modifed yet the line 155 ($programs) to hebrew


Case $Lang = "he-IL"
$title = "‏‏סרגל כלים חדש - בחר תיקיה"
$programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"

Remind me please how to get that $programs title

Regards

I think you can use EnumShell to know how is writed the text for $programs. TEXT:Running applications => with Hebrew language.

Shell window: HWND = 0x0001010A class = "Shell_TrayWnd" title = "" process = explorer.exe

class = "TrayNotifyWnd" title = "" HWND = 0x00010118 parent = 0x0001010A

class = "TrayClockWClass" title = "14:12" HWND = 0x0001011A parent = 0x00010118

class = "TrayShowDesktopButtonWClass" title = "" HWND = 0x0001011E parent = 0x00010118

class = "SysPager" title = "" HWND = 0x0001012C parent = 0x00010118

class = "ToolbarWindow32" title = "Zone de notification utilisateur promue" HWND = 0x0001012E parent = 0x0001012C

class = "ToolbarWindow32" title = "Zone de notification système promue" HWND = 0x00010132 parent = 0x00010118 noArea

class = "Button" title = "" HWND = 0x00010134 parent = 0x00010118 noArea

class = "ReBarWindow32" title = "" HWND = 0x00010142 parent = 0x0001010A

class = "CiceroUIWndFrame" title = "TF_FloatingLangBar_WndTitle" HWND = 0x00010162 parent = 0x00010142

class = "MSTaskSwWClass" title = "Applications en cours d’exécution" HWND = 0x00010150 parent = 0x00010142

class = "MSTaskListWClass" title = "Applications en cours d’exécution" HWND = 0x00010152 parent = 0x00010150

Shell process: explorer.exe

UmTbar: shell = 0x0001010A tbar = 0x00010150

*Edit: download

EnumShell

Edited by myselfidem
Link to comment
Share on other sites

I ran EnumShell and i got the following

Shell window: HWND = 0x00010050 class = "Shell_TrayWnd" title = "" process = explorer.exe
class = "TrayNotifyWnd" title = "" HWND = 0x00010058 parent = 0x00010050
class = "TrayClockWClass" title = "3:33 PM" HWND = 0x0001005A parent = 0x00010058
class = "TrayShowDesktopButtonWClass" title = "" HWND = 0x0001005C parent = 0x00010058
class = "SysPager" title = "" HWND = 0x00010068 parent = 0x00010058
class = "ToolbarWindow32" title = "???? ?????? ????? ??-??? ??????" HWND = 0x0001006A parent = 0x00010068
class = "ToolbarWindow32" title = "???? ?????? ????? ??-??? ??????" HWND = 0x0001006E parent = 0x00010058 noArea
class = "Button" title = "" HWND = 0x00010070 parent = 0x00010058 noArea
class = "ReBarWindow32" title = "" HWND = 0x0001007E parent = 0x00010050
class = "CiceroUIWndFrame" title = "TF_FloatingLangBar_WndTitle" HWND = 0x0001009A parent = 0x0001007E
class = "MSTaskSwWClass" title = "??????? ??????" HWND = 0x00010086 parent = 0x0001007E
class = "MSTaskListWClass" title = "??????? ??????" HWND = 0x00010088 parent = 0x00010086

Shell process: explorer.exe

because my Windows is NOT a pure hebrew.

So, I ask a friend to run EnumShell from a pure Windows hebrew and got the here bellow text

Shell window: HWND = 0x00010054 class = "Shell_TrayWnd" title = "" process = explorer.exe
class = "TrayNotifyWnd" title = "" HWND = 0x0001005C parent = 0x00010054
class = "TrayClockWClass" title = "11:10" HWND = 0x0001005E parent = 0x0001005C
class = "TrayShowDesktopButtonWClass" title = "" HWND = 0x00010060 parent = 0x0001005C
class = "SysPager" title = "" HWND = 0x0001006C parent = 0x0001005C
class = "ToolbarWindow32" title = "אזור הודעות שקודם על-ידי המשתמש" HWND = 0x0001006E parent = 0x0001006C
class = "ToolbarWindow32" title = "אזור הודעות שקודם על-ידי המערכת" HWND = 0x00010072 parent = 0x0001005C noArea
class = "Button" title = "" HWND = 0x00010074 parent = 0x0001005C noArea
class = "ReBarWindow32" title = "" HWND = 0x00010082 parent = 0x00010054
class = "CiceroUIWndFrame" title = "TF_FloatingLangBar_WndTitle" HWND = 0x0001009C parent = 0x00010082
class = "MSTaskSwWClass" title = "יישומים פועלים" HWND = 0x0001008A parent = 0x00010082
class = "MSTaskListWClass" title = "יישומים פועלים" HWND = 0x0001008C parent = 0x0001008A

Shell process: explorer.exe

I correct the script to

   Case $Lang = "he-IL"
$title = "‏‏סרגל כלים חדש - בחר תיקיה"
$programs = "[CLASS:MSTaskListWClass; TEXT:יישומים פועלים]"

and relaunch the script... still It stick at Line 165. I think this time is because the write is right to left

Link to comment
Share on other sites

Okay this is odd, i just reformated my own machine, and i included qlc7 into it. It attached, just my documents to the toolbar and was hanging. Perhaps it needs manifest at first login?.

Link to comment
Share on other sites

@wazer

Have you tried with silent install or on your computer after the OS has been installed?

*Edit: You can change the script like this for silent install, I've made some changes:

;Switchless commands

If $CMDLINE[0] Then

For $i = 1 To $CMDLINE[0]

Switch $CMDLINE[$i]

Case '/?'

MsgBox(0x40000, 'Help', 'Switchless Commands: /GL /SI /AT /EX')

Exit

Case '/GL'

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")

Case '/SI'

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1")

Case '/AT'

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")

Case '/EX'

ProcessClose("explorer.exe")

EndSwitch

Next

EndIf

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "3")

RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")

*Edit: Tested on my computer and with silent install without switchless commands! Works really fine!

7QuickLaunchClassic Version 1.05 Image

For testing:

7QuickLaunchClassic_V1.05.zip

Edited by myselfidem
Link to comment
Share on other sites

@wazer

Have you tried with silent install or on your computer after the OS has been installed?

*Edit: You can change the script like this for silent install, I've made some changes:

;Switchless commands

If $CMDLINE[0] Then

For $i = 1 To $CMDLINE[0]

Switch $CMDLINE[$i]

Case '/?'

MsgBox(0x40000, 'Help', 'Switchless Commands: /GL /SI /AT /EX')

Exit

Case '/GL'

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")

Case '/SI'

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1")

Case '/AT'

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")

Case '/EX'

ProcessClose("explorer.exe")

EndSwitch

Next

EndIf

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "3")

RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")

*Edit: Tested on my computer and with silent install without switchless commands! Works really fine!

7QuickLaunchClassic Version 1.05 Image

For testing:

7QuickLaunchClassic_V1.05.zip

How can it be working, when your using the one with space after advanced in regwrite :). Didnt i tell you to delete all those old files :).

I think it has something todo with my image i made with rt7lite. I tryed to integrate my ati drivers, should they go for boot install ?, i tryed win install nothing got installed.

Link to comment
Share on other sites

How can it be working, when your using the one with space after advanced in regwrite :).

I think it has something todo with my image i made with rt7lite. I tryed to integrate my ati drivers, should they go for boot install ?, i tryed win install nothing got installed.

Tested and works fine! :)

The two regwrite are needed for silent install!

Which space you are talking about?

Edited by myselfidem
Link to comment
Share on other sites

How can it be working, when your using the one with space after advanced in regwrite :).

I think it has something todo with my image i made with rt7lite. I tryed to integrate my ati drivers, should they go for boot install ?, i tryed win install nothing got installed.

Tested and works fine! :)

The two regwrite are needed for silent install!

Which space you are talking about?

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ THERES A BIG GAP IN HERE Advanced

Thats the two gaps im taking about :)

Link to comment
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
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...