Vb代码跟女生表白（vbs代码表白）

本篇文章给大家谈谈Vb代码跟女生表白，以及vbs代码表白对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、抖音上的表白代码是什么 抖音表白代码怎么写
• 2、VBS向女生表白编码万分感谢
• 3、如何用vb编写个表白程序
• 4、各位大神，我想用VB编写一个程序来表白，希望可以帮我，成人之美功德无量呀，谢啦！！！

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

以前大家总说工科生不懂浪漫，但最近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向女生表白编码万分感谢

菜鸟写了两个小时，如下

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为弹窗，是可以增加，删除的

如何用vb编写个表白程序

简单啊~

打开VB新建一个exe工程；

按下F7打开代码窗体；

写入以下代码并生成exe发送给对方即可。

Private Sub Form_Load()

    MsgBox "I love you~"

    MsgBox "真的！"

    MsgBox "..."

End Sub

MsgBox请自由更改以及添加，想说多少加多少。

各位大神，我想用VB编写一个程序来表白，希望可以帮我，成人之美功德无量呀，谢啦！！！

方法：

先将要轮流显示的图片编辑好，建议图片尺寸设置为一致！并转换为BMP格式的图片！

打开VB,新建工程,单击窗体中【外接程序】=【外接程序管理器】=选择【VB 资源管理器】，并加载它！

将图片添加进VB 资源管理器里面，文件的ID依次是 101 102 103 .... ...

在工程项目中添加两个窗体,分别为 Form1 Form2

在Form1窗体中添加一个Command控件, 并在窗体中添加如下代码:

  Private Sub Command1_Click()

      Form2.Show

  End Sub

在Form2窗体中添加一个Timer控件,一个PictureBox控件,并在窗体中添加如下代码:

Dim i As Integer

Private Sub Form_Load()

 Timer1.Interval = 2000   '延时2000ms

  i = 1

End Sub

Private Sub Timer1_Timer()

  Picture1.Picture = LoadResPicture(100 + i, vbResBitmap)

  i = i + 1

  If i = 6 Then i = 1    ' 数字6是代表有6张图片

End Sub

这样就按照你的要求做出一个每两秒钟就自动循环更换图片的程序了!

Vb代码跟女生表白的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs代码表白、Vb代码跟女生表白的信息别忘了在本站进行查找喔。