Bonjour,
mea culpa pour mon précédent message ....
J'ai trouvé ce code, et j'aimerai le modifier. Seulement voilà, je n'y connais rien dans ce langage
, je comme à lire les tutos qui sont sur ce site et celui du zéro.
► Afficher le texte
Code : Tout sélectionner
;------------------------------------------------------------------
; AutoIt Version: 3.3.0.0
; Author: Andrew Calcutt, wazer
; Last Edited: 09/12/2009
; Script Function: Adds Quick Launch Toolbar
;------------------------------------------------------------------
;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("x")
;Hide "Quick Launch" toolbar title
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send("w")
;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
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:MSTaskListWClass; TEXT:Running applications]")
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 105, $TaskBar_CenterHeight, 0)
;Lock Taskbar
_ToggleTaskbarLock()
Func _TaskToolbarWin7($toolbardir)
MouseClick("right", 0, @DesktopHeight)
Send("{DOWN}{RIGHT}{UP}{ENTER}")
WinWaitActive("New Toolbar")
ControlSetText("New Toolbar", "", "Edit1", $toolbardir)
ControlClick("New Toolbar", "", "Button1")
EndFunc ;==>_TaskToolbarWin7
Func _ToggleTaskbarLock()
MouseClick("right", 0, @DesktopHeight)
Send("{UP}{UP}{ENTER}")
EndFunc ;==>_ToggleTaskbarLock
je voudrai automatiser ce code dans un dvd d'installation seven, mon problème, je ne connais pas encore ce langage de programmation.
j'essaye en vain de comprendre le code....je ne connais que le VBA en langage
Ce code permet la création d'un quick launch à droite vers l'horloge, est-il possible de l'avoir à gauche à coté de démarrer?
Cette partie du code permet de récupérer le répertoire pour le quick lauch, j'aimerai que celui-ci pointe directement sur un répertoire donné (c:/windows/quick launch)
Code : Tout sélectionner
Func _TaskToolbarWin7($toolbardir)
MouseClick("right", 0, @DesktopHeight)
Send("{DOWN}{RIGHT}{UP}{ENTER}")
WinWaitActive("New Toolbar")
ControlSetText("New Toolbar", "", "Edit1", $toolbardir)
ControlClick("New Toolbar", "", "Button1")
EndFunc ;==>_TaskToolbarWin7
J'aimerai savoir si il existe une doc sur les commandes seven (celles qui sont dans ce code?)
je sais ça fait beaucoup d'un coup...
Voilà, j'espère n'avoir fait aucune erreur dans la rédaction.
Merci
