1、死循环
复制代码 代码示例:
set s.createobject("wscript.
shell")
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"
注: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