TC官方合作论坛

标题: 请高手给指点一下，为什么不能无限循环执行。 [打印本页]

作者: 龙族 时间: 2012-8-5 01:53
标题: 请高手给指点一下，为什么不能无限循环执行。
#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",真)

如果(是否成功)

      辅助.消息框("插件注册成功")

如果结束

返回真
功能结束

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

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

作者: 龙族 时间: 2012-8-5 02:58
顶到回复为止！！！！！！！！！！！

作者: 陌上青衣。 时间: 2012-8-5 06:50
你加个消息框测试下,我估计是哪一层如果没有找到图

作者: 龙族 时间: 2012-8-5 07:36
都可以找到图片的，可以顺利的从头到尾执行一遍的。但是就是不能从头再次循环。

作者: 龙族 时间: 2012-8-5 08:50
怎么没人给解答啊？

作者: 龙族 时间: 2012-8-5 09:31
加了消息框试了几次，还是不能大循环。里面的2个小循环是可以的，但是不能大循环。是不是我循环镶嵌有问题？

作者: 龙族 时间: 2012-8-5 10:56
请高人给指点。

作者: cylhb 时间: 2012-8-5 10:57
突然发现，好像在第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)
                                          跳出
                                       如果结束

作者: fdk3r6b 时间: 2012-8-5 11:05
看着边学习

作者: 龙族 时间: 2012-8-5 11:16
回复 8楼cylhb的帖子

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

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)