|
yufalai
新手上路
积分 6
发帖 6
注册 2009-6-4
状态 离线
|
『楼 主』:
为什么我的vbs脚本在我系统不能实现待机
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}u"
WshShell.SendKeys "S"
在以前的系统可以
现在不能
|
|
 2009-6-4 08:14 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
2 楼』:
开始菜单上有S开头的？
还是要小写s？
用VBS的话打开对话框还是不要用sendkeys
Dim ShellApp,WshShell
Set WshShell = CreateObject("WScript.Shell")
Set ShellApp = CreateObject("Shell.Application")
ShellApp.ShutdownWindows()
WshShell.Sendkeys "s"
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-6-4 11:44 |
|
|
wl00560
银牌会员
积分 1384
发帖 709
注册 2005-10-29
状态 离线
|
『第
3 楼』:
你文件的意思是：启动开始菜单，然后再按u与s……
这个在Windows XP下没问题，可是别的系统就不见得是这些键了，如Windows Server 2003……
|
|
|
2009-6-4 12:26 |
|
|
yufalai
新手上路
积分 6
发帖 6
注册 2009-6-4
状态 离线
|
『第
4 楼』:
我现在用的也是xp
开始菜单是一样的
就是不能用
具体是能 按出win键 但是u键就没有按出来
|
|
|
2009-6-5 00:36 |
|
|
yufalai
新手上路
积分 6
发帖 6
注册 2009-6-4
状态 离线
|
『第
5 楼』:
2楼的能执行win键+u键
但是没有执行s
|
|
|
2009-6-5 00:41 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
6 楼』:
2楼的能执行win键+u键
不是执行win+U
是直接调用了关机对话框
我随便写的。。。
这个我有不能试。。。
S可以么？
或者是需要延时下。。。sendkeys太快了？你的对话框还没有出来？
alt+s
sendkeys 怎么表示alt忘了，你自己查下。
。。。
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-6-5 01:08 |
|
|
yufalai
新手上路
积分 6
发帖 6
注册 2009-6-4
状态 离线
|
|
|
2009-6-5 03:00 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
8 楼』:
你查下 alt+S。。。
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-6-5 16:55 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
9 楼』:
测试成功
Dim ShellApp,WshShell
Set WshShell = CreateObject("WScript.Shell")
Set ShellApp = CreateObject("Shell.Application")
ShellApp.ShutdownWindows()
WSH.Sleep 1000 '延时1秒
WshShell.Sendkeys "s"
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-6-6 01:58 |
|
|
yufalai
新手上路
积分 6
发帖 6
注册 2009-6-4
状态 离线
|
『第
10 楼』:
thank you very much!
|
|
|
2009-6-9 12:41 |
|
