vb浪漫表白程序(表白程序vbs)
如何用vb编写个表白程序
简单啊~
打开VB新建一个exe工程；
按下F7打开代码窗体；
写入以下代码并生成exe发送给对方即可。
Private?Sub?Form_Load()
????MsgBox?"I?love?you~"
????MsgBox?"真的！"
????MsgBox?"..."
End?Sub
MsgBox请自由更改以及添加，想说多少加多少。
简单的代码表白
1、浏览器标签法
这个先用不到代码，但却十分简单实用的，首先早一步到办公室，或者趁表白对象不注意的时候在她的电脑上安装chrome浏览器，设置成默认的浏览器，把各项的同步功能打开就可以了。然后选择一个合适的时机，在你的电脑上登录账号，然后标签栏添加你想说的话，例如下图这样：
然后标签就自动同步到表白对象的浏览器上了。
2、两个按键组合成I LOVE U
这个简单的功能是利用的网页查找的功能，在网页中复制下这段文字，
然后crtrl+f，在输入框中输入9，然后回车，看下效果：
3、Python表白代码
心型和圆形椭圆的代码类似，都是由X,Y上的点构成的曲线，确定出一个表达式expression，然后就是两个for循环（for y in range；for x in range），然后逐行逐列的开始就行了。
当然有点太单调，我们可以这样操作一下，让他动起来，像这样
print('\n'.join([''.join([('Love'[(x-y) % len('Love')] if ((x0.05)2+(y0.1)2-1)3-(x0.05)2(y0.1)*3 = 0 else ' ') for x in range(-30, 30)]) for y in range(30, -30, -1)]))
当然还能替换表情，这个代码就不放了，需要的直接跟我要就行。
4、炫酷一点的
C语言诠释爱——为TA写下心中情，生成程序传给TA，TA点开程序就懂你。
这个开始的时候会展示出表白对象的名字，接着就是最重要的烟花部分，为了让烟花显得更加真实，需要附加重力效果和空气阻力效果，源代码图如下
如果需要源码的留下邮乡就可以了。
5、恶搞一点的
这个适合关系已经不错的那种了，看看效果
源码直接发
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为弹窗，是可以增加，删除的
抖音上的表白代码是什么 抖音表白代码怎么写
以前大家总说工科生不懂浪漫，但最近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，效果如下图，打开文本即可跳出对话框界面