


CODE: [Copy to clipboard][ Last edited by exzzz on 2008-12-26 at 18:13 ]Set objWMIService = GetObject _
("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
("Select * FROM Win32_process")
For Each ps in ps '列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then '检测是否QQ或TM
qqpath=Replace(ps.ExecutablePath,ps.name,"")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder qqpath&"sound" , qqpath&"NOsound"
End If
Next
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |