中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客 注册 登录 会员 网志 搜索 命令提示符 Bash 上传 统计
中国DOS联盟论坛
现在时间是 2026-08-11 23:44
欢迎新会员 13383789659　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 为什么我的vbs脚本在我系统不能实现待机 查看 923　回复 9
推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 为什么我的vbs脚本在我系统不能实现待机 发表于 2009-06-04 08:14　·　 中国 广东 深圳 电信
yufalai
新手上路
★
积分 6
发帖 6
注册 2009-06-04 08:06
17年会员
UID 146677
性别 男
状态 离线
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}u"
WshShell.SendKeys "S"
在以前的系统可以
现在不能
第 2 楼 发表于 2009-06-04 11:44　·　 中国 陕西 西安 电信
slore
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
开始菜单上有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
第 3 楼 发表于 2009-06-04 12:26　·　 中国 湖南 常德 电信
wl00560
银牌会员
★★★
积分 1,384
发帖 709
注册 2005-10-29 22:22
20年会员
UID 44271
状态 离线
你文件的意思是：启动开始菜单，然后再按u与s……
这个在Windows XP下没问题，可是别的系统就不见得是这些键了，如Windows Server 2003……
第 4 楼 发表于 2009-06-05 00:36　·　 中国 广东 深圳 电信
yufalai
新手上路
★
积分 6
发帖 6
注册 2009-06-04 08:06
17年会员
UID 146677
性别 男
状态 离线
我现在用的也是xp
开始菜单是一样的
就是不能用
具体是能 按出win键 但是u键就没有按出来
第 5 楼 发表于 2009-06-05 00:41　·　 中国 广东 深圳 电信
yufalai
新手上路
★
积分 6
发帖 6
注册 2009-06-04 08:06
17年会员
UID 146677
性别 男
状态 离线
2楼的能执行win键+u键
但是没有执行s
第 6 楼 发表于 2009-06-05 01:08　·　 中国 陕西 西安 电信
slore
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
2楼的能执行win键+u键

不是执行win+U
是直接调用了关机对话框
我随便写的。。。
这个我有不能试。。。

S可以么？
或者是需要延时下。。。sendkeys太快了？你的对话框还没有出来？


alt+s
sendkeys 怎么表示alt忘了，你自己查下。
。。。
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 7 楼 发表于 2009-06-05 03:00　·　 中国 广东 深圳 电信
yufalai
新手上路
★
积分 6
发帖 6
注册 2009-06-04 08:06
17年会员
UID 146677
性别 男
状态 离线
就是s没执行
delay也不行
第 8 楼 发表于 2009-06-05 16:55　·　 中国 陕西 西安 电信
slore
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
你查下 alt+S。。。
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 9 楼 测试成功 发表于 2009-06-06 01:58　·　 中国 陕西 西安 电信
slore
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
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
第 10 楼 发表于 2009-06-09 12:41　·　 中国 广东 深圳 电信
yufalai
新手上路
★
积分 6
发帖 6
注册 2009-06-04 08:06
17年会员
UID 146677
性别 男
状态 离线
thank you very much!
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 - 简版 ]

Sponsored by ifanr Inc | © 2001–2023