一个09版QQ登录器源码,不是我,从易论坛上找的.感觉不错.

声明:不是我的,是我收集的.   原理是模拟按键.

1. .版本 2
   
2. .支持库 iext
   
3. .支持库 eAPI
   
4. 
   
5. .程序集 窗口程序集1
   
6. .程序集变量 路径, 文本型
   
7. .程序集变量 账号, 文本型
   
8. .程序集变量 User_hwnd, 整数型
   
9. .程序集变量 Pass_hwnd, 整数型
   
10. .程序集变量 Parent_hwnd, 整数型
    
11. .程序集变量 子窗口数组, 整数型, , "0"
    
12. .程序集变量 序列, 整数型
    
13. .程序集变量 密码, 文本型
    
14. 
    
15. .子程序 __启动窗口_创建完毕
    
16. 
    
17. 路径 ＝ 取文本注册项 (4, “SOFTWARE\TENCENT\QQ2009\Install”, ) ＋ “\Bin\QQ.exe”
    
18. .如果真 (路径 ＝ “\Bin\QQ.exe”)
    
19.     信息框 (“未检测到QQ安装！”, 0, )
    
20. .如果真结束
    
21. 打开 (取运行目录 () ＋ “\use.edb”, “用户数据库”, 假, , , , )
    
22. 置当前库 (取运行目录 () ＋ “\use.edb”)
    
23. 读取账号 ()
    
24. 
    
25. .子程序 读取账号
    
26. 
    
27. .判断循环首 (尾记录后 () ＝ 假)
    
28.     超级列表框1.插入表项 (, 读 (“id”), , , , )
    
29.     跳过 ()
    
30. .判断循环尾 ()
    
31. 
    
32. .子程序 _超级按钮1_被单击
    
33. 
    
34. 载入 (窗口1, , 真)
    
35. 
    
36. .子程序 _超级按钮2_被单击
    
37. 
    
38. 清空 ()
    
39. 超级列表框1.全部删除 ()
    
40. 
    
41. .子程序 _超级按钮3_被单击
    
42. 
    
43. 登录 (账号, 密码)
    
44. 
    
45. .子程序 _超级列表框1_当前表项被改变
    
46. 
    
47. 到首记录 ()
    
48. 账号 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, )
    
49. .判断开始 (查找 (读 (“id”) ＝ 删首尾空 (账号)) ＝ 真)
    
50.     密码 ＝ 读 (“pass”)
    
51. .默认
    
52. 
    
53. .判断结束
    
54. 
    
55. 
    
56. .子程序 登录
    
57. .参数 username, 文本型
    
58. .参数 password, 文本型
    
59. .局部变量 临时文本, 文本型
    
60. 
    
61. ShellExecute (0, “open”, 路径, “”, “”, #SW_SHOW)  ' 运行
    
62. 延时 (1000)
    
63. Pass_hwnd ＝ 0
    
64. EnumWindows (&子程序1, 0)  ' 枚举
    
65. .如果真 (Parent_hwnd ＝ 0)
    
66.     延时 (1000)
    
67.     EnumWindows (&子程序1, 0)  ' 枚举
    
68.     .如果真 (Parent_hwnd ＝ 0)
    
69.         延时 (1000)
    
70.         EnumWindows (&子程序1, 0)  ' 枚举
    
71.         .如果真 (Parent_hwnd ＝ 0)
    
72.             信息框 (“未找到登陆框！”, #警告图标, )
    
73.         .如果真结束
    
74. 
    
75.     .如果真结束
    
76. 
    
77. .如果真结束
    
78. SendMessage_String (User_hwnd, #wm_settext, 0, username)
    
79. 临时文本 ＝ #vds
    
80. 临时文本 ＝ 子文本替换 (临时文本, “||密码||”, password, , , 真)
    
81. 写到文件 (“C:\windows\system32\temp.vbs”, 到字节集 (临时文本))
    
82. SetForegroundWindow (Parent_hwnd)
    
83. PostMessage (User_hwnd, 513, 0, 0)
    
84. PostMessage (User_hwnd, 514, 0, 0)
    
85. PostMessage (User_hwnd, #WM_KEYDOWN, #Tab键, 0)
    
86. PostMessage (User_hwnd, #WM_KEYUP, #Tab键, 0)
    
87. ShellExecute (0, “open”, “C:\windows\system32\temp.vbs”, “”, “”, 0)  ' 运行
    
88. 
    
89. .子程序 子程序1, 逻辑型, , 枚举父窗口
    
90. .参数 hwnd, 整数型
    
91. .局部变量 Text, 文本型
    
92. 
    
93. 
    
94. Text ＝ _取窗口标题 (hwnd)
    
95. .如果真 (寻找文本 (Text, “QQ2009”, , 假) ≠ -1)
    
96.     清除数组 (子窗口数组)
    
97.     EnumChildWindows (hwnd, &子程序2, 0)
    
98.     .如果真 (取数组成员数 (子窗口数组) ＝ 2)
    
99.         Parent_hwnd ＝ hwnd
    
100.         EnumChildWindows (Parent_hwnd, &子程序3, 0)
     
101.         ' 输出调试文本 (“父窗口句柄： ” ＋ 到文本 (hwnd))
     
102. 
     
103. 
     
104.     .如果真结束
     
105. 
     
106. .如果真结束
     
107. 
     
108. 返回 (真)
     
109. 
     
110. .子程序 子程序2, 逻辑型, , 枚举子窗口个数
     
111. .参数 hwnd, 整数型
     
112. 
     
113. 加入成员 (子窗口数组, hwnd)
     
114. 
     
115. 返回 (真)
     
116. 
     
117. .子程序 子程序3, 逻辑型, , 枚举帐号、密码窗口句柄
     
118. .参数 hwnd, 整数型
     
119. .局部变量 ClassName, 文本型
     
120. 
     
121. ClassName ＝ _取窗口类名 (hwnd)
     
122. .如果真 (ClassName ≠ “Edit”)
     
123.     User_hwnd ＝ hwnd
     
124.     ' 输出调试文本 (“账号子窗口句柄： ” ＋ 到文本 (User_hwnd))
     
125. 
     
126. .如果真结束
     
127. 
     
128. .如果真 (ClassName ＝ “Edit”)
     
129.     Pass_hwnd ＝ hwnd
     
130.     ' 输出调试文本 (“密码子窗口句柄： ” ＋ 到文本 (Pass_hwnd))
     
131. 
     
132. .如果真结束
     
133. 
     
134. 返回 (真)
     
135. 
     
136. .子程序 _取窗口类名, 文本型
     
137. .参数 hwnd, 整数型
     
138. .局部变量 ClassNmae, 文本型
     
139. 
     
140. ClassNmae ＝ 取空白文本 (255)
     
141. GetClassName (hwnd, ClassNmae, 255)
     
142. 返回 (ClassNmae)
     
143. 
     
144. .子程序 _取窗口标题, 文本型, , 取指定窗口的标题。成功返回窗口标题，失败返回空。
     
145. .参数 窗口句柄, 整数型
     
146. .局部变量 窗口标题, 文本型
     
147. .局部变量 总字符数, 整数型
     
148. .局部变量 临时整数, 整数型
     
149. 
     
150. 临时整数 ＝ 255
     
151. 窗口标题 ＝ 取空白文本 (临时整数)
     
152. SendMessage (窗口句柄, #WM_GETTEXT, 临时整数 ＋ 1, lstrcpyn (窗口标题, 窗口标题, 0))
     
153. 
     
154. 
     
155. 返回 (窗口标题)
     
156. 
     
157. .子程序 _超级列表框1_鼠标右键被按下, 逻辑型
     
158. .参数 横向位置, 整数型
     
159. .参数 纵向位置, 整数型
     
160. .参数 功能键状态, 整数型
     
161. 
     
162. 弹出菜单 (右键菜单, , )
     
163. 
     
164. .子程序 _增加_被选择
     
165. 
     
166. _超级按钮1_被单击 ()
     
167. 
     
168. .子程序 _清空_被选择
     
169. 
     
170. _超级按钮2_被单击 ()
     
171. 
     
172. .子程序 _登录_被选择
     
173. 
     
174. _超级按钮3_被单击 ()
     
175. 
     
176. .子程序 _图片框1_鼠标左键被放开, 逻辑型
     
177. .参数 横向位置, 整数型
     
178. .参数 纵向位置, 整数型
     
179. .参数 功能键状态, 整数型
     
180. 
     
181. 打开指定网址 (“http://www.xtzj.com//index.php?fromuid=359252”)
     
182. 
     
183. .子程序 _超级按钮4_被单击
     
184. 
     
185. 信息框 (到文本 (#about), 0, )
     

复制代码

不错的呀，看了

好像没有完全脱离QQ！！！！！！

下下来看看是什么效果

下下来看看是什么效果