5.0新官网新手教程
开启辅助访问 设为首页收藏本站切换到窄版

TC官方合作论坛

 找回密码
 立即注册
TC官方合作论坛»论坛 › 学习讨论区 › 新手专区 › 请高手给指点一下，为什么不能无限循环执行。 ...
返回列表 发新帖
查看: 750|回复: 9
打印 上一主题 下一主题

[已解决] 请高手给指点一下，为什么不能无限循环执行。

[复制链接]
龙族
跳转到指定楼层
楼主
发表于 2012-8-5 01:53:39 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

马上加入TC

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

x
#import "dm.dmsoft" dm
空间 后台找图
//定义默认空间
整型 线程句柄1
功能 逻辑型 运行1()
   
    整型 窗口句柄=窗口.找到窗口("游戏")
    整型 X,Y,X1,Y1,X2,Y2,X3,Y3,X4,Y4,X5,Y5
    逻辑型 是否执行
    dm.BindWindow(窗口句柄,"dx","dx","dx",0)
    dm.SetPath(辅助.获取资源路径("rc:"))   
   
    窗口.激活(窗口句柄)
    循环(真)
        是否执行=复选框.获得状态("复选框0")
        如果(是否执行==真)         
            辅助.等待(300)
            窗口.发送按下(窗口句柄,32)
            
            dm.FindPic(0,0,300,147,"物品满了.bmp","000000",0.9,0,X,Y)
            如果(X>0)
               
                辅助.等待(500)
                dm.KeyPressChar( "P")
               
                辅助.等待(400)
               
                dm.FindPic(0,0,364,32,"GO.bmp","000000",0.9,0,X1,Y1)
                如果(X1>0)
                    辅助.等待(500)
                    dm.MoveTo( X1-40,Y1+3)
                    辅助.等待(300)
                    dm.LeftClick()
                    dm.KeyPressChar( "2")
                    辅助.等待(300)
                    dm.KeyPressChar( "3")
                    辅助.等待(300)
                    dm.KeyPressChar( "1")
                    辅助.等待(300)
                    dm.KeyPressChar( "Tab")
                    辅助.等待(500)
                    dm.KeyPressChar( "1")
                    辅助.等待(300)
                    dm.KeyPressChar( "2")
                    辅助.等待(300)
                    dm.KeyPressChar( "6")
                    辅助.等待(500)
                    dm.MoveTo( X1,Y1)
                    辅助.等待(400)
                    dm.LeftClick()
                    辅助.等待(500)
                    dm.KeyPressChar( "P")
                    辅助.等待(2000)
                    
                    
                    循环(真)
                        dm.FindPic(0,0,800,600,"武器商人.bmp","000000",0.9,0,X2,Y2)
                        如果(X2>0)
                           
                            辅助.等待(500)
                            dm.MoveTo( X2+20,Y2+50)
                            辅助.等待(400)
                            dm.LeftClick()
                            辅助.等待(2000)
                           
                            辅助.等待(200)
                           
                            dm.FindPic(0,0,800,600,"卖东西.bmp","000000",0.9,0,X3,Y3)
                            如果(X3>0)
                                辅助.等待(500)
                                dm.MoveTo( X3+4,Y3+2)
                                辅助.等待(400)
                                dm.LeftClick()
                                
                                辅助.等待(400)
                                dm.FindPic(0,0,800,600,"确定.bmp","000000",0.9,0,X4,Y4)
                                如果(X4>0)
                                    辅助.等待(500)
                                    dm.MoveTo( X4-156,Y4-134)
                                    辅助.等待(800)
                                    dm.RightClick()
                                    dm.MoveTo( X4-120,Y4-134)
                                    辅助.等待(800)
                                    dm.RightClick()
                                    dm.MoveTo( X4-84,Y4-134)
                                    辅助.等待(800)
                                    dm.RightClick()
                                    dm.MoveTo( X4-48,Y4-134)
                                    辅助.等待(800)
                                    dm.RightClick()
                                    dm.MoveTo( X4-12,Y4-134)
                                    辅助.等待(800)
                                    dm.RightClick()
                                    dm.MoveTo( X4+24,Y4-134)
                                    辅助.等待(800)
                                    dm.RightClick()
                                    dm.MoveTo( X4+60,Y4-134)
                                    辅助.等待(800)
                                    dm.RightClick()
                                    
                                    dm.MoveTo( X4-156,Y4-98)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4-120,Y4-98)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4-84,Y4-98)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4-48,Y4-98)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4-12,Y4-98)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4+24,Y4-98)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4+60,Y4-98)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    
                                    dm.MoveTo( X4-156,Y4-62)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4-120,Y4-62)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4-84,Y4-62)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4-48,Y4-62)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4-12,Y4-62)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4+24,Y4-62)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    dm.MoveTo( X4+60,Y4-62)
                                    辅助.等待(1000)
                                    dm.RightClick()
                                    辅助.等待(2000)
                                    
                                    dm.MoveTo( X4+6,Y4+4)
                                    辅助.等待(1000)
                                    dm.LeftClick()
                                    辅助.等待(500)
                                    dm.LeftClick()
                                    dm.KeyPressChar( "P")
                                    辅助.等待(200)
                                    
                                    辅助.等待(200)
                                    dm.FindPic(0,0,364,32,"GO.bmp","000000",0.9,0,X1,Y1)
                                    如果(X1>0)
                                        辅助.等待(500)
                                        dm.MoveTo( X1-40,Y1+3)
                                        辅助.等待(300)
                                        dm.LeftClick()
                                        dm.KeyPressChar( "2")
                                        辅助.等待(300)
                                        dm.KeyPressChar( "8")
                                        辅助.等待(300)
                                        dm.KeyPressChar( "3")
                                        辅助.等待(300)
                                        dm.KeyPressChar( "Tab")
                                        辅助.等待(500)
                                        dm.KeyPressChar( "1")
                                        辅助.等待(300)
                                        dm.KeyPressChar( "0")
                                        辅助.等待(300)
                                        dm.KeyPressChar( "0")
                                        辅助.等待(500)
                                        dm.MoveTo( X1,Y1)
                                        辅助.等待(400)
                                        dm.LeftClick()
                                        辅助.等待(500)
                                        dm.KeyPressChar( "P")
                                        辅助.等待(1000)
                                        dm.FindPic(0,0,800,600,"点击.bmp","000000",0.9,0,X5,Y5)
                                        如果(X1>0)
                                            dm.MoveTo( X5+300,Y5+80)
                                            辅助.等待(400)
                                            dm.MiddleClick()
                                            辅助.等待(400)
                                        如果结束
                                    如果结束
                                如果结束
                            如果结束                                                   
                        如果结束
                    循环结束
                如果结束
            如果结束
        如果结束
    循环结束   
   
    返回 真
功能结束
功能 逻辑型 开始_点击()
    //这里添加你要执行的代码
    线程句柄1=线程.开启("后台找图.运行1","")
   
    返回 真
    //函数返回语句
功能结束
功能 逻辑型 退出_点击()
    //这里添加你要执行的代码
    线程.关闭(线程句柄1)
   
   
   
   
    返回 真
    //函数返回语句
功能结束
功能 逻辑型 初始化()
    //这里添加你要执行的代码
    逻辑型 是否成功
   
    是否成功=辅助.注册插件("rc:dm.dll",真)
   
    如果(是否成功)
        
        辅助.消息框("插件注册成功")
        
    如果结束
   
   
    返回 真
功能结束

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


实验了好多次，只能完整的执行一次，一次后就停止了，我想让整个脚本 无限循环执行。请高手给看看 哪里错了。
回复

使用道具 举报

cylhb
8#
发表于 2012-8-5 10:57:49 | 只看该作者
突然发现，好像在第2个循环内没跳出来

   dm.FindPic(0,0,800,600,"点击.bmp","000000",0.9,0,X5,Y5)
                                        如果(X1>0)
                                            dm.MoveTo( X5+300,Y5+80)
                                            辅助.等待(400)
                                            dm.MiddleClick()
                                            辅助.等待(400)
                                            跳出                                    
                                         如果结束
回复 支持 反对

使用道具 举报

龙族
10#
 楼主| 发表于 2012-8-5 11:16:36 | 只看该作者
回复 8楼cylhb的帖子

   太感谢了！因为这个我一晚上都没睡好觉，一直在想这个 呵呵。谢谢了！
回复 支持 反对

使用道具 举报

fdk3r6b
9#
发表于 2012-8-5 11:05:57 | 只看该作者
看着边学习
回复 支持 反对

使用道具 举报

龙族
7#
 楼主| 发表于 2012-8-5 10:56:30 | 只看该作者
请 高人 给指点。
回复 支持 反对

使用道具 举报

龙族
6#
 楼主| 发表于 2012-8-5 09:31:05 | 只看该作者
加了消息框 试了几次，还是不能大循环。里面的2个小循环是可以的，但是不能大循环。是不是我循环镶嵌有问题？
回复 支持 反对

使用道具 举报

龙族
5#
 楼主| 发表于 2012-8-5 08:50:59 | 只看该作者
怎么没人给解答啊？
回复 支持 反对

使用道具 举报

龙族
地板
 楼主| 发表于 2012-8-5 07:36:50 | 只看该作者
都可以找到图片的，可以顺利的从头到尾执行一遍的。但是就是不能从头再次循环。
回复 支持 反对

使用道具 举报

板凳
发表于 2012-8-5 06:50:46 | 只看该作者
你加个消息框测试下,我估计是哪一层如果没有找到图
回复 支持 反对

使用道具 举报

龙族
沙发
 楼主| 发表于 2012-8-5 02:58:37 | 只看该作者
顶到回复为止！！！！！！！！！！！
回复 支持 反对

使用道具 举报

返回列表 发新帖
*滑动验证:
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

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

GMT+8, 2025-10-13 14:26 , Processed in 0.161358 second(s), 25 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

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