Dock中增加關機,顯示桌面等 - 桌布

※ [本文轉錄自 EZsoft 看板]

作者: hellk (我的熱鍋溶化了你的冰霜) 看板: EZsoft
標題: Re: [其他] 該如何才能在Y'z Dock中增加「關機」的 …
時間: Wed Nov 16 02:04:42 2005

※ 引述《uoyihc ()》之銘言：
: ※ 引述《sellig (關卡)》之銘言：
: : 作者: sellig (關卡) 看板: Wallpaper
: : 標題: [其他] 該如何才能在Y'z Dock中增加「關機」的圖示？
: : 時間: Mon Nov 14 19:31:49 2005
: : 如題
: : 該怎麼做才可以從dock來執行關機的動作呢？
: : 找了好久還找不到
: : 請高手指點...
: : 感謝
: 如果你是指要作關機的捷徑的話
: -----------------------------
: Dim objShell
: Set objShell = CreateObject("Shell.Application")
: objShell.ShutdownWindows
: -----------------------------
: 用記事本打上面三行
: 存成Shutdown.vbs
: 再把這個檔作一個捷徑拉到dock上
: 以後按下去就會出現關機畫面了
: 這是很久很久以前在一個國外網站看到的
: 網站上還有很多其他功能的寫法
: 不過我忘記是什麼網站了
: 如果有人知道的話 請告知一下
: 謝謝 XD

關機
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.ShutdownWindows
存檔後取名Shutdown.vbs


顯示桌面
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.MinimizeAll
存檔後取名Quick Launch.vbs


--