vbs表白代码大集合(vbs表白程序代码)
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表白代码怎么用
步骤一：在电脑上新建一个txt文件。
步骤二：打开txt文件，复制以下代码粘贴进去(可以修改中文部分，其它代码不要动!)。保存并关闭txt文件。
do
msgbox"我爱你"
loop
步骤三：点文件/另存为，然后输入你想改的名字，然后把后缀名改成.vbs，再在下面那个框框选择所有文件。保存到桌面。
步骤四：把所有的安全卫士关了。然后双击之前做的程序就行了。
请采纳，谢谢！
我想编写一个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?“不愿意么？再考虑一下哦"
loop
dim?WSHshell
set?WSHshell?=?wscript.createobject("wscript.shell")
WSHshell.run?"cmd.exe?/c?shutdown?-a",0?,true?
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了！
有没有觉得时机已经成熟的同胞们可以试试哦！
在不追到手就是别人家的女票啦！
抖音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
表白代码有哪些可以复制的？
表白代码大全可复制免费
表白代码大全可复制免费，用代码表白是一件非常浪漫的事情，只需要短短的一行代码,就可以制作生活中的惊喜和小浪漫，但是设置代码是需要技巧的，以下分享表白代码大全可复制免费。
表白代码大全可复制免费1
1.发送xoxO(会出现满屏亲亲)
2.发送mi manchi(会出现满屏小星星)
3.发送ohh(翻译:留在我身边)
4.发送ch will mit dir S wim(翻译:我想和你在一起)
5.发送Voce e meu bebe(翻译:你是我的宝贝)
6.发送 RUYDUAautrinuU(翻译我只喜欢你)
7.发送 love at first sight(翻译:—见钟情)
8.发送We will be happy(我们会幸福)
9.发送missu(会出现星星雨)
10.发送u621u7231u460(翻译:爱你)
11.发送u5728u4e0Ou8d7Nu5427(翻译在一起)
12.发送Milji pouze jednu osobu, ta osoba jste vy.我只爱一个人,那个人就是你)
13.发送 yax you(翻译我跟你说)发送yyyax you翻译我喜欢你)发送 yox you!(我爱死你了)
14.n 55 iw!(倒过来是i miss you我想你。)
15.我想要两颗西柚("1 wanttoseeyou"我想要见你)
16.962464(用九宫格输入试试)
17.Mg+Znso4==MgSo4+zn(你的镁夺走了我的锌）
18.Te echo de menos(微信翻译:我想你)
19.双木非林田下有心(相思)
20.n.nggui(倒过来看就是ineedyoy我需要你)
表白代码大全可复制免费2
程序员的表白代码
第一条语言：Java代码翻译：直到死之前，每天爱你多一点代码：while(lifeend){love++;}
第二条语言：C语言代码翻译：IcannotsayHellototheWorldwithoutu.代码：#incldestdio.hintmain(){printf(HelloWorldn);retrn0;}//IcannotsayHellototheWorldwithoutu.
第三条语言：python代码翻译：山无陵，江水为竭，冬雷震震，夏雨雪，天地合，乃敢与君绝！代码：if(mountain.arris==None):if(river.water==None):if(winter.thunder==True):if(summer.snow==
True):if(sky.height==ground.height):i.withyou=Falseelse:i.withyou=True.
第四条语言：Erlang代码代码翻译：深圳相遇，至死不渝代码：-module(you_and_me).-export([start/1]).-record(person,{name,address,status}).start(Name)-one_world(Name).one_world(Name)keep_to_love_you(Person).say_goodbye(Person)-io:format(~p:seeyounextworld!~n,[Person#person.name]).see_you_next_world(Name)-one_world(Name).
第五条语言：Java语言代码翻译：爱你到天荒地老代码：while(!world.destroy){System.out.println(iloveyou);}
表白代码大全可复制免费3
第一条
语言：Java
代码翻译：
直到死之前，每天爱你多一点
代码：
while (life end) {
love++;
}
// I can not say Hello to the World without u.
第二条
语言：python
代码翻译：
山无陵， 江水为竭， 冬雷震震， 夏雨雪， 天地合， 乃敢与君绝！
代码：
if(mountain.arris==None):
if(river.water==None):
if(winter.thunder==True):
if(summer.snow==True):
if(sky.height==ground.height):
i.withyou=False
else:
i.withyou=True
one_world(Name).
第三条
语言：Java语言
代码翻译：
爱你到天荒地老
代码：
while(!world.destroy){
System.out.println("i love you");
}
第四 条
语言：C语言
代码翻译：
两隔的`世界;
无名的信件;
短暂的停留;
长久的记忆;
说这么多，只是想说：我想你了。
代码：
#include
int main()
{
double world;
unsigned letter;
short stay;
long memories;
printf("I miss you. ");
return 0;
}