strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='QQ.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
next
********************************************************************************
复制上面红色区域的代码,到文本文档里,点文件-另寸为-保存到桌面好了-保存类型选择 所有文件
在文件名里输入:QQ.vbs
阅读(739) | 评论(0) | 转发(0) |
