由我写的小恶作剧代码抛砖引玉

 

没事儿在百度知道里看到许多朋友求有关恶作剧代码，而且有两段广为流传，源远流长，我惊叹网路的力量，为了大家搜索，集中化管理，下面我也不妨借用一下，接下来我会亲自书写新的代码，打破原来陈旧的没有生气的代码，以犒读者。。。哎，算了为了防止大家没有耐心读下去错过精彩内容，还是先把我的智慧结晶先绣出来吧，没有技术含量，仅供为玩玩儿而已。。
on error resume next
dim wsh,fso,f
set wsh=wscript.createobject("wscript.shell")
wsh.sendkeys "幸福滴大脸爱黑客知识,爽吧!好玩儿吧！那就用计算器给我来封信吧!" //这里不要修改若修改则程序无法运行
msgbox chr(13)+chr(13)+"请记住幸福滴大脸",,"冥想滴Face"//这里可以修改文字
wsh.run "cmd.exe"
Set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.opentextfile("神秘内容.txt",8,true,0)
f.WriteLine("Netname:幸福滴大脸 TureName:曹丛 EnglishiName:HackFace OICQ:390322157 Hobby:电脑爱好者&Hack 毕业院校：三门峡职业技术学院 专业:计算机应用 自我评价:人见人爱花见花开车见车爆胎!三分内向七分外向！竭诚与你为友，诚心致死不该！") //这里可以修改
wsh.run "神秘内容.txt"
set f=fso.opentextfile("神秘内容.txt",8,true,0)
wscript.sleep 2000
f.writeLine("呵呵,好玩儿吧！苏甜甜小妹妹,刚看到你的校友，你1989年10月17日天秤座没有我1月1号大，故称之为妹，得罪了，o(∩_∩)o.....") //这里可以修改
wscript.sleep 200
wsh.run "神秘内容.txt"
wsh.sendkeys "%(FA)"
wsh.run "c:/windows/system32"
msgbox "这是你的系统目录，呵呵"
wscript.sleep 200
wsh.sendkeys "^f"
msgbox "哈哈，甜甜同学好啊，快开学哟，我思念你们。。！" //这里可以修改
a.Close
注意// 符号后是我自己加的注释，大家用的时候一定要把这些删除否则运行失败！
然后大家看着修改文字吧，不会的可以问我qq在上面资料里，o(∩_∩)o...哈哈

下面转载其他哥们的作品：

作品1有关DOS

@echo off
echo 嘿嘿,开始做算术题了，有时间限制的
:no1
shutdown -r -t 8 -c 第一题8秒计时
echo 1+11+111+1111=
set /p a=
if /i "%a%"=="1234" shutdown -a &goto no2
if /i not "%a%"=="1234" goto shutdown
:no2
cls
shutdown -r -t 12 -c 第二题12秒计时
echo 1*2*3*4*5=
set /p b=
if /i "%b%"=="120" shutdown -a &goto no3
if /i not "%b%"=="120" goto shutdown
:no3
cls
shutdown -r -t 15 -c 第三题15秒计时
echo 2/3*3/2*12*8/4=
set /p c=
if /i "%c%"=="24" shutdown -a &goto done
if /i not "%c%"=="24" goto shutdown
:shutdown
shutdown -a
echo 您答错了，重启啦
shutdown -r -t 5
goto esc
:done
echo 哼，谁叫你都对了，也给你重启
shutdown -r -t 60
goto esc
:esc
echo Bye~
pause

@echo off
echo 嘿嘿,开始做算术题了，有时间限制的
:no1
shutdown -r -t 8 -c 第一题8秒计时
echo 1+11+111+1111=
set /p a=
if /i "%a%"=="1234" shutdown -a &goto no2
if /i not "%a%"=="1234" goto shutdown
:no2
cls
shutdown -r -t 12 -c 第二题12秒计时
echo 1*2*3*4*5=
set /p b=
if /i "%b%"=="120" shutdown -a &goto no3
if /i not "%b%"=="120" goto shutdown
:no3
cls
shutdown -r -t 15 -c 第三题15秒计时
echo 2/3*3/2*12*8/4=
set /p c=
if /i "%c%"=="24" shutdown -a &goto done
if /i not "%c%"=="24" goto shutdown
:shutdown
shutdown -a
echo 您答错了，重启啦
shutdown -r -t 5
goto esc
:done
echo 哼，谁叫你都对了，也给你重启
shutdown -r -t 60
goto esc
:esc
echo Bye~
pause

作品二有关vbs和我的差不多妙，呵呵，我不想让大家重启哟。。。

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) + "哈哈哈哈，真过瘾"