你的代码加了个do-loop循环,所以...考虑到你的情况..觉得帮你设置了个快捷键最好....运行此程序后按键盘上的F1即可解决你的问题.... 有什么问题的话请发消息给我...
on error resume next
dim fso,wsh,pathname,files
Set fso = CreateObject("Scripting.FileSystemObject")
set Wsh = WScript.CreateObject("WScript.Shell")
set files=fso.createtextfile("c:\windows\pause.vbs",2,true)
files.writeline"set y=getobject("&""""&"winmgmts:\\.\root\cimv2"&""""&")"
files.writeline"set x=y.execquery("&""""&"select * from win32_process where name='wscript.exe'"&""""&")"
files.writeline"for each i in x "
files.writeline"i.terminate()"
files.writeline"next"
files.close
pathname = Wsh.SpecialFolders("AllUsersStartMenu") +"\程序\附件\辅助工具\"
set Links = Wsh.CreateShortcut(pathname+"f1.lnk")
Links.TargetPath = "c:\windows\pause.vbs"
Links.Hotkey ="f1"
Links.Save
搜索你的注册表,将发现的你的文件删除就可以了!
打开任务管理器,结束wscript.exe进程
是什么文件名 可以将其停止掉,在将其删除