科了个技官方网站
肉嘎嘎
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 = wscript.CreateObject("wscript.shell")
WSHshellA.run "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) + "我要马上出现在你身边，给我打个电话18688888888"
Dim WSHshell
Set WSHshell = wscript.CreateObject("wscript.shell")
WSHshell.run "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即可。
简单界面，简单效果，虽然是小白技能，但是你要相信大多数女生是电脑白痴，这种简单粗暴型，反而会多出一点点新意，让女神眼前一亮。当然，大神勿喷，要是你有这方面的基础可以把它做的更漂亮哦。
工具下载地址：
http://klgjlt.yunde168.com/forum.php?mod=viewthread&tid=458&extra=
今天的文章到此结束了，想知道更多请关注我们的公众好“kelegeji”新号建设中，请大家多多包涵，多多指教。我们的官方网站是http://www.kelgj.com（目前在备案中，现在可以访问http://klgj.yunde168.com找到我们。）