Board logo

标题: [已解决]如何使用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/) Powered by Discuz! 7.2