czjt1234

Dim objWsh
Set objWsh = CreateObject("Wscript.Shell")
Do
    objWsh.Run "cmd.exe /c tasklist|find /i ""QQ.exe""||ren c:\1.exe 2.exe", 0, True
    Wscript.Sleep 7000
Loop While TrueCOPY