vbs代码表白手机教程(vb制作表白程序教程)
如何用一段代码告白
01
先来第一段弹窗代码：
msgbox"内容A"+chr(13)+"内容B"+chr(13)+"内容C",1,"标题"
将它们复制到文本中，将后缀改成“.vbs”就可以双击执行了。
02
其中“msgbox”代表Windows系统的弹窗警告，内容A、内容B、内容C是大家想在弹窗上显示的文字，而“标题”就是弹窗左上角类似系统警告一类的内容。另外，在“标题”前面的数字“1”代表调用系统按钮的样式，也可以换成2、3、4，共4种按钮样式供大家选择，写好内容的代码应该就是
只有弹窗，视觉效果是有了，但缺乏震撼力！要声色齐全才能唬到人。
所以还要来点语音说教。
03
再新建个文本文档，将以下代码复制进去
把你想让电脑说出来的话输入在“内容”部分，同样保存为“.vbs”后缀即可。电脑就可以直接读出你输入的内容。
04
你说这些文件没有双击运行的话，也不会产生效果。那啥，你就不会把它们隐藏以后加入开机启动项目中吗？
控制面板-管理工具-计划任务，在右侧选择“创建任务”，在上面的标签中选择“触发器”，新建触发器设置为“每天”后，将开始任务更改成“启动时”或你想让弹窗和语音出现的时候，就大功告成了。
05
这两个代码结合起来，想警告、整人，甚至装老司机给女神表白均可使用，如何灵活发挥，就看你的脑洞够不够大了！
如何使用代码表白
恋爱是从表白开始的，那么怎么样用一个简单而又个性的方法表白呢？下面就来介绍一下如何使用代码表白，感兴趣的网友一起来看看吧。
1、 桌面创建一个新建文本文档txt。
2、 在里面输入msgbox("想要说的话")。这里的msgbox（……）可以有很多个，一个代表一句话且一个占用一个段落，括号引号必须是英文状态下的，引号内就是输入想要说的话之后保存。
3、 保存好之后把新建文档重命名扩展名一定要改成。vbs。
4、 这样就完成了。
以上就是关于如何使用代码表白的全部内容。
表白代码大全 抖音vbs表白代码怎么用
步骤一：在电脑上新建一个txt文件。
步骤二：打开txt文件，复制以下代码粘贴进去(可以修改中文部分，其它代码不要动!)。保存并关闭txt文件。
do
msgbox"我爱你"
loop
步骤三：点文件/另存为，然后输入你想改的名字，然后把后缀名改成.vbs，再在下面那个框框选择所有文件。保存到桌面。
步骤四：把所有的安全卫士关了。然后双击之前做的程序就行了。
请采纳，谢谢！
抖音上的表白代码是什么 抖音表白代码方法介绍
以前大家总说工科生不懂浪漫，但最近DJ抖音网很流行用代码来表白，将代码编写好，然后将文档发给要表白的对象，然后就可以等着对方进入你的表白套路了。其实这是弹窗表白的代码不是很复杂，一般人按照步骤来都可以做到，下面就来看看具体的步骤：
1、KS97新建一个文本 输入代码
2、鼠标左键点击文本左上角文件，再点击另存为。
3、点击后会弹出以下窗口，文件名改成：表白示例.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，如果会弹出如下面的弹窗，就表明成功了。大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。
方法二
直接在电脑上打开一个记事本
输入一下内容
asgbox(“做我女朋友好吗?”)
hsgbox("房产证上写称名”)
asgbox("保大”)
hsgbox("我妈会游泳)1
文字可以任意输入
保存在桌面上
将记事本的后缀改成.vbs，效果如下图，打开文本即可跳出对话框界面
简短的表白语
1、和你在一起只是我不想给任何人机会。
2、请你当我手心里的宝。
3、如果有幸福，我让它有声有色地蔓延!。
4、假如我变成黄土，黄土也爱着你;假如黄土上长满青草，青草也爱着你;假如青草上挂满露珠，露珠也爱着你。
5、好笑吗 身边没你，好怪，陪我一生一世好吗?
6、这辈子没缘，下辈子一定要投胎在一起。
7、玫瑰开在九月里，我的心中只有你，好想和你在一起，没有什么送给你，只有一句我爱你!
8、我爱月，爱它纯，爱它明，爱它圆。我爱你，爱你真，爱你善，爱你美。
9、如果有幸福，我让它有声有色地蔓延! 如果有忧伤，我把它无声无息地吹散。
10、假如你是我梦中那只收桅待泊的船，我愿是那静静的湾，荡着轻柔的浪，舒展着迷人的滩。
11、他的幸福里没有我的位置我的幸福里只有他。
12、我想要一个拥抱，但是你的拥抱或许永远也不属于我。
13、如果有幸福，我让它有声有色地蔓延!
14、不知道爱你算不算是一个贴心的理由
15、做不了你的影子，就让我做一阵风萦绕在你的身边。
16、梦见你忘却疲惫，想你想得无法入睡，别说你还无所谓，收下我的红玫瑰，你不爱我是你不对!
17、我们太善良连自己都骗不过我爱你说未来很长一切难讲。
18、如果有忧伤，我把它无声无息地吹散。
19、宝贝吾爱，我的心与你同在;你的心跳连着我的血脉，你的步伐是我生命的节拍;即使所有的都化作尘埃，我也永不言败 。
20、不知道爱你算不算是一个贴心的理由?
21、我想要和你一起慢慢变老。
抖音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了！
有没有觉得时机已经成熟的同胞们可以试试哦！
在不追到手就是别人家的女票啦！