| 
 | 
	
5#
 
 
 楼主 |
发表于 2015-2-2 16:00:56
|
只看该作者
 
 
 
 
空间 界面 
 
变量 dm数组=数组[] 
变量 线程句柄数组=数组[] 
变量 窗口句柄数组=数组[] 
 
//据观察bindwindow 窗口句柄数组需要一个下标[],且需要一个窗口句柄数组 
功能 开始_点击(下标) 
    dm数组[下标].SetPath(辅助.获取资源路径("rc:"))//设置全局路径 
    dm数组[下标].SetDict(0,"dm_soft.txt") 
    dm_ret = dm数组[下标].BindWindow(窗口句柄数组[下标],"dx","dx","dx",0)//dx模式更实用 
     
    循环(真) 
        界面.初始任务(下标) 
    循环结束 
     
功能结束 
 
 
功能 初始任务(下标) 
     
    intX,intY 
     
    s = dm数组[下标].Ocr(0,0,1024,768,"f34d4d-0A2A0A",1.0) 
     
     
    遍历(i=1;i<30;i++) 
        选择(i) 
            条件 1: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"1.bmp","000000",1.0,0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                返回 i 
            如果结束 
             
            条件 2: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"2.bmp","000000",1.0,0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                返回 i 
            如果结束 
             
            条件 3: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"3.bmp","000000",1.0,0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                返回 i 
            如果结束 
             
            条件 4: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"4.bmp","000000",1.0,0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                返回 i 
            如果结束 
             
            条件 5: 
            如果 (dm数组[下标].FindStr(0,0,1024,768,"确定","d3c998-0A2A0A",1.0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX+10,intY+5) 
                辅助.等待(1000) 
                dm数组[下标].LeftClick() 
                返回 i 
            如果结束 
             
            条件 6: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"5.bmp","000000",1.0,0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                返回 i 
            如果结束 
             
             
            条件 7: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"6.bmp","000000",1.0,0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                返回 i 
            如果结束 
             
            条件 8: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"7.bmp","000000",1.0,0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                返回 i 
            如果结束 
             
            条件 9: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"8.bmp","000000",1.0,0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                返回 i 
            如果结束 
             
             
            条件 10: 
            如果 (dm数组[下标].FindStr(0,0,1024,768,"水月仙","fa4646-0A2A0A",1.0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                辅助.等待(4000) 
                返回 i 
            如果结束 
             
             
            //29-30转折点 
            条件 11: 
            如果 (dm数组[下标].FindStr(0,0,1024,768,"答题","ffffff-0A2A0A",1.0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX+18,intY+25) 
                dm数组[下标].LeftClick() 
                 
                返回 i 
                 
                 
            如果结束 
             
             
            条件 12: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"13.bmp","000000",1.0,0,intX,intY)>=0) 
                 
                dm数组[下标].MoveTo(500,500) 
                dm数组[下标].LeftClick() 
                 
                返回 i 
            如果结束 
             
             
            条件 13: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"10.bmp","000000",1.0,0,intX,intY)>=0) 
                 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                 
                返回 i 
            如果结束 
             
            条件 14: 
            如果 (dm数组[下标].FindPic(0,0,1024,768,"11.bmp","000000",1.0,0,intX,intY)>=0) 
                 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                 
                返回 i 
            如果结束 
             
             
            条件 15: 
            如果 (dm数组[下标].FindStr(0,0,1024,768,"正确答案","d3c998-0A2A0A",1.0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX-50,intY+5) 
                辅助.等待(1000) 
                dm数组[下标].LeftClick() 
                dm数组[下标].MoveTo(intX,intY+200) 
                返回 i 
            如果结束 
             
             
            //判断是否有怪 
            条件 16: 
            如果 (dm数组[下标].FindStr(0,0,1024,768,"回合","fee078-120F08",1.0,intX,intY)>=0) 
                //判断是否自动回合 
                如果 (dm数组[下标].FindStr(0,0,1024,768,"回合剩余","ffffff-0A2A0A",1.0,intX,intY)>=0) 
                    辅助.等待(5000) 
                    返回 i 
                否则 
                    dm数组[下标].KeyPress(116)   
                    辅助.等待(5000) 
                    返回 i 
                如果结束 
                 
            如果结束 
             
             
            //任务s=任务名称=字符 
            条件 17: 
            如果 (dm数组[下标].FindStr(0,0,1024,768,s,"f34d4d-0A2A0A",1.0,intX,intY)>=0) 
                dm数组[下标].MoveTo(intX,intY) 
                dm数组[下标].LeftClick() 
                辅助.等待(500) 
                dm数组[下标].MoveTo(intX,intY+100) 
                辅助.等待(4000) 
                返回 i 
            如果结束 
             
             
            默认: 
            dm数组[下标].MoveTo(500,500) 
            dm数组[下标].LeftClick() 
             
             
        选择结束 
         
    遍历结束 
     
     
功能结束 
 
 
功能 热键0_热键() 
     
     
    变量 返回句柄,数量 
    句柄串=系统.枚举("大话西游3",0) 
    字符串.分割(句柄串,"|",返回句柄) 
    数组空间.大小(返回句柄,数量) 
     
     
     
    遍历(i=0;i<数量;i++) 
        数组空间.增加(窗口句柄数组,返回句柄) 
         
        集参数值=返回句柄&","&i 
         
        大漠对象=com("dm.dmsoft") 
        数组空间.增加(dm数组,大漠对象) 
        线程句柄=线程.开启("界面.开启线程",集参数值) 
        数组空间.增加(线程句柄数组,线程句柄) 
         
         
    遍历结束 
     
功能结束 
 
 
 
功能 大漠解绑(下标) 
     
     
     
     
功能结束 
 
 
功能 热键1_热键() 
    变量 数量     
    数组空间.大小(窗口句柄数组,数量) 
     
     
    遍历(i=0;i<数量;i++) 
         
        dm_ret = dm数组.UnBindWindow() 
        线程.关闭(线程句柄数组) 
    遍历结束 
     
    数组空间.清空(dm数组) 
    数组空间.清空(线程句柄数组) 
    数组空间.清空(窗口句柄数组) 
     
     
功能结束 
 
功能 开启线程(参数) 
    变量 参数数组    
    字符串.分割(参数,",",参数数组) 
    窗口句柄=参数数组[0] 
    下标=参数数组[1] 
     
    界面.开始_点击(下标) 
     
功能结束 
 
 
 
 
功能 初始化() 
    多开=辅助.读配置("RealmName","多开","C:\\Config.ini") 
    游戏=辅助.读配置("RealmName","游戏","C:\\Config.ini") 
    账号=辅助.读配置("RealmName","账号","C:\\Config.ini") 
    打码账号=辅助.读配置("RealmName","打码账号","C:\\Config.ini") 
    打码密码=辅助.读配置("RealmName","打码密码","C:\\Config.ini") 
    编辑框.设置文本("编辑框2多开",多开) 
    浏览框.设置("浏览框0游戏",游戏)       
    浏览框.设置("浏览框1账号",账号) 
    编辑框.设置文本("编辑框0打码账号",打码账号) 
    编辑框.设置文本("编辑框1打码密码",打码密码) 
     
     
    遍历(i=0;i<5;i++) 
        任务=辅助.读配置("RealmName","任务"&i,"C:\\Config.ini")     
        列表框.插入文本("列表框1执行任务",任务,i)       
    遍历结束 
     
    //初始化注册插件 
    是否成功=辅助.注册插件("rc:\\dm.dll",真) 
    如果(是否成功) 
         
    否则 
        辅助.消息框("插件注册失败") 
    如果结束 
     
     
功能结束 
 
 
功能 按钮0保存设置_点击() 
    变量 任务 
    多开=编辑框.获得文本("编辑框2多开") 
    游戏=浏览框.获得("浏览框0游戏")     
    账号=浏览框.获得("浏览框1账号")  
    打码账号=编辑框.获得文本("编辑框0打码账号") 
    打码密码=编辑框.获得文本("编辑框1打码密码") 
     
    辅助.写配置("RealmName","多开",多开,"C:\\Config.ini") 
    辅助.写配置("RealmName","游戏",游戏,"C:\\Config.ini") 
    辅助.写配置("RealmName","账号",账号,"C:\\Config.ini") 
    辅助.写配置("RealmName","打码账号",打码账号,"C:\\Config.ini") 
    辅助.写配置("RealmName","打码密码",打码密码,"C:\\Config.ini") 
     
    个数=列表框.得到个数("列表框1执行任务")  
    遍历(i=0;i<个数;i++) 
         
        文本=列表框.获得文本("列表框1执行任务",i) 
        辅助.写配置("RealmName","任务"&i,文本,"C:\\Config.ini") 
         
    遍历结束 
     
     
功能结束 
 
 
功能 按钮0添加_点击() 
    //这里添加你要执行的代码 
    任务=列表框.得到选中文本("列表框0任务选择")   
    列表框.增加文本("列表框1执行任务",任务)    
功能结束 
 
 
功能 按钮1移除_点击() 
    //这里添加你要执行的代码 
     
    列表框.清空("列表框1执行任务")    
     
功能结束 
 
 
功能 按钮0启动_点击() 
    //这里添加你要执行的代码 
     
     
功能结束 
 
 
 
 
空间结束 |   
 
 
 
 |