strComputer = "."
Set objShell = CreateObject("Wscript.Shell")
do
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_process")
For Each wbemObject In wbemObjectSet
if wbemObject.name="QQ.exe" then
WScript.Sleep 1000
objShell.SendKeys "{F12}"
WScript.Sleep 1000
objShell.SendKeys "{ENTER}"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true
end if
Next
loop