TC官方合作论坛

 找回密码
 立即注册
查看: 23657|回复: 265

[游戏] [有源码]后台5开自动收BB自动上架出售自动喊话辅助带源码

  [复制链接]
发表于 2014-1-26 09:30:54 | 显示全部楼层 |阅读模式
本帖最后由 chentaotest 于 2014-2-18 21:24 编辑

这是我第一次发源码帖,主要看的还是脚本思路吧,思路不好的地方还希望指正,我也好学习下你们的脚本思路.
可能某些插件代码不知道什么意思,没关系,大家互相学习下思路就OK.辅助截图:

//************************************************************
空间 测试者AID收货
//默认空间
变量 ct=数组[5],窗口句柄=数组[5],多开区分=数组[5],线程数组=数组[5],总金额=数组[5],曾经时间=数组[5],喊话=数组[5]
变量 小20级=数组[5],小35级=数组[5],小45级=数组[5],小65级=数组[5],小85级=数组[5],大85级=数组[5]
变量 下20级=数组[5],下35级=数组[5],下45级=数组[5],下65级=数组[5],下85级=数组[5],上85级=数组[5]
变量 间隔=数组[5],世界一=数组[5],世界二=数组[5]

功能 自动关机(参数)
    t=编辑框.获得文本("编辑框15")
    辅助.等待(t*60*1000)
    ct[参数].ExitOs(1)
功能结束

功能 获取当前时间(参数)
    at = 日期时间.当前日期()
    时=日期时间.时(at)
    分=日期时间.分(at)
    秒=日期时间.秒(at)
    曾经时间[参数]=时*60*60*1000+分*60*1000+秒*1000
功能结束

功能 判断是否超时(参数)
    变量 规定时间
    规定时间=3*60*1000
    at = 日期时间.当前日期()
    当前时=日期时间.时(at)
    当前分=日期时间.分(at)
    当前秒=日期时间.秒(at)
    现在时间=当前时*60*60*1000+当前分*60*1000+当前秒*1000
    调试输出(现在时间)
    调试输出(曾经时间[参数])
    调试输出(规定时间)
    如果(现在时间 - 曾经时间[参数] >= 规定时间)
        返回 真
    如果结束
功能结束

功能 是否交易中(参数)
    变量 x,y
    ct[参数].FindPic(431,49,633,143,"交易标题.bmp","000000",0.8,0,x,y)
    辅助.等待(100)
    如果(x>=0)
        
        返回 真
    否则
        
        返回 假
    如果结束
功能结束




功能 判断第一格(参数)
    变量 x,y,X,Y
    总金额[参数]=0
    ct[参数].chentaomt(460+辅助.随机数(1,10),200+辅助.随机数(1,10))
    辅助.等待(辅助.随机数(50,100))
    ct[参数].LeftClick()
    辅助.等待(辅助.随机数(200,210))
    ct[参数].FindPic(0,0,1024,768,"宠物信息.bmp","000000",0.7,0,x,y)
    如果(x>0)
        调试输出("宠物信息已打开")
        辅助.等待(辅助.随机数(190,210))
        
        ct[参数].FindStr(189,356,392,432,"宝宝","ffffff-000000",1.0,X,Y)
        如果(X>0)
            调试输出("是BB")
            返回 真
        否则
            调试输出("放入的是野生或变异")
            返回 假
        如果结束
    否则
        调试输出("宠物信息未打开")
    如果结束
功能结束

功能 判断第二格(参数)
    变量 x,y,X,Y
    ct[参数].chentaomt(460+辅助.随机数(1,10),250+辅助.随机数(1,10))
    辅助.等待(辅助.随机数(50,100))
    ct[参数].LeftClick()
    辅助.等待(辅助.随机数(200,210))
    ct[参数].FindPic(0,0,1024,768,"宠物信息.bmp","000000",0.7,0,x,y)
    如果(x>0)
        调试输出("宠物信息已打开")
        辅助.等待(辅助.随机数(190,210))
        ct[参数].FindStr(189,356,392,432,"宝宝","ffffff-000000",1.0,X,Y)
        如果(X>0)
            调试输出("是BB")
            返回 真
        否则
            调试输出("放入的是野生或变异")
            返回 假
        如果结束
    否则
        调试输出("宠物信息未打开")
    如果结束
   
功能结束

功能 计算价钱(参数)
    辅助.等待(辅助.随机数(190,210))
    携带等级=ct[参数].Ocr(471,346,579,371,"ffffff-000000",1.0)
    如果(携带等级!="")
        调试输出("获取到等级")
        如果(携带等级<=20)
            返回 小20级[参数]
        否则
            如果(携带等级>20&&携带等级<=35)
                返回 小35级[参数]
            否则
                如果(携带等级>35&&携带等级<=45)
                    返回 小45级[参数]
                否则
                    如果(携带等级>45&&携带等级<=65)
                        返回 小65级[参数]
                    否则
                        如果(携带等级>65&&携带等级<=85)
                            返回 小85级[参数]
                        否则
                            如果(携带等级>85)
                                返回 大85级[参数]
                            如果结束
                        如果结束
                    如果结束
                如果结束
            如果结束
        如果结束
    否则
        调试输出("获取等级失败")
    如果结束
功能结束

功能 再次确认货物价格(参数)
    已给金钱=类型.转整型(ct[参数].Ocr(333,344,476,378,"00ff00-000000|ffffff-000000|ff00ff-000000",1.0))
    调试输出(已给金钱)
    已给金钱=已给金钱*10000
    调试输出("已给金钱="&已给金钱&"总金额[参数]="&总金额[参数])
    如果(总金额[参数]==已给金钱)
        返回 真
        
    否则
        
    如果结束
   
功能结束


功能 给钱(参数)
    变量 x,y
    辅助.等待(辅助.随机数(180,200))
    ct[参数].FindPic(680,299,843,392,"铜钱.bmp","000000",0.8,0,x,y)
    如果(x>0)
        调试输出("找到铜钱位置")
        ct[参数].chentaomt(x+辅助.随机数(2,5),y+辅助.随机数(2,5))
        辅助.等待(辅助.随机数(5,15))
        ct[参数].LeftClick()
        辅助.等待(辅助.随机数(90,110))
        ct[参数].chentaokpsr(总金额[参数],辅助.随机数(5,15))
        辅助.等待(1000)
        辅助.等待(辅助.随机数(20,50))
        ct[参数].KeyPress(13)
        辅助.等待(辅助.随机数(190,210))
        ct[参数].FindStr(0,0,1024,768,"给予金","ffffff-000000",1.0,x,y)
        如果(x>0)
            调试输出("回车失败")
            ct[参数].KeyPress(13)
            辅助.等待(辅助.随机数(20,50))
            ct[参数].KeyPress(13)
            辅助.等待(辅助.随机数(20,50))
            返回 真
        否则
            调试输出("给予成功")
            
            返回 真
        如果结束
        
        
    否则
        调试输出("未找到铜钱位置")
    如果结束
   
功能结束

功能 锁定交易(参数)
    变量 锁定x,锁定y
    ct[参数].FindPic(0,0,1024,768,"锁定.bmp","000000",0.9,0,锁定x,锁定y)
    如果(锁定x>0)
        ct[参数].chentaomt(锁定x+辅助.随机数(3,8),锁定y+辅助.随机数(2,5))
        辅助.等待(辅助.随机数(50,100))
        ct[参数].LeftClick()
        辅助.等待(辅助.随机数(50,100))
        ct[参数].FindPic(0,0,1024,768,"已锁定.bmp","000000",0.9,0,锁定x,锁定y)
        如果(锁定x>0)
            调试输出("锁定成功")
            返回 真
        否则
            辅助.等待(辅助.随机数(50,100))
            ct[参数].LeftClick()
            辅助.等待(辅助.随机数(50,100))
            返回 真
        如果结束
    否则
        调试输出("未找到锁定按钮位置")
    如果结束
功能结束

功能 点击交易(参数)
    变量 交易x,交易y,交易1x,交易1y
    ct[参数].FindPic(0,0,1024,768,"点完交易.bmp","000000",0.9,0,交易x,交易y)
    如果(交易x>0)
        调试输出("已点击过,无需重复点击")
    否则
        ct[参数].FindPic(0,0,1024,768,"交易1.bmp|交易2.bmp","000000",0.8,0,交易1x,交易1y)
        如果(交易1x>0)
            ct[参数].chentaomt(交易1x+辅助.随机数(2,5),交易1y+辅助.随机数(1,3))
            辅助.等待(辅助.随机数(10,30))
            ct[参数].LeftClick()
            辅助.等待(辅助.随机数(10,30))
        否则
            调试输出("本次未找到交易按钮")
        如果结束
    如果结束
功能结束

功能 重置鼠标位置(参数)
    辅助.等待(辅助.随机数(30,90))
    ct[参数].chentaomt(349+辅助.随机数(1,10),513+辅助.随机数(1,10))
    辅助.等待(辅助.随机数(80,100))
功能结束

功能 取消交易(参数)
    变量 取消x,取消y,x,y
    ct[参数].FindPic(0,0,1024,768,"取消.bmp","000000",0.8,0,取消x,取消y)
    如果(取消x>0)
        ct[参数].chentaomt(取消x+辅助.随机数(3,8),取消y+辅助.随机数(2,5))
        辅助.等待(辅助.随机数(50,100))
        ct[参数].LeftClick()
        辅助.等待(200)
        ct[参数].FindPic(0,0,1024,768,"交易标题.bmp","000000",0.8,0,x,y)
        如果(x<0)
            调试输出("交易取消成功")
            
            返回 真
        如果结束
    否则
        调试输出("未找到取消按钮")
    如果结束
功能结束

功能 对方是否锁定(参数)
    变量 对方锁定x,对方锁定y
    ct[参数].FindPic(132,83,628,339,"对方锁定.bmp","000000",0.8,0,对方锁定x,对方锁定y)
    如果(对方锁定x>0)
        调试输出("对方已锁定")
        返回 真
    否则
        调试输出("对方未锁定")
    如果结束
功能结束

功能 清洁窗口(参数)
    变量 清洁x,清洁y
    辅助.等待(辅助.随机数(1,15))
    ct[参数].KeyPress(27)
    辅助.等待(辅助.随机数(120,145))
    ct[参数].FindStr(178,202,391,354,"今日收益","ffff00-000000",1.0,清洁x,清洁y)
    辅助.等待(150)
    如果(清洁x>0)
        调试输出("ESC窗口打开")
        辅助.等待(辅助.随机数(50,85))
        ct[参数].KeyPress(27)
        辅助.等待(辅助.随机数(50,85))
        
    否则
        调试输出("ESC窗口未打开")  
    如果结束
    返回 假
功能结束

功能 打开店铺(参数)
    变量 i,x,y,X,Y,店铺x,店铺y
    遍历(i=0;i<2;i++)
        辅助.等待(222)
        ct[参数].FindStr(0,0,1024,768,"商会会长","edda36-000000",1.0,x,y)
        如果(x>0)
            调试输出("看到商会会长")
            ct[参数].chentaomt(x+辅助.随机数(25,30),y-辅助.随机数(46,52))
            辅助.等待(辅助.随机数(30,60))
            ct[参数].LeftClick()
            辅助.等待(辅助.随机数(150,170))
            ct[参数].FindStr(0,0,1024,768,"查看我的店铺","05f933-000000",1.0,X,Y)
            如果(X>0)
                ct[参数].chentaomt(X+辅助.随机数(5,15),Y+辅助.随机数(2,6))
                辅助.等待(辅助.随机数(30,60))
                ct[参数].LeftClick()
                辅助.等待(200)
                ct[参数].FindPic(0,0,1024,768,"店铺管理.bmp","000000",0.8,0,店铺x,店铺y)
                如果(店铺x>0)
                    返回 真
                    跳出
                如果结束
            如果结束
        否则
            调试输出("未看到商会会长")
            辅助.等待(辅助.随机数(10,30))
            ct[参数].KeyDown(164)
            辅助.等待(辅助.随机数(30,60))
            ct[参数].KeyDown(49)
            辅助.等待(辅助.随机数(30,60))
            ct[参数].KeyUp(49)
            辅助.等待(辅助.随机数(30,60))
            ct[参数].KeyUp(164)
            辅助.等待(辅助.随机数(200,300))
        如果结束
    遍历结束
功能结束

功能 选中查看BB(参数)
    变量 X,Y,x,y,信息x,信息y
    辅助.等待(200)
    ct[参数].FindStr(542,145,703,342,"宝宝","ffffff-000000",1.0,X,Y)
    如果(X>0)
        ct[参数].chentaomt(X+辅助.随机数(1,6),Y+辅助.随机数(3,7))
        辅助.等待(辅助.随机数(30,60))
        ct[参数].LeftClick()
        辅助.等待(辅助.随机数(30,60))
        辅助.等待(200)
        ct[参数].FindPic(676,278,871,383,"查看.bmp","000000",0.8,0,x,y)
        如果(x>0)
            调试输出("找到查看按钮")
            ct[参数].chentaomt(x+辅助.随机数(1,5),y+辅助.随机数(2,5))
            辅助.等待(辅助.随机数(30,60))
            ct[参数].LeftClick()
            辅助.等待(200)
            ct[参数].FindPic(0,0,1024,768,"宠物信息.bmp","000000",0.8,0,信息x,信息y)
            如果(信息x>0)
                调试输出("宠物信息栏打开")
                返回 真
            否则
                调试输出("宠物信息栏未打开")
            如果结束
        否则
            调试输出("未找到查看按钮")
        如果结束
    否则
        调试输出("此宠物不是BB")
        返回 假
    如果结束
功能结束

功能 上货价钱(参数)
    辅助.等待(200)
    携带等级=ct[参数].Ocr(471,347,576,377,"ffffff-000000",1.0)
    如果(携带等级!="")
        调试输出("上货中获取到等级")
        如果(携带等级<=20)
            返回 下20级[参数]
        否则
            如果(携带等级>20&&携带等级<=35)
                返回 下35级[参数]
            否则
                如果(携带等级>35&&携带等级<=45)
                    返回 下45级[参数]
                否则
                    如果(携带等级>45&&携带等级<=65)
                        返回 下65级[参数]
                    否则
                        如果(携带等级>65&&携带等级<=85)
                            返回 下85级[参数]
                        否则
                            如果(携带等级>85)
                                返回 上85级[参数]
                            如果结束
                        如果结束
                    如果结束
                如果结束
            如果结束
        如果结束
    否则
        调试输出("上货中获取等级失败")
    如果结束
功能结束

功能 提交录入出货金额(参数,单价)
    变量 x,y,X,Y
    ct[参数].chentaomt(455+辅助.随机数(1,15),290+辅助.随机数(1,15))
    辅助.等待(辅助.随机数(50,90))
    ct[参数].RightClick()
    辅助.等待(辅助.随机数(190,220))
    ct[参数].FindPic(0,0,1024,768,"提交.bmp","000000",0.8,0,x,y)
    如果(x>0)
        调试输出("找到提交按钮")
        ct[参数].chentaomt(x+辅助.随机数(1,5),y+辅助.随机数(2,5))
        辅助.等待(辅助.随机数(30,60))
        ct[参数].LeftClick()
        辅助.等待(辅助.随机数(180,210))
        ct[参数].FindStr(340,284,684,424,"的单价","ffffff-000000",1.0,X,Y)
        如果(X>0)
            调试输出("录入金钱中")
            ct[参数].chentaokpsr(单价,辅助.随机数(5,15))
            辅助.等待(1000)
            ct[参数].KeyPress(13)
            辅助.等待(辅助.随机数(30,60))
            ct[参数].KeyPress(13)
            辅助.等待(辅助.随机数(30,60))
            ct[参数].KeyPress(13)
            辅助.等待(辅助.随机数(30,60))
            返回 真
        否则
            调试输出("点击提交失败")
        如果结束
    否则
        调试输出("未找到提交按钮")
    如果结束
功能结束

功能 上货中否(参数)
    变量 x,y
    辅助.等待(100)
    ct[参数].FindPic(0,0,1024,768,"店铺管理.bmp","000000",0.8,0,x,y)
    如果(x>0)
        返回 真
    否则
        调试输出("店铺管理已关闭")
    如果结束
功能结束

功能 自动上货(参数)
    变量 i
   
    打开店铺=测试者AID收货.打开店铺(参数)
    如果(打开店铺==真)
        遍历(i=0;i<8;i++)
            选中查看BB=测试者AID收货.选中查看BB(参数)
            如果(测试者AID收货.是否交易中(参数)==真)
                跳出
            如果结束
            如果(选中查看BB==真)
                价钱=测试者AID收货.上货价钱(参数)
                如果(测试者AID收货.是否交易中(参数)==真)
                    跳出
                如果结束
                如果(价钱!="")
                    上货中=测试者AID收货.上货中否(参数)
                    如果(测试者AID收货.是否交易中(参数)==真)
                        跳出
                    如果结束
                    如果(上货中==真)
                        
                        测试者AID收货.提交录入出货金额(参数,价钱)
                        调试输出("第"&i&"只BB上货成功")
                        如果(测试者AID收货.是否交易中(参数)==真)
                            跳出
                        如果结束
                    否则
                        调试输出("店铺管理已关闭")
                        跳出
                    如果结束
                否则
                    调试输出("获取携带等级失败")
                如果结束
            否则
                如果(选中查看BB==假)
                    调试输出("身上已无BB")
                    跳出
                如果结束
            如果结束
        遍历结束
    如果结束
   
功能结束



功能 注册收费(参数)
    ct[参数]=com("cht.taotao")
    收费=ct[参数].chentaogg("dfsf3453563322",""
    如果(收费!=1)
        辅助.消息框("注功能失败!")
        错误码=ct[参数].GetLastError()
        辅助.消息框(错误码)
        辅助.退出()
    如果结束
功能结束

功能 绑定窗口(参数)
    ct[参数].chentaosph(辅助.获取资源路径("rc:"))
    系统类型=ct[参数].GetOsType()
    //窗口.激活(窗口句柄[参数])
    如果(系统类型==1||系统类型==2)
        调试输出("该系统为XP系统!")
        绑定=ct[参数].chentaobwdex(窗口句柄[参数],"dx","dx.mouse.position.lock.api|dx.mouse.position.lock.message|dx.mouse.clip.lock.api|dx.mouse.input.lock.api|dx.mouse.state.api|dx.mouse.api|dx.mouse.cursor","windows",101)
        
        辅助.等待(2000)
        如果(绑定==0)
            辅助.消息框("绑定窗口失败!")
            //辅助.退出()
            绑定=ct[参数].GetLastError()
            辅助.消息框("失败错误码"&绑定)
        否则
            调试输出("XP下绑定成功!")
            ctpath=ct[参数].chentaosph(辅助.获取资源路径("rc:xp"))
            如果(ctpath!=1)
                辅助.消息框("设置路径失败!")
                辅助.退出()
            如果结束
        如果结束
    否则
        如果(系统类型==3)
            调试输出("该系统为WIN7系统!")
            //绑定 = ct[参数].chentaobwdex(窗口句柄[参数],"dx2","dx.mouse.position.lock.api|dx.mouse.position.lock.message|dx.mouse.clip.lock.api|dx.mouse.input.lock.api|dx.mouse.state.api|dx.mouse.api|dx.mouse.cursor","dx.keypad.input.lock.api|dx.keypad.state.api|dx.keypad.api","",101)
            绑定 = ct[参数].chentaobwdex(窗口句柄[参数],"dx2","dx.mouse.position.lock.api|dx.mouse.position.lock.message|dx.mouse.clip.lock.api|dx.mouse.input.lock.api|dx.mouse.state.api|dx.mouse.api|dx.mouse.cursor","dx.keypad.input.lock.api|dx.keypad.state.api|dx.keypad.api","",101)
            辅助.等待(2000)
            如果(绑定==0)
                辅助.消息框("绑定窗口失败!")
                //辅助.退出()
                绑定=ct[参数].GetLastError()
                辅助.消息框("失败错误码"&绑定)
            否则
                调试输出("WIN7下绑定成功!")
                ctpath=ct[参数].chentaosph(辅助.获取资源路径("rc:"))
                如果(ctpath!=1)
                    辅助.消息框("设置路径失败!")
                    辅助.退出()
                如果结束
            如果结束
        如果结束
    如果结束
    窗口.激活(窗口句柄[参数])
功能结束


功能 设置字库(参数)
    字库设置=ct[参数].SetDict(0,"收BIBI.txt")
    辅助.等待(123)
    如果(字库设置!=1)
        辅助.消息框("字库设置失败")
    如果结束
功能结束


功能 解绑窗口(参数)
    ct[参数].chentaoubwow()
    辅助.等待(100)
    绑定值=ct[参数].chentaoibd(窗口句柄[参数])
    如果(绑定值==1)
        ct[参数].chentaoubwow()
        //辅助.消息框("窗口"&参数&"解绑成功!")
    否则
        //辅助.消息框("该窗口"&参数&"未绑定!")
    如果结束  
    ct[参数]=null
    窗口句柄[参数]=null
    多开区分[参数]=null
    线程数组[参数]=null
功能结束



功能 切换频道(参数,频道)
    变量 频道x,频道y
    //1为当前频道,2为世界频道
    如果(频道==1)
        调试输出("频道为1")
        循环(真)
            ct[参数].FindPic(0,0,1024,768,"当前.bmp","000000",0.8,0,频道x,频道y)
            如果(频道x>=0)
                调试输出("已设为当前频道")
                返回 真
                跳出
            否则
                ct[参数].KeyDown(164)
                辅助.等待(辅助.随机数(30,60))
                ct[参数].KeyPress(190)
                辅助.等待(辅助.随机数(30,60))
                ct[参数].KeyUp(164)
                辅助.等待(辅助.随机数(30,60))
            如果结束
        循环结束
    如果结束
    如果(频道==2)
        调试输出("频道为2")
        循环(真)
            ct[参数].FindPic(0,0,1024,768,"世界.bmp","000000",0.8,0,频道x,频道y)
            如果(频道x>=0)
                调试输出("已设为当前频道")
                返回 真
                跳出
            否则
                ct[参数].KeyDown(164)
                辅助.等待(辅助.随机数(30,60))
                ct[参数].KeyPress(188)
                辅助.等待(辅助.随机数(30,60))
                ct[参数].KeyUp(164)
                辅助.等待(辅助.随机数(30,60))
            如果结束
        循环结束
        
        
    如果结束
功能结束

功能 喊话(参数)
    辅助.等待(辅助.随机数(10,500))
    如果(单选框.获得状态("单选框0")==真)
        
        随机=辅助.随机数(1,2)
        
        选择(随机)
            条件 1:
            ct[参数].chentaossg(窗口句柄[参数],世界一[参数])
            辅助.等待(辅助.随机数(100,500))
            ct[参数].KeyPress(13)
            辅助.等待(辅助.随机数(100,500))
            条件 2:
            ct[参数].chentaossg(窗口句柄[参数],世界二[参数])
            辅助.等待(辅助.随机数(100,500))
            ct[参数].KeyPress(13)
            辅助.等待(辅助.随机数(100,500))
        选择结束
    否则
        如果(单选框.获得状态("单选框1")==真)
            
            如果(复选框.获得状态("复选框2")==真)
                频道=辅助.随机数(1,2)
                测试者AID收货.切换频道(参数,频道)
            否则
                如果(复选框.获得状态("复选框0")==真)
                    频道=1
                    测试者AID收货.切换频道(参数,频道)
                否则
                    如果(复选框.获得状态("复选框1")==真)
                        频道=2
                        测试者AID收货.切换频道(参数,频道)
                    如果结束
                如果结束
            如果结束
            ct[参数].KeyPress(38)
            辅助.等待(辅助.随机数(30,60))
            ct[参数].KeyPress(13)
            辅助.等待(辅助.随机数(30,60))
        如果结束
    如果结束
功能结束


功能 纠正站位(参数)
    变量 x,y,X,Y
    ct[参数].FindPic(0,0,177,176,"寻路精灵.bmp","000000",0.8,0,x,y)
    如果(x>0)
        调试输出("找到寻路精灵按钮")
        辅助.等待(辅助.随机数(30,60))
        ct[参数].chentaomt(x+辅助.随机数(1,3),y+辅助.随机数(1,3))
        辅助.等待(辅助.随机数(30,60))
        ct[参数].LeftClick()
        辅助.等待(辅助.随机数(100,150))
        ct[参数].FindStr(0,0,1024,768,"大唐南","00ff00-000000",1.0,X,Y)
        如果(X>0)
            ct[参数].chentaossg(窗口句柄[参数],"商会会长")
            辅助.等待(辅助.随机数(150,200))
            ct[参数].KeyPress(13)
            辅助.等待(辅助.随机数(30,60))
            ct[参数].RightClick()
            辅助.等待(辅助.随机数(30,60))
            
            返回 真
        如果结束
    如果结束
功能结束


功能 主线程(参数)
    测试者AID收货.注册收费(参数)
    测试者AID收货.绑定窗口(参数)
    测试者AID收货.设置字库(参数)
   
    变量 i,X,Y
    //************************************新收货功能******************************************
   
    //**************循环判断是否有人来交易*****************************
    循环(真)
        
标记1:
        
        测试者AID收货.清洁窗口(参数)
        遍历(i=0;i<间隔[参数];i++)
            如果(i==间隔[参数]-2)
                测试者AID收货.喊话(参数)
                i=0
            如果结束
            //上面判断是否到喊话时间
            如果(测试者AID收货.上货中否(参数)==真)
                ct[参数].FindStr(542,145,703,342,"宝宝","ffffff-000000",1.0,X,Y)
                如果(X>0&&Y>0)
                    调试输出("身上有BB")
                    跳转 标记2
                    
                如果结束
            否则
                打开店铺=测试者AID收货.打开店铺(参数)
                如果(打开店铺!=真)
                    测试者AID收货.纠正站位(参数)
                    辅助.等待(辅助.随机数(130,160))
                    测试者AID收货.清洁窗口(参数)
                如果结束
            如果结束
            //维持商户一直是打开状态
            交易状态=测试者AID收货.是否交易中(参数)
            如果(交易状态==真)
                调试输出("主线程检测到开始交易")
               
                跳出
            否则
                调试输出("无人交易,继续循环检测")
               
            如果结束
            //检测是否有人交易
            辅助.等待(辅助.随机数(888,1111))
        遍历结束
        测试者AID收货.获取当前时间(参数)
        
        //****************************如果有人来交易的话,执行下面***********************
        //******************************先循环判断第一个是否有物品***********************
        遍历(i=0;i<40;i++)
            如果(i==39)
                测试者AID收货.取消交易(参数)
                跳转 标记1
            如果结束
            交易状态=测试者AID收货.是否交易中(参数)
            如果(交易状态==真)
                第一格=测试者AID收货.判断第一格(参数)
                如果(第一格==真)
                    调试输出("第一格放入BB")
                    跳出
                否则
                    如果(第一格==假)
                        测试者AID收货.取消交易(参数)
                        
                        跳转 标记1
                        跳出
                    否则
                        如果(第一格=="")
                            ct[参数].RightClick()
                            辅助.等待(辅助.随机数(30,60))
                        如果结束
                    如果结束
                如果结束
                辅助.等待(500)
            否则
                跳转 标记1
                跳出
            如果结束
            超时=测试者AID收货.判断是否超时(参数)
            如果(超时==真)
                交易中=测试者AID收货.是否交易中(参数)
                如果(交易中==真)
                    测试者AID收货.取消交易(参数)
                如果结束
                跳转 标记1
                跳出
            如果结束
        遍历结束
        交易状态=测试者AID收货.是否交易中(参数)
        如果(交易状态==真)
            价钱=测试者AID收货.计算价钱(参数)
            如果(价钱!="")
                调试输出("主线程收到返回价钱="&价钱)
                总金额[参数]=价钱*10000
            如果结束
        否则
            跳转 标记1
        如果结束
        测试者AID收货.清洁窗口(参数)
        //***********************开始判断第二格********************
        遍历(i=0;i<5;i++)
            交易状态=测试者AID收货.是否交易中(参数)
            如果(交易状态==真)
                第二格=测试者AID收货.判断第二格(参数)
                如果(第二格==真)
                    调试输出("第二格放入BB")
                    交易状态=测试者AID收货.是否交易中(参数)
                    如果(交易状态==真)
                        价钱=测试者AID收货.计算价钱(参数)
                        如果(价钱!="")
                            调试输出("主线程收到返回价钱="&价钱)
                            总金额[参数]=价钱*10000+总金额[参数]
                            跳出
                        如果结束
                        
                    否则
                        跳转 标记1
                    如果结束
                    
                否则
                    如果(第二格==假)
                        测试者AID收货.取消交易(参数)
                        跳转 标记1
                        跳出
                    如果结束
                如果结束
                辅助.等待(600)
            如果结束
        遍历结束
        测试者AID收货.清洁窗口(参数)
        //*******************全部货物判断完毕*************************
        //*****************开始算钱给钱*******************************
        是否交易=测试者AID收货.是否交易中(参数)
        如果(是否交易==真)
            如果(总金额[参数]>0)
                给钱=测试者AID收货.给钱(参数)
                如果(给钱==真)
                    调试输出("给钱成功")
                否则
                    调试输出("给钱失败")
                如果结束
            否则
                调试输出("货物计算金额<=0")
            如果结束
        否则
            跳转 标记1
        如果结束
        //**********************************给钱完毕,锁定交易*******************
        //**********************锁定交易,循环等待对方锁定************************************************
        循环(真)
            是否交易=测试者AID收货.是否交易中(参数)
            如果(是否交易==真)
                锁定=测试者AID收货.锁定交易(参数)
                如果(锁定==真)
                    调试输出("我方锁定成功")
                    跳出
                如果结束
            否则
                跳转 标记1
            如果结束
        循环结束
        循环(真)
            是否交易=测试者AID收货.是否交易中(参数)
            如果(是否交易==真)
                对方锁定=测试者AID收货.对方是否锁定(参数)
                如果(对方锁定==真)
                    调试输出("对方已锁定交易")
                    跳出
                如果结束
            否则
                跳转 标记1
            如果结束
            
            超时=测试者AID收货.判断是否超时(参数)
            如果(超时==真)
                交易中=测试者AID收货.是否交易中(参数)
                如果(交易中==真)
                    测试者AID收货.取消交易(参数)
                如果结束
                跳转 标记1
                跳出
            如果结束
        循环结束
        //*********************双方锁定交易成功,再次核对物品价值与金钱匹配***************
        
        //***********************第一格货物判断********************
        循环(真)
            交易状态=测试者AID收货.是否交易中(参数)
            如果(交易状态==真)
                第一格=测试者AID收货.判断第一格(参数)
                如果(第一格==真)
                    调试输出("第一格放入BB")
                    
                    跳出
                如果结束
                辅助.等待(500)
            否则
                跳转 标记1
            如果结束
            超时=测试者AID收货.判断是否超时(参数)
            如果(超时==真)
                交易中=测试者AID收货.是否交易中(参数)
                如果(交易中==真)
                    测试者AID收货.取消交易(参数)
                如果结束
                跳转 标记1
                跳出
            如果结束
        循环结束
        交易状态=测试者AID收货.是否交易中(参数)
        如果(交易状态==真)
            价钱=测试者AID收货.计算价钱(参数)
            如果(价钱!="")
                调试输出("主线程收到返回价钱="&价钱)
                总金额[参数]=价钱*10000
               
            如果结束
        否则
            跳转 标记1
        如果结束
        测试者AID收货.清洁窗口(参数)
        //***********************开始判断第二格********************
        遍历(i=0;i<2;i++)
            交易状态=测试者AID收货.是否交易中(参数)
            如果(交易状态==真)
                第二格=测试者AID收货.判断第二格(参数)
                如果(第二格==真)
                    调试输出("第二格放入BB")
                    交易状态=测试者AID收货.是否交易中(参数)
                    如果(交易状态==真)
                        价钱=测试者AID收货.计算价钱(参数)
                        如果(价钱!="")
                            调试输出("主线程收到返回价钱="&价钱)
                            总金额[参数]=价钱*10000+总金额[参数]
                            跳出
                        如果结束
                    否则
                        跳转 标记1
                    如果结束
                    
                如果结束
                辅助.等待(600)
            如果结束
        遍历结束
        测试者AID收货.清洁窗口(参数)
        //再次获取物品价值成功,下面开始再次对比货物价格是否匹配
        测试者AID收货.重置鼠标位置(参数)
        是否交易=测试者AID收货.是否交易中(参数)
        如果(是否交易==真)
            再次确认=测试者AID收货.再次确认货物价格(参数)
            如果(再次确认==真)
                测试者AID收货.点击交易(参数)
            否则
                测试者AID收货.取消交易(参数)
            如果结束
        否则
            跳转 标记1
        如果结束
        
        //等待对方点击交易
        循环(真)
            是否交易=测试者AID收货.是否交易中(参数)
            如果(是否交易==真)
                测试者AID收货.点击交易(参数)
                辅助.等待(辅助.随机数(30,60))
                ct[参数].KeyPress(13)
                辅助.等待(辅助.随机数(30,60))
            否则
                如果(是否交易==假)
                    调试输出("本次交易执行完毕")
                    跳出
                如果结束
            如果结束
            超时=测试者AID收货.判断是否超时(参数)
            如果(超时==真)
                交易中=测试者AID收货.是否交易中(参数)
                如果(交易中==真)
                    测试者AID收货.取消交易(参数)
                如果结束
                跳转 标记1
                跳出
            如果结束
        循环结束
        //开始判断有无人交易,是否要上货
        //开始上货
        遍历(i=0;i<4;i++)
            是否交易=测试者AID收货.是否交易中(参数)
            如果(是否交易==真)
                调试输出("有人来交易,跳转标记1")
                跳转 标记1
                跳出
            如果结束
            辅助.等待(888)
        遍历结束
        //*************遍历上货******************
标记2:
        
        如果(测试者AID收货.上货中否(参数)==真)
        否则
            测试者AID收货.打开店铺(参数)
            
        如果结束
        //已打开店铺
        遍历(i=0;i<8;i++)
            如果(测试者AID收货.上货中否(参数)==真)
                如果(测试者AID收货.上货中否(参数)==真)
                否则
                    跳转 标记1
                    跳出
                如果结束
                如果(测试者AID收货.选中查看BB(参数)==真)
                    如果(测试者AID收货.上货中否(参数)==真)
                    否则
                        跳转 标记1
                        跳出
                    如果结束
                    上货价=测试者AID收货.上货价钱(参数)  
                    如果(上货价!="")
                        如果(测试者AID收货.上货中否(参数)==真)
                        否则
                            跳转 标记1
                            跳出
                        如果结束
                        如果(测试者AID收货.提交录入出货金额(参数,上货价)==真)
                            调试输出("第"&i&"只BB上货成功")
                        如果结束
                    否则
                        跳转 标记1
                        跳出
                    如果结束
                否则
                    跳转 标记1
                    跳出
                如果结束
            否则
                跳转 标记1
                跳出
            如果结束
        遍历结束
    循环结束
功能结束

//*******************热键*********************************************************************
功能 热键0_热键()//F5
    //这里添加你要执行的代码
   
    变量 i,参数
    //获取页面元素
    遍历(i=0;i<10;i++)
        参数=i
        如果(ct[参数]==null)
            跳出
        如果结束
    遍历结束
    如果(复选框.获得状态("复选框3")==真&&参数==0)
        如果(编辑框.获得文本("编辑框15")!="")
            线程.开启("测试者AID收货.自动关机",参数)
        否则
            辅助.消息框("如果您想设置自动关机,则必须输入关机时间")
            辅助.退出()
        如果结束
    如果结束
    窗口句柄[参数]=窗口.顶层窗口句柄()
    辅助.等待(100)
    窗口.激活(窗口句柄[参数])
    多开区分[参数]=窗口句柄[参数]&参数
    线程数组[参数]=线程.扩展开启("测试者AID收货.主线程",参数,"测试者AID收货.解绑窗口",参数)
    小20级[参数]=编辑框.获得文本("编辑框0")
    小35级[参数]=编辑框.获得文本("编辑框1")
    小45级[参数]=编辑框.获得文本("编辑框2")
    小65级[参数]=编辑框.获得文本("编辑框6")
    小85级[参数]=编辑框.获得文本("编辑框11")
    大85级[参数]=编辑框.获得文本("编辑框13")
    //收购价格
    下20级[参数]=编辑框.获得文本("编辑框7")
    下35级[参数]=编辑框.获得文本("编辑框8")
    下45级[参数]=编辑框.获得文本("编辑框9")
    下65级[参数]=编辑框.获得文本("编辑框10")
    下85级[参数]=编辑框.获得文本("编辑框12")
    上85级[参数]=编辑框.获得文本("编辑框14")
    //上货价
    间隔[参数]=编辑框.获得文本("编辑框5")
    世界一[参数]=编辑框.获得文本("编辑框3")
    世界二[参数]=编辑框.获得文本("编辑框4")
    //喊话参数
   
功能结束


功能 热键1_热键()//F6
    //这里添加你要执行的代码
    变量 i,参数
    顶层句柄=窗口.顶层窗口句柄()
    遍历(i=0;i<5;i++)
        参数=i
        如果(多开区分[参数]==null)
            
        否则
            
            如果(顶层句柄==字符串.截取(多开区分[参数],0,字符串.长度(多开区分[参数])-1))
                线程.关闭(喊话[参数])
                辅助.等待(50)
                线程.关闭(线程数组[参数])
                跳出   
            如果结束
        如果结束
    遍历结束
功能结束

空间结束
//空间结束语句


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

发表于 2014-1-26 09:32:16 | 显示全部楼层
回复

使用道具 举报

发表于 2014-1-26 09:40:33 | 显示全部楼层
学习
回复

使用道具 举报

发表于 2014-1-26 09:48:25 | 显示全部楼层
学习学习
回复

使用道具 举报

发表于 2014-1-26 09:59:17 | 显示全部楼层
互相学习的啦~
回复 支持 反对

使用道具 举报

发表于 2014-1-26 09:59:46 | 显示全部楼层
这是什么游戏呢?
回复 支持 反对

使用道具 举报

发表于 2014-1-26 10:00:00 | 显示全部楼层
口口口口看一下···
回复 支持 反对

使用道具 举报

发表于 2014-1-26 10:34:51 | 显示全部楼层
回复

使用道具 举报

发表于 2014-1-26 10:57:06 | 显示全部楼层
bbbbbbbbbbbbb
回复 支持 反对

使用道具 举报

发表于 2014-1-26 10:57:45 | 显示全部楼层
看看来学习下
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-5-20 03:18 , Processed in 0.047704 second(s), 23 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表