|
|
马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
#import "dm.dmsoft" dm
空间 立刻咯棵
整型 图片X坐标,图片Y坐标,图像序号
整型 intX,intY
整型 窗口句柄,长度
字符型[][] 账号密码
功能 逻辑型 读取账号密码()
长度 = 列表框.得到个数("列表框")
如果(长度==0)
辅助.消息框("列表中没有账号信息！")
返回 假
如果结束
字符型[] 返回值=字符型[2]
//整型 计数=0
//循环(真)
遍历(整型 i=0;i<1;i++)
//字符型 内容 = 列表框.获得文本
字符型 内容 = 列表框.获得文本("列表框",i)
字符串.分割(内容,"|",返回值)
账号密码[0] = 返回值[0]
账号密码[1] = 返回值[1]
//计数 = 计数 + 1
//如果(计数>=长度)
//跳出
//如果结束
//循环结束
//计数=0
//编辑框.获得文本("编辑框0","账号")
//循环(真)
辅助.消息框("账号:"+账号密码[0] + "密码"+账号密码[1])
//计数 = 计数 + 1
//如果(计数>=长度)
//跳出
//如果结束
//循环结束
遍历结束
返回 真
功能结束
功能 逻辑型 打开客户端()
整型 返回值
整型 列表框,x,y
dm.SetPath(辅助.获取资源路径("rc:"))
//dm.SetDict(0,"字库2.txt")
字符型 内容=浏览框.获得("浏览框1")
如果(内容=="")
辅助.消息框("请输入游戏客户端路径")
如果结束
整型 进程句柄=进程.打开(内容)
内容=浏览框.获得("浏览框1")
辅助.等待(4000)
遍历(整型 i=0;i<1;i++)
循环(真)
返回值=dm.FindPic(0,0,2000,2000,"打开2.bmp","000000",0.9,0,x,y)
如果(返回值==0)
跳出
//否则
//辅助.消息框("On")
如果结束
循环结束
鼠标.移动(755,570)
辅助.等待(100)
鼠标.右键单击(1)
//辅助.消息框("OK")
辅助.等待(1000)
内容 = 列表框.获得文本("列表框",i)
键盘.发送字符串(内容)
dm.KeyPress(9)
辅助.等待(1000)
内容 = 列表框.获得文本("列表框",i)
键盘.发送字符串(内容)
遍历结束
返回 真
功能结束
功能 逻辑型 导入账号密码_点击()
字符型 内容=浏览框.获得("浏览框0")
如果(str.strleng(内容)==0)
辅助.消息框("请导入账号密码")
return false
如果结束
int 文件句柄=文件.打开(内容)
如果(文件句柄!=0)
循环(真)
字符型 文本 = 文件.读一行(文件句柄)
如果(str.strleng(文本)==0)
跳出
如果结束
列表框.增加文本("列表框",文本)
循环结束
如果结束
返回 真
功能结束
功能 逻辑型 保存文件_点击()
字符型 路径=系统.获取程序路径()
辅助.写配置("游戏数据","账号路径",浏览框.获得("浏览框0"),路径+".//confing.ini")
辅助.写配置("游戏数据","账号路径",浏览框.获得("浏览框1"),路径+".//confing.ini")
返回 真
功能结束
功能 逻辑型 初始()
字符型 路径=系统.获取程序路径()
浏览框.获得("浏览框0",辅助.读配置("游戏数据","账号路径",路径+".//confing.ini"))
浏览框.获得("浏览框1",辅助.读配置("游戏数据","账号路径",路径+".//confing.ini"))
返回 真
功能结束
功能 逻辑型 热键0_热键()
账号密码=字符型[150][2]
//立刻咯棵.读取账号密码()
整型 线程句柄=线程.开启("立刻咯棵.打开客户端","")
返回 真
功能结束
空间结束
|
|
/2 
发表于 2013-1-26 18:56:23
收藏
支持
反对
发表于 2013-1-26 21:21:55
楼主
