批处理之家 - Powered by Discuz! Board

标题: [已解决]如何使用VBS模拟键盘发送win+D键？ [打印本页]

作者: smallbear 时间: 2009-6-4 12:28 标题: [已解决]如何使用VBS模拟键盘发送win+D键？

小弟初学VBS，现在知道用sendkeys 可以模拟键盘按键。但是我不知道如何模拟键盘按下win +d 键，使桌面上的所有窗口最小化，请高手指点。谢谢。另外用好VBS可以激活窗口，我想请问如何用VBS来激活QQ聊天的窗口？谢谢。

[ 本帖最后由 smallbear 于 2009-6-4 19:44 编辑 ]

作者: slore 时间: 2009-6-4 12:48

'1.显示桌面
'直接调用系统显示桌面方法
Dim objSHA
Set objSHA = CreateObject("Shell.Application")
objSHA.ToggleDesktop
Set objSHA = Nothing

'2.激活窗口
Dim WshShell
Set WshShell = CreateObject("WSCript.Shell")
WshShell.Appactivate "窗口标题"
Set WshShell = Nothing

作者: smallbear 时间: 2009-6-4 19:46

非常感谢一楼的帮助。

欢迎光临批处理之家 (http://bbs.bathome.net/)