Question

vbs操作windows窗口的问题？

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

Answer 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}")
使用时需要将对应的前面'注释符去掉

Answer 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 "结束"

Answer 3

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

Answer 4

用vb吧 vbs办不到的

Answer 5

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