scripts pour quick launch

[Prof]

Et merci pour le coup de main au passage

[tremens]

@Nash
avec quel OS?

[Nash]

seven bien sur

merci de ton temps tremens

[tremens]

kikou le fofo,

Désolé pour mon absence, mais j'ai un projet de traduction sur un mod de stalker qui me prend tout mon pour l'instant.
J'ai commencé à regarder le code mais sans plus!
Cela va être long Nash...

[gibe]

J'ai eu Tremens au tél : il pense à son engagement mais ne peut pour l'instant s'y consacrer pleinement ; il doit vérifier plusieurs pistes

[Nash]

uis sur la v2 donc tant pis , je ferais sans

[tremens]

si ca peut aider

ce script est un bon debut (autoit) ; il m'evite les operations clik droit barre des taches , barre d'outils , nouvelles barre et ouvre une fenetre pour choisir un dossier!

mais il me faudrai au moins un exemple pour creer le raccourci d'un programme:(

script:


;------------------------------------------------------------------
; 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 code marche bien, je viens de le tester sous seven AAZ virtuel.
au lancement du code, une fenêtre demande de choisir un répertoire ou se trouve les raccourcis.
Il faut donc créer un répertoire avec les raccourcis dedans ensuite lancer le programme.
Je suis en cours de compréhension du code!
malheureusement comme l'a écrit mon ami gibe, je n'ai que peu de temps en ce moment...
Donc nash, je pense qu'à terme, tu auras à modifier que le répertoire ou il y aura les raccourcis.

Je m'y remets....

A bientôt

[Nash]

je pense qu'à terme, tu auras à modifier que le répertoire ou il y aura les raccourcis.

ca je pense qu'il ny aura pas de prob

bon courage

[tremens]

Nash, rafraichi moi la mémoire, tu veux intégrer le code dans un iso et que son lancement soit automatique lors de l'installation de seven?

Si c'est le cas, il faudra lancer le code à la fin de l'installation de seven en ayant auparavant créer le répertoire des raccourcis.

Tremens

[Nash]

pour le lancement auto , je passerai par le setupcomplete.cmd donc ne t'inquiete pas pour ca

pour moi il faut juste que le script fonctionne sur un seven deja installé ; comme je fais un sysprep et une capture ensuite , le repertoire des raccourcis créés sera deja present a la fin de mon install...disons si ca peut t'aider que je mettrais les raccourci dans ce chemin :

c:/windows/quick launch

:)