【有源码】刚学TC，写了个QQ自动登录的脚本 - TC官方合作论坛

空间 QQ自动登录_v1
//默认空间
变量线程句柄,程序路径
变量宽=1024,高=768
变量所有QQ号,aeskey="bmk_v1.0"
//程序初始化
功能初始化()
程序路径=系统.获取程序路径()
系统.获得分辨率(宽,高)
QQ路径=辅助.读配置("QQ路径","路径",程序路径&"Config.ini")
如果(字符串.长度(QQ路径) > 0)
浏览框.设置("QQ路径",QQ路径)
如果结束
QQ自动登录_v1.刷新QQ列表数据()
控件.有效("删除QQ账号",假)
功能结束
//开始按钮_点击操作
功能开始_点击()
线程句柄=线程.开启("QQ自动登录_v1.登录","")
功能结束
功能登录()
登录x=0,登录y=0
QQ路径=浏览框.获得("QQ路径")
辅助.写配置("QQ路径","路径",QQ路径,程序路径&"Config.ini")
QQ列表,QQ数量=0
所有QQ号=辅助.读配置("QQ信息","账号信息",程序路径&"Config.ini")
字符串.分割(所有QQ号,"\",\"",QQ列表)
数组空间.大小(QQ列表,QQ数量)
遍历(下标=0;下标<QQ数量;下标++)
x1=0,y1=0,x2=0,y2=0
QQ=进程.打开(QQ路径,0)
进程.等待初始化(QQ,10000)
循环(真)
如果(图像.找图(0,0,宽,高,"rc:qq_id.bmp",000000,0.8,0,x1,y1)>=0)
跳出
如果结束
循环结束
鼠标.移动(x1-10,y1)
辅助.等待(500)
鼠标.左键单击()
键盘.按下(8)
辅助.等待(500)
循环(真)
如果(图像.找图(0,0,宽,高,"rc:focus.bmp",000000,0.8,0,x2,y2)>=0)
键盘.弹起(8)
跳出
如果结束
循环结束
辅助.等待(50)
键盘.发送字符串(QQ自动登录_v1.获取QQ信息中的QQ号(QQ列表[下标]))
辅助.等待(50)
键盘.按键(9,1)
辅助.等待(200)
超级键盘.发送字符串(QQ自动登录_v1.获取QQ信息中的QQ密码(QQ列表[下标]))
辅助.等待(500)
循环(真)
如果(图像.找图(0,0,宽,高,"rc:login.bmp",000000,1.0,0,登录x,登录y)>=0)
跳出
如果结束
循环结束
鼠标.移动(登录x+50,登录y+10)
鼠标.左键单击(1)
辅助.等待(1000)
遍历结束
//登录完成退出程序
QQ自动登录_v1.退出_点击()
功能结束
//退出按钮_点击操作
功能退出_点击()
辅助.退出()
功能结束
功能加入QQ账号_点击()
QQ账号=编辑框.获得文本("QQ账号")
QQ密码=编辑框.获得文本("QQ密码")
如果(字符串.长度(QQ账号)>0 && 字符串.长度(QQ密码)>0)
如果(QQ自动登录_v1.QQ号是否重复(QQ账号))
账号信息=字符串.aes加密(QQ账号&"([Q])"&字符串.aes加密(QQ密码,aeskey),aeskey)
如果(字符串.长度(所有QQ号)>0)
所有QQ号=所有QQ号&"\",\""&账号信息
否则
所有QQ号=账号信息
如果结束
如果(辅助.写配置("QQ信息","账号信息",所有QQ号,程序路径&"Config.ini"))
辅助.消息框("添加成功!")
QQ自动登录_v1.刷新QQ列表数据()
编辑框.设置文本("QQ账号","")
编辑框.设置文本("QQ密码","")
如果结束
否则
//TODO:这里可以有其他操作
辅助.消息框("QQ账号已存在")
如果结束
否则
辅助.消息框("QQ账号和密码不能为空!")
如果结束
功能结束
功能刷新QQ列表数据()
QQ列表,QQ数量=0
所有QQ号=辅助.读配置("QQ信息","账号信息",程序路径&"Config.ini")
如果(字符串.长度(所有QQ号)>0)
字符串.分割(所有QQ号,"\",\"",QQ列表)
数组空间.大小(QQ列表,QQ数量)
表格.设置大小("QQ账号列表",QQ数量+1,1)
遍历(下标=0;下标<QQ数量;下标++)
表格.设置内容("QQ账号列表",下标+1,0,QQ自动登录_v1.获取QQ信息中的QQ号(QQ列表[下标]))
遍历结束
否则
表格.设置大小("QQ账号列表",1,1)
如果结束
返回真
功能结束
功能 QQ号是否重复(QQ号)
QQ列表,QQ数量
所有QQ号=辅助.读配置("QQ信息","账号信息",程序路径&"Config.ini")
字符串.分割(所有QQ号,"\",\"",QQ列表)
数组空间.大小(QQ列表,QQ数量)
遍历(下标=0;下标<QQ数量;下标++)
如果(QQ号==QQ自动登录_v1.获取QQ信息中的QQ号(QQ列表[下标]))
返回假
如果结束
遍历结束
返回真
功能结束
功能获取QQ信息中的QQ号(QQ信息)
QQ号
QQ信息=字符串.aes解密(QQ信息,aeskey)
字符串.分割(QQ信息,"([Q])",QQ号)
返回 QQ号[0]
功能结束
功能获取QQ信息中的QQ密码(QQ信息)
QQ密码
QQ信息=字符串.aes解密(QQ信息,aeskey)
字符串.分割(QQ信息,"([Q])",QQ密码)
QQ密码=字符串.aes解密(QQ密码[1],aeskey)
返回 QQ密码
功能结束
功能删除QQ账号_点击()
选中行,选中列,QQ号,QQ列表,QQ数量
表格.焦点项("QQ账号列表",选中行,选中列)
QQ号=表格.获得内容("QQ账号列表",选中行,选中列)
如果(字符串.长度(QQ号)>0)
所有QQ号=辅助.读配置("QQ信息","账号信息",程序路径&"Config.ini")
字符串.分割(所有QQ号,"\",\"",QQ列表)
数组空间.删除指定项(QQ列表,选中行-1)
数组空间.大小(QQ列表,QQ数量)
所有QQ号=""
遍历(下标=0;下标<QQ数量;下标++)
如果(下标<QQ数量-1)
所有QQ号&=QQ列表[下标]&"\",\""
否则
所有QQ号&=QQ列表[下标]
如果结束
遍历结束
如果(辅助.写配置("QQ信息","账号信息",所有QQ号,程序路径&"Config.ini"))
辅助.消息框("删除成功!")
QQ自动登录_v1.刷新QQ列表数据()
如果结束
否则
如果结束
功能结束
功能 QQ账号列表_左键单击()
选中行,选中列
表格.焦点项("QQ账号列表",选中行,选中列)
如果(选中行>0)
控件.有效("删除QQ账号",真)
否则
控件.有效("删除QQ账号",假)
如果结束
功能结束
空间结束
//空间结束语句

复制代码