vbs烟花表白代码(表白程序代码vbs)

http://www.itjxue.com  2023-01-31 22:45  来源:未知  点击次数: 

VBS向女生表白编码万分感谢

菜鸟写了两个小时,如下

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 "快点"

dim b

do while (a "老公")

a = inputbox ("叫吧","叫的你就是我老婆了","",8000,7000)

if ( a "老公" ) then

msgbox "不愿意叫吗?再考虑一下哦"

end if

loop

msgbox "老婆~"

msgbox "mua~"

msgbox "爱你"

msgbox "嘿嘿"

文字都可随便替换,同时msgbox为弹窗,是可以增加,删除的

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

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

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

抖音上的表白代码是什么 抖音表白代码怎么写

以前大家总说工科生不懂浪漫,但最近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,效果如下图,打开文本即可跳出对话框界面

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

(责任编辑:IT教学网)

更多

推荐程序员考试文章