抖音vbs表白代码怎么用

dakeree

dakeree

最近好像某音上vbs表白挺火的

小姐姐们都受不了这种撩人的套路呢

那我就为广大男同胞分享一个哦!!先创建一个空文本,然后将下面分割线里的复制粘贴进去

汉字部分就自行选词代替啦!!!!

——————————————我是分割线——————————————

msgbox "啊哈哈哈哈哈哈!想不到吧!"

msgbox "先问个简单的问题,我经常和你说你一定知道"

const title = "啊哈哈哈哈一定要做完啊"

const yourname = "XXX纪念日"

const question = "今天是个特殊的日子呐,你记得是什么日子吗?"

const info = "不对不对,XXX说错了。给一个提示 XXXJNR"

const scend = "啧啧啧,怎么这么厉害了呐!"

dim youranswer

do

youranswer = inputbox(question, title)

if youranswer yourname then msgbox info, vbinformation+vbokonly, title

loop until youranswer = yourname

msgbox scend, vbinformation+vbokonly, title

msgbox "嗯嗯,不错不错,看来低能小白在爸爸的调教下冰雪聪明了许多啊= ="

msgbox "那再问你个问题,不怕被锤脑壳就乖乖得哦"

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""你最喜欢的人是谁?请在下面的方框中输入他(她)的名字,否则会被关机......"" ",0 ,true

dim a

do while (a "猪悟空")

a = inputbox ("你最喜欢的人是谁?请在下面的方框中输入他(她)的名字,否则会被关机......","说假话的人是要被锤脑壳的哦","",8000,7000)

if ( a "猪悟空" ) then

msgbox "不对不对,说错了。难道你不稀罕我的狗命了莫"

end if

loop

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox "你才姓猪!!!!!!!!!!"

msgbox("既然这样")

msgbox("做我女朋友好吗")

msgbox("不能拒绝")

msgbox("房产证写你名")

msgbox("我保大")

msgbox("我妈会游泳")

msgbox("你腿长")

msgbox("你漂亮")

msgbox("心是你的,肉体也是你的,每一块腹肌都是你的")

msgbox("只做你的XXX")

do while j