TC官方合作论坛

标题: 求帮忙看这段源码自动闪退崩溃的原因 [打印本页]

作者: hnbc520 时间: 2016-1-14 11:14
标题: 求帮忙看这段源码自动闪退崩溃的原因
功能师门任务(参数)
变量判断=1,情况,情,下标=参数,X,Y
情=0
等待(400)
dm[下标].FindStr(879,559,957,638,"自动","62f3fa-202020",0.8,X,Y)
如果(X>0)
      dm[下标].MoveTo(X,Y)
      等待(100)
      dm[下标].LeftClick()
      等待(500)
否则
      dm[下标].FindPic(392,37,549,203, 获取资源路径("rc:关小.bmp"), "202020", 0.9, 0, X, Y)
      如果(X>0)
         dm[下标].MoveTo(X,Y)
         等待(100)
         dm[下标].LeftClick()
         等待(500)
      结束
      dm[下标].FindStr(724,96,963,452,"宠物1|宠物|抓宠","fafa01-202020",0.8,X,Y)
      如果(X>0)
         情=1
         等待(100)

      结束
      dm[下标].FindPic(598,422,808,567, 获取资源路径("rc:领取.bmp"), "202020", 0.9, 0, X, Y)
      如果(X>0)
         dm[下标].MoveTo(X,Y)
         等待(100)
         dm[下标].LeftClick()
         等待(500)
         跳=0
      否则
         dm[下标].FindPic(368,427,448,470, 获取资源路径("rc:对话.bmp"), "202020", 0.9, 0, X, Y)
         如果(X>0)
            循环(真)
                  dm[下标].FindPic(368,427,448,470, 获取资源路径("rc:对话.bmp"), "202020", 0.9, 0, X, Y)
                  如果(X>0)
                     dm[下标].MoveTo(X,Y)
                     等待(100)
                     dm[下标].LeftClick()
                     等待(500)
                  否则
                     等待(300)
                     跳出
                  结束
                  跳=0
            结束
         否则
            dm[下标].FindPic(795,292,957,629, 获取资源路径("rc:正在战斗.bmp|rc:正在战斗1.bmp"), "020202", 0.9, 0, X, Y)
            如果(X>0)
                  循环(真)
                     等待(600)
                     dm[下标].FindPic(795,292,957,629, 获取资源路径("rc:正在战斗.bmp|rc:正在战斗1.bmp"), "020202", 0.9, 0, X, Y)
                     如果(X>0)
                        等待(1000)
                     否则
                        如果(正在发言=="0")
                              等待(1000)
                        否则
                              等待(300)
                              跳出
                        结束
                     结束
                  结束
                  跳=0
            否则
                  dm[下标].FindPic(4,83,68,359, 获取资源路径("rc:日程.bmp|rc:日程1.bmp"), "202020", 0.9, 0, X, Y)
                  如果(X>0)
                     dm[下标].MoveTo(X,Y)
                     等待(100)
                     dm[下标].LeftClick()
                     等待(1200)
                     dm[下标].FindPic(100,147,854,180, 获取资源路径("rc:师门.bmp"), "202020", 0.9, 0, X, Y)
                     变量比1,比2,比值=0
                     如果(X>0)
                        跳=0
                        dm[下标].MoveTo(X+23,Y+209)
                        等待(100)
                        dm[下标].LeftClick()
                        等待(100)
                        循环(真)
                              比值=比值+1
                              等待(500)
                              如果(比值>19)
                                 跳出
                              结束
                              dm[下标].FindPic(672,5,951,394, 获取资源路径("rc:关闭1.bmp|rc:关闭.bmp|rc:关闭2.bmp"), "202020", 0.9, 0, X, Y)
                              如果(X>0)
                                 dm[下标].MoveTo(X,Y)
                                 等待(100)
                                 dm[下标].LeftClick()
                                 等待(500)
                              结束
                              dm[下标].FindPic(550,300,906,463, 获取资源路径("rc:领取任务.bmp"), "020202", 0.9, 0, X, Y)
                              如果(X>0)
                                 比值=0
                                 dm[下标].MoveTo(X,Y)
                                 等待(100)
                                 dm[下标].LeftClick()
                                 等待(500)
                              否则
                                 dm[下标].FindPic(447,420,840,553, 获取资源路径("rc:给予.bmp"), "020202", 0.9, 0, X, Y)
                                 如果(X>0)
                                    比值=0
                                    dm[下标].MoveTo(X,Y)
                                    等待(100)
                                    dm[下标].LeftClick()
                                    等待(500)
                                 否则
                                    dm[下标].FindStr(724,96,963,452,"宠物1|宠物|抓宠","fafa01-202020",0.8,X,Y)
                                    如果(X=="-1")
                                          等待(200)
                                    否则
                                          情=1
                                          等待(200)
                                    结束
                                    dm[下标].FindPic(168,480,897,587, 获取资源路径("rc:购买.bmp|rc:购买1.bmp"), "202020", 0.9, 0, X, Y)
                                    如果(X>0)
                                          如果(情=="1")
                                             dm[下标].FindPic(72,110,353,551, 获取资源路径("rc:点宠物.bmp"), "202020", 0.9, 0, X, Y)
                                             如果(X>0)
                                                dm[下标].MoveTo(X,Y)
                                                等待(100)
                                                dm[下标].LeftClick()
                                                等待(500)
                                             否则
                                                dm[下标].MoveTo(210,396)
                                                等待(100)
                                                dm[下标].LeftDown()
                                                等待(500)
                                                dm[下标].MoveTo(202,135)
                                                等待(100)
                                                dm[下标].LeftUp()
                                                等待(500)
                                             结束
                                          结束
                                          变量小循环=0
                                          循环(真)
                                             dm[下标].FindPic(151,63,867,552, 获取资源路径("rc:需求.bmp"), "202020", 0.9, 0, X, Y)
                                             如果(X>0)
                                                等待(200)
                                                跳出
                                             否则
                                                小循环=小循环+1
                                                dm[下标].MoveTo(830,569)
                                                等待(100)
                                                dm[下标].LeftClick()
                                                等待(200)
                                             结束
                                             如果(小循环>5)
                                                等待(200)
                                                跳出
                                             结束
                                             等待(700)
                                          结束
                                          dm[下标].FindPic(168,480,897,587, 获取资源路径("rc:购买.bmp|rc:购买1.bmp"), "202020", 0.9, 0, X, Y)
                                          dm[下标].MoveTo(X,Y)
                                          等待(100)
                                          dm[下标].LeftClick()
                                          等待(500)
                                          跳出
                                    否则
                                          dm[下标].FindStr(879,559,957,638,"自动","62f3fa-202020",0.8,X,Y)
                                          如果(X>0)
                                             dm[下标].MoveTo(X,Y)
                                             等待(100)
                                             dm[下标].LeftClick()
                                             等待(500)
                                          结束
                                          dm[下标].FindPic(795,292,957,629, 获取资源路径("rc:正在战斗.bmp|rc:正在战斗1.bmp"), "020202", 0.9, 0, X, Y)
                                          如果(X>0)
                                             等待(600)
                                             循环(真)
                                                dm[下标].FindPic(795,292,957,629, 获取资源路径("rc:正在战斗.bmp|rc:正在战斗1.bmp"), "020202", 0.9, 0, X, Y)
                                                如果(X>0)
                                                      等待(1000)
                                                否则
                                                      如果(正在发言=="0")
                                                         等待(1000)
                                                      否则
                                                         等待(200)
                                                         跳出
                                                      结束
                                                结束
                                             结束
                                             跳出
                                          否则
                                             dm[下标].FindPic(368,427,448,470, 获取资源路径("rc:对话.bmp"), "020202", 0.9, 0, X, Y)
                                             如果(X>0)
                                                循环(真)
                                                      dm[下标].FindPic(368,427,448,470, 获取资源路径("rc:对话.bmp"), "020202", 0.9, 0, X, Y)
                                                      如果(X>0)
                                                         dm[下标].MoveTo(X,Y)
                                                         等待(100)
                                                         dm[下标].LeftClick()
                                                         等待(500)
                                                      否则
                                                         等待(200)
                                                         跳出
                                                      结束
                                                结束
                                                跳出
                                             否则
                                                如果(比值>19)
                                                      比1=dm[下标].GetColor(440,11)
                                                      等待(1000)
                                                      比2=dm[下标].GetColor(440,11)
                                                      如果(比1==比2)
                                                         等待(200)
                                                         跳出
                                                      结束
                                                否则
                                                      dm[下标].FindPic(672,5,951,394, 获取资源路径("rc:关闭1.bmp|rc:关闭.bmp|rc:关闭2.bmp"), "202020", 0.9, 0, X, Y)
                                                      如果(X>0)
                                                         dm[下标].MoveTo(X,Y)
                                                         等待(100)
                                                         dm[下标].LeftClick()
                                                         等待(500)
                                                      否则
                                                         如果(比值>9)
                                                            比1=dm[下标].GetColor(280,81)
                                                            等待(1000)
                                                            比2=dm[下标].GetColor(280,81)
                                                            如果(比1==比2)
                                                                  等待(200)
                                                                  跳出
                                                            结束
                                                         结束
                                                      结束
                                                结束
                                             结束
                                          结束
                                    结束
                                 结束
                              结束
                        结束
                        等待(200)
                        记录=时间时(当前时间())&":"&时间分(当前时间())&":"&时间秒(当前时间())&":"
                        列表框增加文本("列表框_记录",记录&" [完成一次师门任务]"&下标)
                     结束
                  否则
                     dm[下标].FindPic(432,13,541,65, 获取资源路径("rc:奖励.bmp"), "202020", 0.9, 0, X, Y)
                     如果(X>0)
                        跳=0
                        dm[下标].MoveTo(828,140)
                        等待(100)
                        dm[下标].LeftClick()
                        等待(500)
                     否则
                        dm[下标].FindPic(827,15,944,153, 获取资源路径("rc:关闭.bmp|rc:关闭1.bmp|rc:关闭2.bmp"), "202020", 0.9, 0, X, Y)
                        如果(X>0)
                              跳=跳+1
                              dm[下标].MoveTo(X,Y)
                              等待(100)
                              dm[下标].LeftClick()
                              等待(500)
                        否则
                              dm[下标].FindPic(373,166,586,256, 获取资源路径("rc:入帮.bmp"), "202020", 0.9, 0, X, Y)
                              如果(X>0)
                                 跳=0
                                 dm[下标].MoveTo(360,431)
                                 等待(100)
                                 dm[下标].LeftClick()
                                 等待(500)
                              否则
                                 等待(1000)
                                 跳=跳+1
                              结束
                        结束
                     结束
                  结束
            结束
         结束
      结束
      等待(200)
结束

作者: hnbc520 时间: 2016-1-14 19:41
没有人？解决的了吗？

作者: by烟仔 时间: 2016-1-15 03:51
这是单线程嘛？你是多线程

作者: by烟仔 时间: 2016-1-15 03:57
虽然我是新人，不过我写过如果和循环套用多了不是脚本散退，而是根本就会执行。不动，用多线程就会动了！貌似不能这样写？新人大神勿喷！如果有大神看见请说个正确的写法。我说的只代表我个人看法，因为才接触5.5不到2个星期！谢谢，重要的说三遍，别喷我，别喷我，别喷我！如果我说错了，我虚心接受！

作者: baby杰杰 时间: 2016-1-15 10:15
这么复杂。。。。我晕了

作者: yhmjh 时间: 2016-1-15 10:21
里面逻辑太多了，多用几个function吧，这样的话方便调试，出错了容易改啊

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