[vb6.0怎么添加treeview]怎么在电脑上下载vb6.0!

科了个技官方网站

肉嘎嘎

2016-08-04 18:05

七夕情人节马上就要到了，情侣们准备好狗粮了没？上次小编发布了一篇关于表白网页版程序的文章，很多朋友反映不会用，加上部分网站屏蔽了我们的测试网址，很多朋友看不到效果，所以今天小编准备了易上手的EXE执行程序，通过简单的VB程序做成表白利器，让单身狗无处可躲。

写信太老土，QQ等聊天，心里的小九九好想对他说却又不敢当面说怎么办？这款小程序，让你的表白高大上！废话不多说，上~图~

下面是打开的效果，很简单

好了 界面很简单，需要的软件是VB6.0，本文中有下载链接，如果你直接用记事本另存为vbs，也可以哦！而且关机那条命令是执行的！但是杀毒软件会报毒！

好了屁话真多，下面进入正题。

首先安装VB6.0，安装文件在文中有下载链接，安装完毕打开、新建个工程，

双击这出现代码编辑框！在编辑框中输入下列代码

Private Sub Form_Load

On Error Resume Next

Dim WSHshellA

MsgBox Chr(13) + Chr(13) + Chr(13) + "宝贝，你好，用这种方式和你说话实属无赖，在你面前我不敢说，现在通过计算机来表达我想对你说的话。"

MsgBox Chr(13) + Chr(13) + Chr(13) + "你不想看完也不行，因为你关不掉这个软件"

MsgBox Chr(13) + Chr(13) + Chr(13) + "要说的情话"

MsgBox Chr(13) + Chr(13) + Chr(13) + "要说的情话1"

MsgBox Chr(13) + Chr(13) + Chr(13) + "要说的情话2"

MsgBox Chr(13) + Chr(13) + Chr(13) + "要说的情话3"

MsgBox Chr(13) + Chr(13) + Chr(13) + "要说的情话4"

MsgBox Chr(13) + Chr(13) + Chr(13) + "要说的情话5"

MsgBox Chr(13) + Chr(13) + Chr(13) + "要说的情话6"

Set WSHshellA = w("w;)

WSH "cmd.exe /c shutdown -r -t 251 -c ""宝贝我给你521秒的时候考虑下，你如果爱我就输入某某我爱你，当251秒过后，电脑将自动关机，这不是病毒，对你没有任何伤害，重启后此程序就结束了"" ", 0, True

Dim a

Do While (a <> "某某我爱你")

a = InputBox("请你输入某某我爱你，快撒，求你说 ""某某我爱你"" ", "请输入", "爱我吗？", 8000, 7000)

MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"

Loop

MsgBox Chr(13) + Chr(13) + Chr(13) + "真的吗？你说了？你爱我？"

MsgBox Chr(13) + Chr(13) + Chr(13) + "我要马上出现在你身边，给我打个电话"

Dim WSHshell

Set WSHshell = w("w;)

WSH "cmd.exe /c shutdown -a", 0, True

MsgBox Chr(13) + Chr(13) + Chr(13) + "宝宝是不是又帅啦？？"

MsgBox Chr(13) + Chr(13) + Chr(13) + "宝贝等我，我马上来哦？？"

End Sub

点文件，生成工程 .Exe

生成exe文件即可。文本的更是简单，新建个记事本，把代码粘贴进去，删除第一行和最后一行。

文件另存为

选择所有文档

再把后缀改成vbs即可。

简单界面，简单效果，虽然是小白技能，但是你要相信大多数女生是电脑白痴，这种简单粗暴型，反而会多出一点点新意，让女神眼前一亮。当然，大神勿喷，要是你有这方面的基础可以把它做的更漂亮哦。

工具下载地址：;tid=458&extra=

今天的文章到此结束了，想知道更多请关注我们的公众好“kelegeji”新号建设中，请大家多多包涵，多多指教。我们的官方网站是（目前在备案中，现在可以访问找到我们。）