vbs窗口判断问题

vbs中如何判断如QQ2009窗口的出现，并判断做出相应的操作

2024-12-27 01:50:38

推荐回答（1个）

回答1：

我写了一个，不过只可以用在XP系统 Set ws=WScript.CreateObject("word.application")
Set w=ws.tasks
Do
For Each uu In w
If uu.visible=True And uu.name="QQ2009 正式版" Then
MsgBox uu.name '在这一步输入你的代码
name1="winword.exe"
Call aa(name1)
wscript.quit
End if
Next
WScript.Sleep 2000
Loop
Function aa(n)
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set list=wmi.ExecQuery("select * from win32_process where name='"& n &"'")
For Each uu2 In list
uu2.terminate
next
End function