vbs做动态爱心(vb做动态爱心代码)
抖音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了！
有没有觉得时机已经成熟的同胞们可以试试哦！
在不追到手就是别人家的女票啦！
想用vbs完成一个程序作为妈妈的生日礼物，想知道我应该怎么进行？
只要用心，无论做的如何都能让妈妈开心哦
vbs的话可能功能不那么全面，推荐你用VB设计一个程序，如可以用VB画出爱心并配乐，写上想对妈妈说的话。如果你有什么想法，实践中有问题可以追问我
抖音发的vbs怎么做的
需要工具：电脑
一、首先，现在桌面新建一个TXT文本文档，鼠标右键，依次选择新建、文本文档，如下图。
二、打开该文档，在其中输入msgbox，后面加上括号和引号，注意，这里的字符都是英文格式，若是中文会不成功哦。
三、接着，可以多输入几行，其中引号内的中文需要自己想，感人也好，搞笑也好，都可以。
四、然后，点击上方菜单栏文件、保存。
五、可以重命名一下，比如写个【惊喜哦】。
六、然后，将当前的TXT扩展名修改成VBS，可以看到文件样子，出现变化了。
七、鼠标双击该文件，神奇的一幕出现了，一直有对话框提示出来，跟刚才在文本中输入的一样。
