Creat0R, да без проблем. Я не программер, может быть будут предложения по улучшению скрипта :)
Локализация скрипта - Morpheus
Для применения настроек требуется перезагрузка.
читать дальше »
Код:
Opt("TrayIconDebug", 1)
Opt("WinDetectHiddenText", 0)
Opt("WinTextMatchMode", 2)
Opt("TrayIconHide", 0)
HotKeySet("{F1}", "OnF1")
Sleep(100)
If $CMDLINE[0] Then
For $I = 1 To $CMDLINE[0]
Switch $CMDLINE[$I]
Case "/?"
MsgBox(262144, "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
If Not ProcessWait("explorer.exe", 5) Then Run(@WindowsDir & "\explorer.exe")
WinWait("[CLASS:Shell_TrayWnd]")
Sleep(2000)
TrayTip("Quick Launch Classic 7", "Я работаю - ничего не трогай!!!", 30, 2)
MsgBox(4095, "Running.", "Quick Launch Classic 7", 1)
Sleep(10000)
$TASKBARSIZEMOVE = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove")
If $TASKBARSIZEMOVE = 1 Then
Do
ProcessClose("explorer.exe")
Until Not ProcessExists("explorer.exe")
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "0")
If Not ProcessWait("explorer.exe", 5) Then Run(@WindowsDir & "\explorer.exe")
WinWait("[CLASS:Shell_TrayWnd]")
Sleep(2000)
EndIf
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:CiceroUIWndFrame; TEXT:TF_FloatingLangBar_WndTitle]")
If Not @error Then
Call("_DISABLELANGBAR")
$QLA = WinGetText("[CLASS:Shell_TrayWnd]", "")
If StringInStr($QLA, "Quick Launch") Then
MouseClick("right", 0, @DesktopHeight)
Send("{DOWN}{RIGHT}{UP 2}{ENTER}")
EndIf
EndIf
$QLA = WinGetText("[CLASS:Shell_TrayWnd]", "")
If StringInStr($QLA, "Quick Launch") Then
MouseClick("right", 0, @DesktopHeight)
Send("{DOWN}{RIGHT}{UP 2}{ENTER}")
EndIf
$CLEARDESKTOP = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:TrayShowDesktopButtonWClass]")
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($CLEARDESKTOP[3] / 2)
MouseClick("left", $CLEARDESKTOP[0] - 0, $TASKBAR_CENTERHEIGHT, 1, 10)
_TOGGLETASKBARLOCK()
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:CiceroUIWndFrame; TEXT:TF_FloatingLangBar_WndTitle]")
If Not @error Then
Call("_DISABLELANGBAR")
EndIf
$PATH = "Shell:Quick Launch"
$TOOLBARTEXT = "{DOWN 3}{ENTER}"
$TOOLBARTITLE = "{DOWN 4}{ENTER}"
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")
$LANG = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
If @error = 0 Then
Else
$LANG = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
EndIf
Select
Case $LANG = "en-US"
$TITLE = "New Toolbar - Choose a folder"
$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
Case $LANG = "fr-FR"
$TITLE = "Nouvelle barre d’outilsВ*-В*Choisir un dossier"
$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d’exйcution]"
Case $LANG = "nl-NL"
$TITLE = "Nieuwe werkbalk - Selecteer een map"
$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Actieve toepassingen]"
Case $LANG = "da-DK"
$TITLE = "Ny vР¶rktС?jslinje - vР¶lg en mappe"
$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Programmer, der kС?rer]"
Case $LANG = "se-SE"
$TITLE = "Nytt verktygsfРґlt - vРґlj en mapp"
$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Program som kцrs]"
Case $LANG = "nb-NO"
$TITLE = "Ny verktС?ylinje - velg en mappe"
$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:KjС?rer programmer]"
Case $LANG = "de-DE"
$TITLE = "Neue Symbolleiste - Ordner auswРґhlen"
$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:AusgefСЊhrte Anwendungen]"
Case $LANG = "ru-RU"
$TITLE = "Новая панель инструментов - Выбор папки"
$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Выполнение приложений]"
EndSelect
_TASKTOOLBARWIN7("Shell:Quick Launch")
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)
Sleep(100)
MouseClick("right", $QUICKLAUNCH[0] - 5, $TASKBAR_CENTERHEIGHT, 1, 0)
Send($TOOLBARTEXT)
Sleep(100)
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
Sleep(100)
MouseClick("right", $QUICKLAUNCH[0] - 5, $TASKBAR_CENTERHEIGHT, 1, 0)
Send($TOOLBARTITLE)
Sleep(1000)
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")
MouseClickDrag("left", $QUICKLAUNCH[0] - 10, $TASKBAR_CENTERHEIGHT, $TRAY[0] + 5, $TASKBAR_CENTERHEIGHT, 40)
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $PROGRAMS)
MouseClickDrag("left", $CURRENTAPPS[0] - 10, $TASKBAR_CENTERHEIGHT, $TRAY[0] + 150, $TASKBAR_CENTERHEIGHT, 40)
_TOGGLETASKBARLOCK()
$CLEARDESKTOP = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:TrayShowDesktopButtonWClass]")
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($CLEARDESKTOP[3] / 2)
MouseClick("left", $CLEARDESKTOP[0] - 0, $TASKBAR_CENTERHEIGHT, 1, 10)
Func _DISABLELANGBAR()
MouseClick("right", 0, @DesktopHeight)
Send("{DOWN}{RIGHT}{UP 2}{ENTER}")
EndFunc
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
Func _TOGGLETASKBARLOCK()
MouseClick("right", 0, @DesktopHeight)
Send("{UP 2}{ENTER}")
EndFunc
;языковую панель на место
BlockInput(1)
$MP = MouseGetPos()
$WP = WinGetPos('TF_FloatingLangBar_WndTitle')
MouseClick('left', $WP[0] + $WP[2] - 10, $WP[1] + 10, 1, 0)
MouseMove($MP[0], $MP[1], 0)
BlockInput(0)
; Удаление ярлыков
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Shows Desktop.lnk")
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Window Switcher.lnk")
; Удаление папки с ярлыками
DirRemove(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\User Pinned", 1)
;Правка реестра на удаление ярлыков
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband", "Favorites", "REG_BINARY", "ff")
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband", "FavoritesResolve")
;
$LANGBAR = RegRead("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus")
Select
Case $LANGBAR = "0"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "4")
EndSelect
Func ONF1()
Exit
EndFunc
TrayTip("Quick Launch Classic 7", "Наслаждайся!", 30, 2)
MsgBox(4095, "Running.", "Quick Launch Classic 7", 1)
Sleep(2000)
Creat0R, если не будет активности в теме, тогда удаляйте её.
|
