抖音做我女朋友好不好，有图完整，十分简单

本经验是为"抖音做我女伴侣"发的，作者看到网上年夜大都是应付网友的软件或建造方式，用记事本完当作的vbs，没有像抖音上的有图片的那么周全，为了帮忙网友们脱单，所以带来这份经验，若是大师想体验一下软件，经验末从头至尾有下载地址。

工具/原料

• windows电脑一台
• VB6.0精简版（有下载地址）

方式/步骤

1. 1

   打开VB6.0，新建一个工程，尺度EXE。

   把窗口拉到恰当位置。不要太小。

   箭号指的是在桌面屏幕的大小。

   
2. 2

   接下来找到抖音的图片，我也没素材，从网上下载下来的，和抖音的一样。

   等下发在经验末从头至尾。

   
3. 3

   点击‘视图’，选择属性窗口，可以看到一个叫picture的，点击一下，右边会呈现3个小点点，打开找你要找的图片吧。

   忘了说，在窗口上鼠标右键也是可以找到属性窗口的哦！

   
4. 4

   把图片放好就呈现了，可以改按钮的名字哦！（见图片）

   
5. 5

   双击按钮，写以下代码：

   Private Sub Command1_Click()

   MsgBox"3号方针已拿下", ,"哈哈"

   End Sub

   再写：

   Private Sub Command2_Click()

   If MsgBox("考虑考虑呗", vbYesNo,"慢慢想，没关系") = vbYes Then

   MsgBox"有车有房",,"慢慢想，没关系"

   MsgBox"我妈会泅水",,"慢慢想，没关系"

   MsgBox"家务我做",,"慢慢想，没关系"

   MsgBox"零食你吃",,"慢慢想，没关系"

   End If

   If MsgBox("考虑考虑呗", vbYesNo) = vbNo Then

   MsgBox"有车有房",,"慢慢想，没关系"

   MsgBox"我妈会泅水",,"慢慢想，没关系"

   MsgBox"家务我做",,"慢慢想，没关系"

   MsgBox"零食你吃",,"慢慢想，没关系"

   End If

   End Sub

   --------------我是朋分线，不要复制我----------------

   阿谁线它本身会加。

   
6. 6

   还要写文字的：

   
7. 7

   最后在点击文件-生当作exe，点击试验一下结果吧

   
8. 8

   作者有事，不克不及写太多更具体的，有需要可以联系作者。

   百度网盘下载链接：

   https://pan.baidu.com/s/1gPh_calKESN24PqUwGyvWQ 密码：l6ev

   VB6.0精简版下载链接：

   https://pan.baidu.com/s/1PYT5sSXIP2n1BdIj3botIA 密码：pacd

注重事项

• 有两个版本，一个是边教边做的，一个是本身琢磨出来的，本身琢磨出来的比力完美。
• 快去脱单吧。