抖音vbs表白代码怎么用

最近好像某音上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<1

Select Case msgbox("那么，，做我女朋友好吗",68,"请郑重的回答我")

Case 6 j=1

Case 7 msgbox("再给你一次机会")

end Select

loop

msgbox "哈哈哈哈，好乖"

msgbox "做到这一定是通关了"

msgbox "啾咪！"

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

亲手做的质量比较高哦！

再之就是将txt改成vbs就OK了！

有没有觉得时机已经成熟的同胞们可以试试哦！

在不追到手就是别人家的女票啦！

以前大家总说工科生不懂浪漫，但最近DJ抖音网很流行用代码来表白，将代码编写好，然后将文档发给要表白的对象，然后就可以等着对方进入你的表白套路了。其实这是d窗表白的代码不是很复杂，一般人按照步骤来都可以做到，下面就来看看具体的步骤：

1、KS97新建一个文本 输入代码

2、鼠标左键点击文本左上角文件，再点击另存为。

3、点击后会d出以下窗口，文件名改成：表白示例.vbs，保存类型改为：所有文件，然后点击确定。

4、点击确定后，完成制作，电脑桌面上会显示一个vbs文件。鼠标左键双击单开刚才保存vbs文件，就会像抖音里面的一样了。

抖音表白代码怎么写

方法一

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

msgbox("房产证写你名字...")

msgbox("保大...")

msgbox("我妈会游泳..")

x=msgbox("做我女朋友好不好"，VbOkCancel)

if x=VbOk then

msgbox("爱你，么么哒")

elseif x=VbCancel then

msgbox("哼，再见")

set ws=createobject("wscript.shell")

ws.run"cmd.exe /cshutdown-s -f -t 0"

end if

使用方法：将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，如果会d出如下面的d窗，就表明成功了。大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

方法二

直接在电脑上打开一个记事本

输入一下内容

asgbox(“做我女朋友好吗?”)

hsgbox("房产证上写称名”)

asgbox("保大”)

hsgbox("我妈会游泳)1

文字可以任意输入

保存在桌面上

将记事本的后缀改成.vbs，效果如下图，打开文本即可跳出对话框界面

不同意就关机的那种

x=msgbox("做我女朋友好不好",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("房产证写你名字",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("保大...",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("我妈会游泳",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

msgbox("你真的不爱我吗？")

msgbox("那好吧。")

msgbox("那你就关机吧")

msgbox("真的哟！")

msgbox("都怪我太善良，再给你一次机会")

x=msgbox("你后悔吗？",VbYesNo)

if x=VbYes then

x=msgbox("到底爱不爱我",VbYesNo)

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

msgbox("宁死不屈在下佩服，拜拜。")

set ws=createobject("wscript.shell")

ws.run"cmd.exe /c shutdown -s -f -t 0"

End if

End if

End if

End if

End if

---