中国DOS联盟论坛

中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --

联盟域名:cndos.rths.ml  论坛域名:cndos.rths.ml/forum

DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

» 游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助

 
« « 2021-7 » »
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31

栏目分类

最热的 5 篇文章

搜索网志文章


在线用户 : 7
0 位会员   7 位游客
求助:VBS调用键盘{Ctrl}{Alt}{Del}
我想用VBS做一个快速重启的脚本,利用任务管理器中{Ctrl}+U实现,脚本如下:
CODE:  [Copy to clipboard]
Set WshShell = WScript.CreateObject("WScript.Shell")
  WshShell.SendKeys ("^%{DEL}") '同时按下{Ctrl}{Alt}{Del}
  WScript.Sleep 500 '等待启动任务管理器
  WshShell.SendKeys ("%u") '同时按下{Alt}+U
  WshShell.SendKeys ("^r") '同时按下{Ctrl}+R
数次尝试均不成功,请帮忙修改下

评论

为什么不直接run taskmgr……

slore 2009-8-11 23:13

run可以运行,但是{Alt}+U仍然调用不了

vlq5299 2009-8-11 23:24

我这里测试可以。。。

slore 2009-8-12 00:12

{Alt}+U是什么操作?{Alt}+U

yishanju 2009-8-12 00:14

访问 菜单

slore 2009-8-12 01:02

可能是你机器性能的问题,你可以试试把等待时间延长,比如加个 0 改成 5000, 再在 Alt+U 之后再等 500 ms.

要实现重启或者关机可以试试这个:
CODE:  [Copy to clipboard]
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")
Set colOS = WMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each OS in colOS
    OS.Reboot()  ' 关机为 OS.Win32Shutdown(1)
Next


qinchun36 2009-8-12 23:25

WshShell.SendKeys ("^%{DEL}") '同时按下{Ctrl}{Alt}{Del}

原来windows不允许vbs同时调用这三个键
CODE:  [Copy to clipboard]
Set WshShell = WScript.CreateObject("WScript.Shell")
  WshShell.SendKeys ("^+{ESC}") '同时按下{Ctrl}{Shift}{ESC}
  WScript.Sleep 500 '等待启动任务管理器
  WshShell.SendKeys ("%u") '同时按下{Alt}+U
  WScript.Sleep 200 '延时
  WshShell.SendKeys ("^r") '同时按下{Ctrl}+R
这样可以执行,但是执行重启的时候不是预期的不保存任何进程快速重启,仍然是按照正常的重启步骤:注销-保存-关机-重启……

不知道何故,高手给下解释

[ Last edited by vlq5299 on 2009-8-14 at 07:03 ]

vlq5299 2009-8-14 06:57

那个按住CTRL键不放再按R

不是CTRL+R

这个VBS模仿不了。

直接调用
shutdown.exe -r -f -t 0
可以吗?

套用上面的WMI

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")
Set colOS = WMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each OS In colOS
     OS.Win32Shutdown(6)
Next

slore 2009-8-16 22:59



  Quote:
Originally posted by slore at 2009-8-16 22:59:
那个按住CTRL键不放再按R

不是CTRL+R

这个VBS模仿不了。

Ctrl+Esc vbs就可以模仿的

vlq5299 2009-8-28 04:55

汗~

你一起按看它出来不。。。

VBS发送的是一起的。。。不是按住的。。。

那个快捷键可以2个都行罢了

slore 2009-8-28 11:32

发表评论
标题:   [可选]
选项:
 禁用 URL 识别
 禁用 Smilies
 禁用 Discuz! 代码
 使用个人签名
 接收新回复邮件通知

           
[完成后可按 Ctrl+Enter 发布]

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



[ 联系我们 - 中国DOS联盟 ]


Powered by Discuz! © 2001-2011