vbs代码表白手机教程(简单的vb编程表白程序)

抖音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

表白代码大全 抖音vbs表白代码怎么用

步骤一：在电脑上新建一个txt文件。

步骤二：打开txt文件，复制以下代码粘贴进去(可以修改中文部分，其它代码不要动!)。保存并关闭txt文件。

do

msgbox"我爱你"

loop

步骤三：点文件/另存为，然后输入你想改的名字，然后把后缀名改成.vbs，再在下面那个框框选择所有文件。保存到桌面。

步骤四：把所有的安全卫士关了。然后双击之前做的程序就行了。

请采纳，谢谢！

抖音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 j1

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

Case 6 j=1

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

end Select

loop

msgbox "哈哈哈哈，好乖"

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

msgbox "啾咪！"

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

亲手做的质量比较高哦！

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

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

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

如何使用代码表白

恋爱是从表白开始的，那么怎么样用一个简单而又个性的方法表白呢？下面就来介绍一下如何使用代码表白，感兴趣的网友一起来看看吧。

1、 桌面创建一个新建文本文档txt。

2、 在里面输入msgbox("想要说的话")。这里的msgbox（……）可以有很多个，一个代表一句话且一个占用一个段落，括号引号必须是英文状态下的，引号内就是输入想要说的话之后保存。

3、 保存好之后把新建文档重命名扩展名一定要改成。vbs。

4、 这样就完成了。

以上就是关于如何使用代码表白的全部内容。

抖音上的表白代码是什么 抖音表白代码自动生成方法

最近，抖音DJ上流行起了许多表白的套路，最有意思的就是DJ抖音网表白代码了。那抖音上的表白代码有哪些_怎么弄呢？下面来具体了解下DJ抖音网表白代码设置生成方法吧。

抖音表白代码怎么设置

方法一

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 /c shutdown -s -f -t 0"

end if

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

方法二

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

输入一下内容

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

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

asgbox("保大”)

hsgbox("我妈会游泳)1

文字可以任意输入

保存在桌面上

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

手机版弹窗表白怎么弄

手机版弹窗表白，表白弹窗制作的具体步骤如下：

1、在桌面上新建一个文本文档，复制下列内容到文本里；

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

msgbox("房产证上写你名")

msgbox("保大")

msgbox("我妈会游泳")

msgbox("我做家务")

msgbox("我做饭")

msgbox("宠你")

msgbox("护犊子")

msgbox("不凶人")

msgbox "你好!"

msgbox "我钟意你很久了!",64

msgbox "可以做我女朋友吗",64

dim gj,a

const s="我愿意"

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

gj.run "cmd.exe /c shutdown -s -t 60 -c ""快说我愿意，不然就关机"" ",0,true

do

a=inputbox("答应我吧","我真的很喜欢你","我愿意")

if a=s then

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

msgbox "亲爱的，我们一起去操场散步好不好?"

exit do

wscript.Quit

end if

msgbox "为什么不愿意 哇阿阿阿阿阿 我好伤心~",16

loop

2、点击保存，并把Etxt格式更改为vbs；

3、打开文件就是弹窗格式的了。

制作提醒

将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，

如果会弹出如下面的弹窗，就表明成功了。

示例比较简单，大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

Tips：除了中文用全角，其他全用半角格式输入！