操作方法：把代码保存为*.VBS运行即可
一般都是利用无限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。
![]()
撩妹代码
msgbox("小姐姐")
msgbox("小姐姐")
msgbox("呼叫小姐姐")
a=msgbox("小姐姐有时间吗？",vbYesNo,"玩个游戏哦")
if (a=vbYes) then
msgbox("嘿嘿嘿，那我们可以继续玩下去了！！！")
msgbox("那。。。。。。我就问你一个问题啊")
msgbox("你觉得自己漂不漂亮？")
msgbox("温馨提示：")
msgbox("要有自信哦")
b=msgbox("漂不漂亮？",vbYesNo,"漂亮")
if (b=vbYes ) then
msgbox("我也这么觉得")
wscript.echo printer(" ","*","113111111112212111313111513",7)
function printer(a1,a2,b,c)
for i = 1 to len(b)
b1 = Mid(b,i,1)
for j = 1 to b1
s=s&a1
n=n+1
if n=c then
s=s&chr(10)
n=0
end if
next
a3=a1
a1=a2
a2=a3
next
printer=s
end function
msgbox("嘿嘿嘿")
msgbox("嗯，虽然我也赞同这一点")
msgbox("但")
msgbox("我还是想皮一下")
do
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("玩不过我吧")
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("打不到我吧")
msgbox("没有办法")
msgbox("就是这么强大")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
loop
else
msgbox("啥？")
msgbox("我没听清")
msgbox("这么不自信？")
msgbox("和我的观点不一样")
msgbox("后果很严重")
msgbox("所以，准备惩罚你一下")
msgbox("带你数绵羊吧")
Set s = CreateObject("sapi.spvoice")
i=0
Do while i |
|
转播
