info:logiciels:doku:dokuwikistick_systray
Menu DokuWikiStick
Ce script AutoIt permet de rendre plus esthétique le lancement de DokuWikiStick (pas de batch ou de MicroApache qui reste planté au milieu de l'écran) et d'ajouter dans la barre de tâches Windows une icône permettant d'accéder à quelques raccourcis pratiques :
- ouvrir le wiki dans le navigateur internet par défaut
- relancer MicroApache
- ouvrir le dossier
DokuWikiStick
dans l'explorateur Windows - si un dossier
GitHub
existe dans les documents, les options ouvrir le sitegithub.com
et explorer le dossier s'ajoutent au menu - fermeture de MicroApache (et du script).
Voici la source :
- DokuWikiStick.au3
#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=DokuWikiStickGeekitude.ico #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Constants.au3> #include <WindowsConstants.au3> Opt("TrayAutoPause", 0) Opt("TrayMenuMode", 3) TraySetToolTip ("DokuWikiStick") If FileExists(@ScriptDir & "\server\mapache.exe") Then TrayTip("DokuWikiStick", "Starting MicroApache...", 2, 2) FileChangeDir (@ScriptDir & "\server") Run("mapache.exe", "", @SW_MINIMIZE) ShellExecute("http://localhost:8800/doku.php") Menu() Else MsgBox(16, "Error", "Missing \server\mapache.exe") Exit EndIf Func Menu() Local $idBrowseDWS = TrayCreateItem("Browse DokuWikiStick website") Local $idRestart = TrayCreateItem("Restart MicroApache") Local $idExploreDWS = TrayCreateItem("Explore DokuWikiStick folder") If FileExists(@MyDocumentsDir & "\GitHub") Then TrayCreateItem("") Local $idBrowseGH = TrayCreateItem("Browse GitHub website") Local $idExploreGH = TrayCreateItem("Explore Documents\GitHub folder") EndIf TrayCreateItem("") Local $idExit = TrayCreateItem("Exit") While 1 Switch TrayGetMsg() Case $idBrowseDWS ShellExecute("http://localhost:8800/doku.php") Case $idRestart TrayTip("DokuWikiStick", "Restarting MicroApache...", 2, 2) Run("ApacheKill.exe") Sleep(1000) Run("mapache.exe") Case $idExploreDWS ShellExecute(@ScriptDir) Case $idBrowseGH ShellExecute("https://github.com") Case $idExploreGH ShellExecute(@MyDocumentsDir & "\GitHub") Case $idExit KillApache() EndSwitch WEnd EndFunc Func KillApache() TrayTip("DokuWikiStick", "Killing MicroApache...", 2, 2) Run("ApacheKill.exe") Sleep(1000) Exit EndFunc
Ce fichier DokuWikiStick.au3
doit être compilé en procédant de la manière suivante :
- Rendez-vous à la rubrique téléchargements du site d'AutoIt
- Téléchargez et installez
AutoIt Full Installation
(choisissez l'option d'éditer les script à l'ouverture) - Téléchargez et installez
AutoIt Script Editor
(vous pourrez compiler le script sans lui mais pas choisir son icône) - Téléchargez le fichier source
DokuWikiStick.au3
ci-dessus et l'une de ces icônes : (créée directement à partir d'une image du blog d'Andreas Gohr ou (créée par mes soins à partir de ce clipart) - Ouvrez la source du script dans AutoIt Script Editor
- Dans le menu [Tools], sélectionnez [Compile]
- Sélectionnez l'icône que vous avez choisie (si l'icône n’est pas visible c'est que le chemin est erroné)
- Cliquez enfin sur le bouton [Compile Script]
Vous pouvez aussi télécharger directement l'exécutable ici même.
info/logiciels/doku/dokuwikistick_systray.txt · Dernière modification : 2018/05/03 11:07 de 127.0.0.1