作者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
显示桌面
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.MinimizeAll
执行
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.FileRun
搜寻
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.FindFiles
作法一样 贴到记事本 存成.vbs档即可
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.139.155.146
1F：推 sellig:感谢~ 11/17 09:23
※ oniki:转录至看板 Wallpaper 03/07 14:09