|
腾讯QQ自动登录器写这款软件这个想法很早前就有了，QQ一直是被盗最严重的网络帐号密码种类之一，但没有一款有效的工具来防范，希望我的这款工具腾讯QQ自动登录器编程和相关程序源码能为大家带来方便。
特别说明从网站转贴：（Alasend收集整理,供学习参考）
程序特点：
Option Explicit
'判断是否连到网络begin
Private cn As CNetConnect
'判断是否连到网络end
'读写HL2.5config.ini begin
Dim strCharB, strCharA
Dim strSectionTemp As String
Dim strNameTemp As String
Dim strreturn As String
'读写HL2.5config.ini end
'00000000000000000000000000000000000000000000
Private Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As
String, ByVal nCmdShow As Integer) As Integer
Private Const sw_normal = 1 '（这些api常量可以用vb常量代替，比如vbnormalfocus）
Private Const sw_maximize = 3
Private Const sw_minimize = 6
Private Const sw_show = 5
Dim IsWindows95%
Dim OperationInProgress%
（Alasend 收集整理,供学习参考）
Function GetProfile(strFileName As String, strSection As String, strName
As String) As String
'这个函数是用来对INI文件进行读操作的
'函数说明:
'strFileName 是所要读取的文件名
'strSection 是这个文件中的一个节点名
'strName 是所要查找的字段名
'返回值：
strSectionTemp = ""
strNameTemp = ""
strreturn = ""
On Error GoTo ErrSrchSection
Open strFileName For Input As #1
' 下面这段程序是用来查找节点的
Do While Not EOF(1)
strCharA = Input(1, #1)
If strCharA = "[" Then
Do While Not EOF(1)
strCharB = Input(1, #1)
If strCharB = "]" Then Exit Do
strSectionTemp = strSectionTemp & strCharB
Loop
End If
If strSectionTemp = strSection Then
strCharA = Input(2, #1)
Exit Do
Else
strSectionTemp = ""
End If
Loop
On Error GoTo ErrReadFile
aa:
'下面这段程序是用来查找所要查找的字段的
strNameTemp = ""
Do While Not EOF(1)
strCharA = Input(1, #1)
If strCharA <> "=" Then
strNameTemp = strNameTemp & strCharA '得到名称
Else
Exit Do
End If
Loop
If strNameTemp = strName Then
Line Input #1, strreturn '如果找到与它匹配的字段名，就返回得到的值
Else
Line Input #1, strreturn '如果未找到与它匹配的字段名，就继续找
GoTo aa
End If
Close #1
GetProfile = strreturn
Exit Function
ErrReadFile:
Dim intRet As Integer
intRet = MsgBox("在文件中没有找到所要查找的字段", vbAbortRetryIgnore, "错误信息")
Select Case intRet
Case vbAbort
GetProfile = ""
Close #1
Exit Function
Case vbRetry
Resume
Case vbIgnore
Resume Next
End Select
ErrSrchSection:
MsgBox "节点未找到", vbOKOnly
GetProfile = ""
Close #1
End Function
Private Sub save()
Dim strPath As String
strPath = App.Path & "\config.ini"
If Check1.Value = 1 Then
If Option1(1).Value = True Then
setProfile strPath, "select", "servicegroup", Option1(1).Caption
Else
setProfile strPath, "select", "servicegroup", Option1(0).Caption
End If
setProfile strPath, "select", "服务器", Label2.Caption
setProfile strPath, "select", "掉线重联", Check2.Value
End If
End Sub
Function setProfile(strFileName As String, strSection As String, strName
As String, strSave As String) As Boolean
'这个函数是用来对INI文件进行写操作的
'函数说明:
'strFileName 是所要存储的文件名
'strSection 是这个文件中的一个节点名
'strName 是所要查找的字段名
'strSave 是所要替换字段值
Dim strTemp As String
Dim strfileback As String
Dim strreturn As String
strfileback = App.Path & "\config.tmp" '临时文件是用来存放中转信息的
Open strFileName For Input As #1
Open strfileback For Output As #2
Do While Not EOF(1)
Line Input #1, strTemp
strreturn = strTemp
Print #2, strreturn
If InStr(1, Trim(strTemp), "[") <> 0 Then
If InStr(1, Trim(strTemp), Trim(strSection)) <> 0 Then
Do While Not EOF(1)
Line Input #1, strTemp
If InStr(1, Trim(strTemp), Trim(strName)) <> 0 Then Exit Do '找到所要修改的字段值
strreturn = strTemp
Print #2, strreturn '拷贝不需要的字段值
Loop
strreturn = strName & "=" & strSave '修改
Print #2, strreturn
End If
End If
Loop
Close #1
Close #2
Open strfileback For Input As #1
Open strFileName For Output As #2
Do While Not EOF(1) And EOF(2)
Line Input #1, strreturn
Print #2, strreturn
Loop
Close #1
Close #2
End Function
Private Sub Check1_Click()
Dim strPath As String
strPath = App.Path & "\config.ini"
setProfile strPath, "select", "openhl", Check1.Value
End Sub
Private Sub Check2_Click()
Call save
End Sub
Private Sub Combo1_Click()
Label2.Caption = Combo1.List(Combo1.ListIndex)
Call save
End Sub
Private Sub Command1_Click() '
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "幻灵游侠" & " - " & Label2.Caption)
' If Timer5.Enabled = False And Timer6.Enabled = False Then
If StatusBar1.Panels(1).Text = "已连接网络" And hwnd <> 0 Then
Dim lR As Long
lR = ShellExecute(hwnd, "open", "HLHL.exe", "", "", 1) 'shellexecute(Me.hwnd,
"Open", sFile, "", "", vbNormalFocus)
If lR = 0 Then
MsgBox "启动HLHL.exe出错！请检查程序所放目录！"
Exit Sub
Else
Timer7.Enabled = True
Timer10.Enabled = True
End If
Else
Timer8.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Combo1.BackColor = &HFFFFFF
Dim lR As Long
If StatusBar1.Panels(1).Text = "无可用网络" Then '无可用网络时延时检测
Timer8.Enabled = True
Timer10.Enabled = False
Timer7.Enabled = False
Timer9.Enabled = False
Exit Sub
Else
lR = ShellExecute(hwnd, "open", "Play.exe", "61.131.96.84 9528", "", 1)
'shellexecute(Me.hwnd, "Open", sFile, "", "", vbNormalFocus)
If lR = 0 Then
MsgBox "启动Play.exe出错！请检查程序是否在同一目录！"
Exit Sub
Else
Timer1.Enabled = True '选择服务器组
Timer6.Enabled = True
End If
End If
End Sub
Private Sub Command3_Click()
Dim hwnd1, hwnd2, hwnd3, hwnd4, hwnd5 As Long
Sleep (10000) '停10秒让HLHL初始化!
hwnd1 = FindWindow("TFormMain", "?" + Label4.Caption)
If hwnd1 = "0" Then
Do
hwnd1 = FindWindow("TFormMain", "?" + Label4.Caption)
Loop Until hwnd1 > "0"
'''''''''''''''''''''''''''''
Sleep (500)
hwnd2 = FindWindowEx(hwnd1, 0, "TPanel", vbNullString)
hwnd3 = FindWindowEx(hwnd2, 0, "TRadioGroup", "工作模式")
hwnd4 = FindWindowEx(hwnd3, 0, "TGroupButton", "脚本")
PostMessage hwnd4, WM_LBUTTONDOWN, MK_LBUTTON, 0
PostMessage hwnd4, WM_LBUTTONUP, MK_LBUTTON, 0
'''''''''''''''''''''''''''''
Else
Sleep (500)
hwnd2 = FindWindowEx(hwnd1, 0, "TPanel", vbNullString)
hwnd3 = FindWindowEx(hwnd2, 0, "TRadioGroup", "工作模式")
hwnd4 = FindWindowEx(hwnd3, 0, "TGroupButton", "脚本")
PostMessage hwnd4, WM_LBUTTONDOWN, MK_LBUTTON, 0
PostMessage hwnd4, WM_LBUTTONUP, MK_LBUTTON, 0
End If
hwnd5 = FindWindowEx(hwnd1, 0, "TPanel", vbNullString)
hwnd5 = GetWindow(hwnd5, GW_HWNDNEXT)
hwnd5 = GetWindow(hwnd5, GW_HWNDNEXT)
hwnd5 = FindWindowEx(hwnd5, 0, "TComboBox", vbNullString)
SendMessage hwnd5, CB_SELECTSTRING, 0, ByVal Text2.Text
End Sub
Private Sub Timer1_Timer() '选择服务器组
Timer1.Enabled = False
Sleep (2000)
getBoxs1
Dim hwnd, uy As Long
hwnd = FindWindow(vbNullString, " - 选择游戏服务器组")
'uy = ShowWindow(hwnd, 1)
'SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
If hwnd = 0 Then
Timer1.Enabled = True
Exit Sub
End If
If hwnd <> 0 Then
If Option1(1).Value = True Then
mouseClick boxs(1).x, boxs(1).y
Else
mouseClick boxs(0).x, boxs(0).y
End If
Timer3.Enabled = True '选择服务器
Timer6.Enabled = True
End If
End Sub
Private Sub timer3_timer()
getBoxs2
Dim hwnd, uy, i As Long
hwnd = FindWindow(vbNullString, " - 选择游戏服务器")
'uy = ShowWindow(hwnd, 1)
'SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
If hwnd = 0 Then
Timer3.Enabled = True
Exit Sub
End If
If hwnd <> 0 Then
If Label2.Caption = "" Or Label2.Caption = "" Then
SelSevHL (1)
Else
If Label2.Caption = "" Or Label2.Caption = "" Then
SelSevHL (2)
Else
If Label2.Caption = "" Or Label2.Caption = "" Then
SelSevHL (3)
Else
If Label2.Caption = "" Or Label2.Caption = "" Then
SelSevHL (4)
'Else'后面的你自己加,只是个思路
'If Label2.Caption = "" Then
'mouseClick boxs(6).x, boxs(6).y
'Else
' If Label2.Caption = "" Then
' mouseClick boxs(7).x, boxs(7).y
'End If
'End If
End If
End If
End If
End If
Timer4.Enabled = True
Timer3.Enabled = False
Timer6.Enabled = True
End If
End Sub
Sub SelSevHL(i)
Dim x1_1 As Long
Dim y1_1 As Long
Dim xy1_1 As Long
Dim hwnd1 As Long
Select Case (i)
Case 1: x1_1 = 66: y1_1 = 189
Case 2: x1_1 = 366: y1_1 = 197
Case 3: x1_1 = 102: y1_1 = 268
Case 4: x1_1 = 367: y1_1 = 274
End Select
xy1_1 = Val("&H" & Hex(y1_1) + String(4 - Len(Hex(x1_1)), "0") +
Hex(x1_1))
hwnd1 = FindWindow("TServerForm", " - ")
If hwnd1 = "0" Then
Do
hwnd1 = FindWindow("TServerForm", "")
Loop Until hwnd1 > "0"
Sleep (500)
PostMessage hwnd1, WM_LBUTTONDOWN, MK_LBUTTON, xy1_1
PostMessage hwnd1, WM_LBUTTONUP, MK_LBUTTON, xy1_1
Else
Sleep (500)
PostMessage hwnd1, WM_LBUTTONDOWN, MK_LBUTTON, xy1_1
PostMessage hwnd1, WM_LBUTTONUP, MK_LBUTTON, xy1_1
End If
End Sub
Private Sub Timer4_Timer() '登录 -
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "登录 - ")
If hwnd = 0 Then
Timer4.Enabled = True
Exit Sub
End If
If hwnd <> 0 Then
Call inputpass
Timer4.Enabled = False
Timer5.Enabled = True
Timer6.Enabled = True
End If
End Sub
Private Sub Timer5_Timer() '
Dim hwnd, pHandle, pid, uy As Long
Dim RetVal As Long
Dim u As Integer
' getBoxs5
hwnd = FindWindow(vbNullString, "" & " - " & Label2.Caption)
If hwnd = 0 Then
If Check2.Value = 1 Then
Timer5.Enabled = False
Call Command2_Click
End If
End If
If StatusBar1.Panels(1).Text = "无可用网络" Then
Timer10.Enabled = False
Timer7.Enabled = False
Timer9.Enabled = False
For u = 0 To 10
uy = ShowWindow(hwnd, 1)
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
hwnd = FindWindow(vbNullString, "")
If hwnd <> 0 Then
' TerminateTask ""
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(1, False, pid)
TerminateProcess pHandle, 0
End If
Next u
If Check2.Value = 1 Then
Timer8.Enabled = True
Else
Exit Sub
Timer5.Enabled = False
End If
End If
End Sub
Private Sub Timer6_Timer() '防鼠标点击造成模拟点击无效
Dim hwnd As Long
If Timer1.Enabled = False And Timer3.Enabled = True Then
hwnd = FindWindow(vbNullString, "")
If hwnd <> 0 Then
Timer1.Enabled = True
Timer3.Enabled = False
Timer6.Enabled = False
End If
End If
If Timer3.Enabled = False And Timer4.Enabled = True Then
hwnd = FindWindow(vbNullString, "")
If hwnd <> 0 Then
Timer3.Enabled = True
Timer4.Enabled = False
Timer6.Enabled = False
End If
End If
If Timer4.Enabled = False And Timer5.Enabled = True Then
hwnd = FindWindow(vbNullString, "")
If hwnd <> 0 Then
Timer4.Enabled = True
Timer5.Enabled = False
Timer6.Enabled = False
End If
End If
hwnd = FindWindow(vbNullString, “" & " - " & Label2.Caption)
If hwnd <> 0 Then
Timer6.Enabled = False
Call Command1_Click '打开HLHL
End If
End Sub
Private Sub Timer7_Timer() '登录时打开HLHL
' getBoxs5
Dim hwnd1, hwnd2 As Long
hwnd1 = FindWindow(vbNullString, "欢乐幻灵 Ver0.89")
If hwnd1 = 0 Then
Timer7.Enabled = True
Else
hwnd2 = FindWindowEx(hwnd1, 0, "TButton", "确定")
PostMessage hwnd2, WM_LBUTTONDOWN, MK_LBUTTON, 0
PostMessage hwnd2, WM_LBUTTONUP, MK_LBUTTON, 0
Timer9.Enabled = True
Timer7.Enabled = False
End If
End Sub
Private Sub timer9_timer()
Sleep (1000)
'getBoxs6
Dim hwnd1, hwnd2, hwnd3, hwnd4, hwnd5 As Long
hwnd1 = FindWindow(vbNullString, "" & "?" & Label4.Caption)
Sleep (100)
hwnd2 = FindWindowEx(hwnd1, 0, "TPanel", vbNullString)
Sleep (100)
hwnd3 = FindWindowEx(hwnd2, 0, "TRadioGroup", "工作模式")
Sleep (100)
hwnd4 = FindWindowEx(hwnd2, 0, "TGroupButton", "脚本")
If hwnd = 0 Then
Timer9.Enabled = True
Else
PostMessage hwnd4, WM_LBUTTONDOWN, MK_LBUTTON, 0 '点脚本
PostMessage hwnd4, WM_LBUTTONUP, MK_LBUTTON, 0
Sleep (100)
hwnd5 = FindWindowEx(hwnd1, 0, "TPanel", vbNullString)
hwnd5 = GetWindow(hwnd5, GW_HWNDNEXT)
hwnd5 = GetWindow(hwnd5, GW_HWNDNEXT)
hwnd5 = FindWindowEx(hwnd5, 0, "TComboBox", vbNullString)
SendMessage hwnd5, CB_SELECTSTRING, 0, ByVal Text2.Text
' mouseClick boxs(12).x, boxs(12).y
' Sleep (100)
' mouseClick boxs(13).x, boxs(13).y
' Sleep (100)
' mouseClick boxs(14).x, boxs(14).y
Timer9.Enabled = False
Timer10.Enabled = True
End If
End Sub
Private Sub timer10_timer()
Dim hwnd, hwnd1 As Long
hwnd = FindWindow(vbNullString, "" & " - " & Label2.Caption)
hwnd1 = FindWindow(vbNullString, "" & "?" & Form1.Label4.Caption)
If hwnd <> 0 And hwnd1 = 0 And Timer7.Enabled = False And Timer9.Enabled
= False Then Call Command1_Click
End Sub
Private Sub Timer8_Timer() '登录时检查网络是不是联接
getBoxs4
Dim hwnd1, hwnd2 As Long
hwnd1 = FindWindow(vbNullString, "net")
hwnd2 = FindWindowEx(hwnd1, 0, "Button", "确定")
If StatusBar1.Panels(1).Text = "无可用网络" Then
Timer8.Enabled = True
Timer10.Enabled = False
Timer7.Enabled = False
Timer9.Enabled = False
If hwnd1 <> 0 Then
PostMessage hwnd2, WM_LBUTTONDOWN, MK_LBUTTON, 0
PostMessage hwnd2, WM_LBUTTONUP, MK_LBUTTON, 0
End If
Else
Timer1.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
If hwnd1 <> 0 Then
PostMessage hwnd2, WM_LBUTTONDOWN, MK_LBUTTON, 0
PostMessage hwnd2, WM_LBUTTONUP, MK_LBUTTON, 0
End If
If Check2.Value = 1 Then
Call Command2_Click
End If
Timer8.Enabled = False
End If
End Sub
Private Sub inputpass() '输入密码
Dim hwnd As Long
''''''''''''''''''''''''''''
hwnd = FindWindow(vbNullString, "")
If hwnd = "0" Then
Do
hwnd = FindWindow(vbNullString, "")
Loop Until hwnd > "0"
wait (500)
Editpass (hwnd)
Else
Editpass (hwnd)
End Sub
Sub Editpass(hwnd)
Dim login_pass As Long
Dim Passx(20) As String '定义密码数组
Dim No2 As Long
Dim LoopNo2 As Long '密码长度
Dim ascNo2 As Integer
login_pass = FindWindowEx(hwnd, 0, "TEdit", vbNullString) '密码框
PostMessage login_pass, WM_LBUTTONDOWN, MK_LBUTTON, 0 '点密码框
PostMessage login_pass, WM_LBUTTONUP, MK_LBUTTON, 0'点密码框
LoopNo2 = Len(Text1.Text)
No2 = 1
If LoopNo2 <> 0 Then '''输入密码
SetWindowPos hwnd, -1, 0, 0, 0, 0, 3
Do
Passx(No2) = Left$(Text1.Text, No2)
Passx(No2) = Right$(Passx(No2), 1)
ascNo2 = Asc(Passx(No2))
If ascNo2 > 57 Then
ascNo2 = ascNo2 - 32
End If
keybd_event ascNo2, 0, 0, 0
wait (100)
keybd_event ascNo2, 0, KEYEVENTF_KEYUP, 0
wait (100)
No2 = No2 + 1
LoopNo2 = LoopNo2 - 1
Loop Until LoopNo2 = 0
Else
MsgBox "请输入密码", vbOKOnly, "提示"
End If
PostMessage login_pass, WM_KEYDOWN, VK_RETURN, 0
PostMessage login_pass, WM_KEYUP, VK_RETURN, 0
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Set cn = New CNetConnect
StatusBar1.Panels(1).Text = "检查网络..."
Call FillList
Dim yp, ip As Integer
Dim jp As String
Me.Move (Screen.Width - Me.Width) * 2 / 2, (Screen.Height - Me.Height) /
4
Dim strPath As String
Dim group As String '
strPath = App.Path & "\config.ini"
'====================================================
group = GetProfile(strPath, "select", "servicegroup")
If group = "风之谷" Then
Option1(1).Value = True
Combo1.Clear
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Else
If group = "" Then
Option1(0).Value = True
Combo1.Clear
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Else
MsgBox "请检查config.ini的配置是否正确", vbOKOnly
End If
End If
'====================================================
Label2.Caption = GetProfile(strPath, "select", "服务器")
If group = "风之谷" Then
If Label2.Caption = "" Or Label2.Caption = "" _
Or Label2.Caption = "" Or Label2.Caption = "" Then
Combo1.Text = Label2.Caption
Else
Combo1.Text = ""
Label2.Caption = Combo1.Text
End If
Else
If Label2.Caption = "" Or Label2.Caption = "" _
Or Label2.Caption = "" Or Label2.Caption = "" Or _
Label2.Caption = "" Or Label2.Caption = "" Then
Combo1.Text = Label2.Caption
Else
Combo1.Text = ""
Label2.Caption = Combo1.Text
End If
End If
'====================================================
Check1.Value = GetProfile(strPath, "select", "openhl")
'====================================================
Check2.Value = GetProfile(strPath, "select", "")
ip = 3
jp = GetProfile(strPath, "select", "password")
If Len(jp) > 0 Then
For yp = 1 To Left(jp, 2)
Text1.Text = Text1.Text & (Chr(Mid(jp, ip, 3)))
ip = ip + 3
Next yp
End If
'Text1.Text = GetProfile(strPath, "select", "password")
End Sub
Private Sub Option1_Click(Index As Integer)
If Index = 1 Then
Combo1.Clear
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
If Label2.Caption = "" Or Label2.Caption = "" _
Or Label2.Caption = "" Or Label2.Caption = "" Then
Combo1.Text = Label2.Caption
Else
Combo1.Text = ""
Label2.Caption = Combo1.Text
End If
Else
Combo1.Clear
Option1(0).Value = True
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
If Label2.Caption = "" Or Label2.Caption = "" _
Or Label2.Caption = "" Or Label2.Caption = "Or _
Label2.Caption = "" Or Label2.Caption = "" Then
Combo1.Text = Label2.Caption
Else
Combo1.Text = ""
Label2.Caption = Combo1.Text
End If
End If
Call save
End Sub
Private Sub Text1_Change()
Dim yp, ip As Integer
Dim jp As String
If Check1.Value = 1 Then
Dim strPath As String
strPath = App.Path & "\config.ini"
If Len(Text1.Text) > 0 Then
For yp = 1 To Len(Text1.Text)
jp = jp & Format(Asc(Mid(Text1.Text, yp, 1)), "000")
Next yp
jp = Format(Len(Text1.Text), "00") & jp & "101254263107109" '对密码进行加密
setProfile strPath, "select", "password", jp
End If
End If
End Sub
Private Sub Timer2_Timer() '
If cn.Connected Then
StatusBar1.Panels(1).Text = "已连接网络"
Else
StatusBar1.Panels(1).Text = "无可用网络"
End If
Dim hwnd As Long
Dim pid As Long ' 储存进程标识符( Process Id )
Dim pHandle, hProcess As Long ' 储存进程句柄
hwnd = FindWindow(vbNullString, "" & " - " & Label2.Caption)
If hwnd <> 0 Then
StatusBar1.Panels(2).Text = ""
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
ReadProcessMemory pHandle, &H6C4EF0, str2, 20, 0& '
Label4.Caption = str2
Else
StatusBar1.Panels(2).Text = ""
End If
End Sub
Private Sub FillList()
Dim url As Variant
List1.Clear
For Each url In cn.KnownTestSites
List1.AddItem url
Next url
If List1.ListCount Then
List1.ListIndex = 0
End If
End Sub
@@@@@晕！直接绕过QQ本身自带的登录器从而达到防盗号的目的.腾讯QQ自动登录器编程和相关程序源码 有对你用？（Alasend收集整理,供学习参考）
|
