好久没发帖了,正好有人问前台怎么多开,正好有人问临界区怎么用,正好手上有一个过期的项目,就把部分源码发出来给大家做个参考...
多线程前台多开(示例仅支持双开)
- 功能 生产制作()
- 临界区对象=线程.创建临界区()
- 返回串,数量,x,y,窗口句柄=数组[],线程句柄=数组[]
- 句柄 = 系统.枚举("AION Client",0)
- 如果(句柄 == "")
- 返回 0
- 如果结束
- 字符串.分割(句柄,"|",窗口句柄)
- 数组空间.大小(窗口句柄,数量)
- 线程句柄=数组空间.重定义(线程句柄,真,数量)
- 角色ID=数组空间.重定义(角色ID,真,数量)
- 调试输出(数量)
- 遍历(i=0;i<数量;i++)
- 窗口.设置位置(窗口句柄[i],i*808,0)
- 窗口.激活(窗口句柄[i])
- 线程句柄[i]=线程.开启("主程序.自动登录",i)
- 遍历结束
- 功能结束
- 功能 自动登录(索引)
- 账号,密码,范围1,范围2,x,y,编号
- 窗口.获取位置(窗口句柄[索引],范围1,范围2)
- 循环(线程控制)
- 辅助.等待(1000)
- 线程.进入临界区(临界区对象)
- 编号 = 主程序.获取账号密码(账号,密码)
- 主程序.写日志(索引,"账号:"&账号&"密码:"&密码&"编号:"&编号)
- 如果(账号=="")
- 调试输出("全部账号登录完毕")
- 主程序.重新排队()
- 如果结束
- 调试输出("当前编号:"&编号)
- 表格.设置内容("表格0",编号,3,"登录中")
- 主程序.写日志(索引,"账号编号:"&编号&"开始登录")
- 角色ID[索引] = 1
- 辅助.等待(1000)
- 窗口.激活(窗口句柄[索引])
- 辅助.等待(1000)
- 循环(图像.找图(范围1,范围2,范围1+808,范围2+717,"rc:可以登录.bmp",#151515,0.9,0,x,y))
- <p>功能 重新排队()
- 行,列
- 表格.大小("表格0",行,列)
- 遍历(i=1;i<行-1;i++)
- 内容 = 表格.获得内容("表格0",i,3)
- 如果(内容 == "制作完毕:3")
- 表格.设置内容("表格0",i,3,"排队等待中")
- 否则
- 如果(内容 == "")
- 跳出
- 如果结束
- 如果结束
- 遍历结束
- 功能结束
- 功能 获取账号密码(&账号,&密码)
- 行,列
- 表格.大小("表格0",行,列)
- 遍历(i=1;i<行-1;i++)
- 内容 = 表格.获得内容("表格0",i,3)
- 如果(内容 == "排队等待中")
- 账号=表格.获得内容("表格0",i,1)
- 密码=表格.获得内容("表格0",i,2)
- 返回 i
- 如果结束
- 遍历结束
- 账号=""
- 密码=""
- 返回 0
- 功能结束
|
[复制链接]
/2 
发表于 2014-2-24 15:04:45
