【有源码】刚学TC，写了个QQ自动登录的脚本

mkrmb_0504

刚接触TC，不知道做什么，就写了一个多个QQ自动登录的小东西，因为不是很懂，所以暂时只实现前台模式。先看图：
下面是代码：（附件传不了，说太大了）

1. 空间 QQ自动登录_v1
   
2. //默认空间
   
3. 
   
4. 变量 线程句柄,程序路径
   
5. 变量 宽=1024,高=768
   
6. 变量 所有QQ号,aeskey="bmk_v1.0"
   
7. 
   
8. //程序初始化
   
9. 功能 初始化()
   
10.     程序路径=系统.获取程序路径()
    
11.     系统.获得分辨率(宽,高)
    
12.     QQ路径=辅助.读配置("QQ路径","路径",程序路径&"Config.ini")
    
13.     如果(字符串.长度(QQ路径) > 0)
    
14.         浏览框.设置("QQ路径",QQ路径)
    
15.     如果结束
    
16.     QQ自动登录_v1.刷新QQ列表数据()
    
17.     控件.有效("删除QQ账号",假)
    
18. 功能结束
    
19. 
    
20. //开始按钮_点击操作
    
21. 功能 开始_点击()
    
22.     线程句柄=线程.开启("QQ自动登录_v1.登录","")
    
23. 功能结束
    
24. 
    
25. 功能 登录()
    
26.     登录x=0,登录y=0
    
27.     QQ路径=浏览框.获得("QQ路径")
    
28.     辅助.写配置("QQ路径","路径",QQ路径,程序路径&"Config.ini")
    
29.    
    
30.     QQ列表,QQ数量=0
    
31.     所有QQ号=辅助.读配置("QQ信息","账号信息",程序路径&"Config.ini")
    
32.     字符串.分割(所有QQ号,"","",QQ列表)
    
33.     数组空间.大小(QQ列表,QQ数量)
    
34.     遍历(下标=0;下标<QQ数量;下标++)
    
35.         x1=0,y1=0,x2=0,y2=0
    
36.         QQ=进程.打开(QQ路径,0)
    
37.         进程.等待初始化(QQ,10000)
    
38.         循环(真)
    
39.             如果(图像.找图(0,0,宽,高,"rc:qq_id.bmp",000000,0.8,0,x1,y1)>=0)
    
40.                 跳出
    
41.             如果结束
    
42.         循环结束
    
43.         鼠标.移动(x1-10,y1)
    
44.         辅助.等待(500)
    
45.         鼠标.左键单击()
    
46.         键盘.按下(8)
    
47.         辅助.等待(500)
    
48.         循环(真)
    
49.             如果(图像.找图(0,0,宽,高,"rc:focus.bmp",000000,0.8,0,x2,y2)>=0)
    
50.                 键盘.弹起(8)
    
51.                 跳出
    
52.             如果结束
    
53.         循环结束
    
54.         辅助.等待(50)
    
55.         键盘.发送字符串(QQ自动登录_v1.获取QQ信息中的QQ号(QQ列表[下标]))
    
56.         辅助.等待(50)
    
57.         键盘.按键(9,1)
    
58.         辅助.等待(200)
    
59.         超级键盘.发送字符串(QQ自动登录_v1.获取QQ信息中的QQ密码(QQ列表[下标]))
    
60.         辅助.等待(500)
    
61.         循环(真)
    
62.             如果(图像.找图(0,0,宽,高,"rc:login.bmp",000000,1.0,0,登录x,登录y)>=0)
    
63.                 跳出
    
64.             如果结束
    
65.         循环结束
    
66.         鼠标.移动(登录x+50,登录y+10)
    
67.         鼠标.左键单击(1)
    
68.         辅助.等待(1000)
    
69.     遍历结束
    
70.     //登录完成退出程序
    
71.     QQ自动登录_v1.退出_点击()
    
72. 功能结束
    
73. 
    
74. //退出按钮_点击操作
    
75. 功能 退出_点击()
    
76.     辅助.退出()
    
77. 功能结束
    
78. 
    
79. 
    
80. 功能 加入QQ账号_点击()
    
81.     QQ账号=编辑框.获得文本("QQ账号")
    
82.     QQ密码=编辑框.获得文本("QQ密码")
    
83.     如果(字符串.长度(QQ账号)>0 && 字符串.长度(QQ密码)>0)
    
84.         如果(QQ自动登录_v1.QQ号是否重复(QQ账号))
    
85.             账号信息=字符串.aes加密(QQ账号&"([Q])"&字符串.aes加密(QQ密码,aeskey),aeskey)
    
86.             如果(字符串.长度(所有QQ号)>0)
    
87.                 所有QQ号=所有QQ号&"",""&账号信息
    
88.             否则
    
89.                 所有QQ号=账号信息
    
90.             如果结束
    
91.             如果(辅助.写配置("QQ信息","账号信息",所有QQ号,程序路径&"Config.ini"))
    
92.                 辅助.消息框("添加成功!")
    
93.                 QQ自动登录_v1.刷新QQ列表数据()
    
94.                 编辑框.设置文本("QQ账号","")
    
95.                 编辑框.设置文本("QQ密码","")
    
96.             如果结束
    
97.         否则
    
98.             //TODO:这里可以有其他操作
    
99.             辅助.消息框("QQ账号已存在")
    
100.         如果结束
     
101.     否则
     
102.         辅助.消息框("QQ账号和密码不能为空!")
     
103.     如果结束
     
104. 功能结束
     
105. 
     
106. 功能 刷新QQ列表数据()
     
107.     QQ列表,QQ数量=0
     
108.     所有QQ号=辅助.读配置("QQ信息","账号信息",程序路径&"Config.ini")
     
109.     如果(字符串.长度(所有QQ号)>0)
     
110.         字符串.分割(所有QQ号,"","",QQ列表)
     
111.         数组空间.大小(QQ列表,QQ数量)
     
112.         表格.设置大小("QQ账号列表",QQ数量+1,1)
     
113.         遍历(下标=0;下标<QQ数量;下标++)
     
114.             表格.设置内容("QQ账号列表",下标+1,0,QQ自动登录_v1.获取QQ信息中的QQ号(QQ列表[下标]))
     
115.         遍历结束
     
116.     否则
     
117.         表格.设置大小("QQ账号列表",1,1)
     
118.     如果结束
     
119.     返回 真
     
120. 功能结束
     
121. 
     
122. 功能 QQ号是否重复(QQ号)
     
123.     QQ列表,QQ数量
     
124.     所有QQ号=辅助.读配置("QQ信息","账号信息",程序路径&"Config.ini")
     
125.     字符串.分割(所有QQ号,"","",QQ列表)
     
126.     数组空间.大小(QQ列表,QQ数量)
     
127.     遍历(下标=0;下标<QQ数量;下标++)
     
128.         如果(QQ号==QQ自动登录_v1.获取QQ信息中的QQ号(QQ列表[下标]))
     
129.             返回 假
     
130.         如果结束
     
131.     遍历结束
     
132.     返回 真
     
133. 功能结束
     
134. 
     
135. 功能 获取QQ信息中的QQ号(QQ信息)
     
136.     QQ号
     
137.     QQ信息=字符串.aes解密(QQ信息,aeskey)
     
138.     字符串.分割(QQ信息,"([Q])",QQ号)
     
139.     返回 QQ号[0]
     
140. 功能结束
     
141. 
     
142. 功能 获取QQ信息中的QQ密码(QQ信息)
     
143.     QQ密码
     
144.     QQ信息=字符串.aes解密(QQ信息,aeskey)
     
145.     字符串.分割(QQ信息,"([Q])",QQ密码)
     
146.     QQ密码=字符串.aes解密(QQ密码[1],aeskey)
     
147.     返回 QQ密码
     
148. 功能结束
     
149. 
     
150. 
     
151. 功能 删除QQ账号_点击()
     
152.     选中行,选中列,QQ号,QQ列表,QQ数量
     
153.     表格.焦点项("QQ账号列表",选中行,选中列)
     
154.     QQ号=表格.获得内容("QQ账号列表",选中行,选中列)
     
155.     如果(字符串.长度(QQ号)>0)
     
156.         所有QQ号=辅助.读配置("QQ信息","账号信息",程序路径&"Config.ini")
     
157.         字符串.分割(所有QQ号,"","",QQ列表)
     
158.         数组空间.删除指定项(QQ列表,选中行-1)
     
159.         数组空间.大小(QQ列表,QQ数量)
     
160.         所有QQ号=""
     
161.         遍历(下标=0;下标<QQ数量;下标++)
     
162.             如果(下标<QQ数量-1)
     
163.                 所有QQ号&=QQ列表[下标]&"",""
     
164.             否则
     
165.                 所有QQ号&=QQ列表[下标]
     
166.             如果结束
     
167.         遍历结束
     
168.         如果(辅助.写配置("QQ信息","账号信息",所有QQ号,程序路径&"Config.ini"))
     
169.             辅助.消息框("删除成功!")
     
170.             QQ自动登录_v1.刷新QQ列表数据()
     
171.         如果结束
     
172.     否则
     
173.     如果结束
     
174. 功能结束
     
175. 
     
176. 
     
177. 功能 QQ账号列表_左键单击()
     
178.     选中行,选中列
     
179.     表格.焦点项("QQ账号列表",选中行,选中列)
     
180.     如果(选中行>0)
     
181.         控件.有效("删除QQ账号",真)
     
182.     否则
     
183.         控件.有效("删除QQ账号",假)
     
184.     如果结束
     
185. 功能结束
     
186. 
     
187. 空间结束
     
188. //空间结束语句

复制代码

星.月

写的不错，继续加油

zxw445

强大啊，，，，厉害了

lawson

{:soso_e179:}

zing428

不错