Aug
7
VB打造QQ批量登陆器
QQ太多,每天要输入真的很麻烦,网上有一些批量的登录器,可是谁也不知道有没有在登录的同时也往作者的邮箱里发一封包含qq号与密码的邮件~
于是想自己写,因为asp比较熟,所以选择VB,网上找了2个模块,于是可以直接写程序了,以前没写过application,第一次写,遇到不少困难,不过最后还是搞定了~
下面放主代码,主要是ACCESS数据库的操作:
Private Sub form_Load()
Dim i As Integer
Dim mdbpath As String
Dim strqqpath As String
getvalue strqqpath
If strqqpath = "" Then
qqpath.Text = "未检测到QQ目录,请自行设置!"
Else
qqpath.Text = strqqpath
End If
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
mdbpath = appdisk
If Dir(mdbpath & "qqlogin.mdb") = "" Then
Dim pstr As String
pstr = "Provider=Microsoft.Jet.O...





