|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
空间 自动登录WEBQQ
//默认空间
变量 窗口句柄,图片序号,图片X坐标,图片Y坐标,dm,账号,密码
功能 初始化()
辅助.注册插件("rc:dm.dll",真)
dm=com("dm.dmsoft")
dm.SetPath(辅助.获取资源路径("rc:"))
窗口句柄=窗口.找到窗口("自动登录WEBQQ")
账号=自动登录WEBQQ.读配置("账号")
密码=自动登录WEBQQ.读配置("密码")
线程.开启("自动登录WEBQQ.正式开始","")
功能结束
功能 读配置(字段名)
保存文件=系统.获取程序路径()&"param.ini"
内容=辅助.读配置("配置",字段名,保存文件)
如果(字符串.长度(内容)<=0)
辅助.消息框("读取配置文件出错,请重新设置")
如果结束
返回 内容
功能结束
功能 正式开始()
变量 返回屏幕x坐标,返回屏幕y坐标
如果(网页.加载完成("浏览器0"))
图片序号= dm.FindPic(0,0,1440,900,"qq.bmp","102030",0.8,0,图片X坐标,图片Y坐标)
辅助.等待(200)
如果(图片X坐标>0)
鼠标.移动(图片X坐标+10,图片Y坐标+10)
辅助.等待(400)
鼠标.左键单击(1)
辅助.等待(800)
循环(真)
图片序号=图像.找图(0,0,1440,900,"rc:账号.bmp",000000,0.8,0,图片X坐标,图片Y坐标)
辅助.等待(500)
如果(图片X坐标>0)
鼠标.移动(图片X坐标+70,图片Y坐标+10)
辅助.等待(200)
鼠标.左键单击(1)
辅助.等待(200)
跳出
如果结束
循环结束
键盘.按下(17)
辅助.等待(100)
键盘.按键(65,1)
辅助.等待(100)
键盘.弹起(17)
辅助.等待(200)
键盘.发送字符串(账号)
辅助.等待(200)
键盘.按键(9,1)
辅助.等待(200)
键盘.发送字符串(密码)
辅助.等待(200)
键盘.按键(9,1)
辅助.等待(200)
键盘.按键(13,1)
否则
辅助.消息框("没有找到窗口")
如果结束
否则
辅助.消息框("未完成")
如果结束
功能结束
功能 按钮0_点击()
//线程.开启("自动登录WEBQQ.正式开始","")
功能结束
空间结束
|
|