vbs操作windows窗口的问题？

就是利用vbs使某个窗口得到焦点和失去焦点？vbs如何实现多个窗口切换？谢谢！

2026年09月23日 07:21

有5个网友回答

网友（1）：

set ws=createobject("wscript.shell")
wscript.sleep 1000
'appactivate 激活--即使某窗口获得焦点
'" "引号内为窗口的标题
'1。使文本获得焦点
'ws.AppActivate "新建文本文档.txt - 记事本"
'Alt+tab 可以切换窗口
'ws.sendkeys ("%{tab}")
'2。使任务管理器获得焦点
'ws.AppActivate "Windows 任务管理器"
'ws.sendkeys ("%{tab}")
'3。使文件夹aa获得焦点
ws.AppActivate "文件夹aa"
'ws.sendkeys ("%{tab}")
使用时需要将对应的前面'注释符去掉

网友（2）：

给你演示下吧
下面文本保存为vbs就可以执行了

Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Exec("notepad")
WScript.Sleep 2000
WshShell.Exec("calc")
WScript.Sleep 2000
WshShell.AppActivate "无标题 - 记事本"
WScript.Sleep 2000
WshShell.SendKeys "WANGTK AT BAIDU"
WScript.Sleep 2000
WshShell.AppActivate "计算器"
WshShell.SendKeys "1"
WScript.Sleep 500
WshShell.SendKeys "{+}"
WScript.Sleep 500
WshShell.SendKeys "2"
WScript.Sleep 500
WshShell.SendKeys "{enter}"
WScript.Sleep 2000
MsgBox "结束"

网友（3）：

explorer.exe出错，会在系统中会自动备份explorer.exe这个文件，系统自动备份的文件夹名为“Dllcache”(所在目录为C:\windows\system32)，用“Dllcache”来恢复即可。
解决方法：
按"Ctrl+Alt+Del"调出任务管理器也可以鼠标右击任务栏选择任务管理器打开，先终止explorer这个进程，点击“文件→创建新任务”，输入“C:\windows\system32\dllcache\explorer.exe”，并点击“确定”，即可解决此问题。
如果还是解决不了你可以用360软件做一个电脑体检和系统修复试一下。

网友（4）：

用vb吧 vbs办不到的

网友（5）：

调用Api,然后用Api函数很直接。具体你可以百度或到Vb吧提问,比你在知道提问更好。