没事儿在百度知道里看到许多朋友求有关恶作剧代码,而且有两段广为流传,源远流长,我惊叹网路的力量,为了大家搜索,集中化管理,下面我也不妨借用一下,接下来我会亲自书写新的代码,打破原来陈旧的没有生气的代码,以犒读者。。。哎,算了为了防止大家没有耐心读下去错过精彩内容,还是先把我的智慧结晶先绣出来吧,没有技术含量,仅供为玩玩儿而已。。
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) + "哈哈哈哈,真过瘾"