求指导帮忙

阿凡蓝

  a0 = dm数组[下标].Ocr(333,285,367,322, "ffffff-999999", 0.8)
        调试输出("[a0=] " & a0)
        
        a1 = dm数组[下标].Ocr(366,291,397,324, "ffffff-999999", 0.8)
        调试输出("[a1=] " &a1)
        
        a2 = dm数组[下标].Ocr(391,291,427,323, "ffffff-999999", 0.8)
        调试输出("[a2=] " &a2)
        
        a3 = dm数组[下标].Ocr(425,288,458,323, "ffffff-999999", 0.8)
        调试输出("[a3=] " &a3)
        
        a4 = dm数组[下标].Ocr(335,321,373,353, "ffffff-999999", 0.8)
        调试输出("[a4=] " &a4 )
        
        a5 = dm数组[下标].Ocr(367,321,399,358, "ffffff-999999", 0.8)
        调试输出("[a5=] " &a5)
        
        a6 = dm数组[下标].Ocr(398,321,432,353, "ffffff-999999", 0.8)
        调试输出("[a6=] " &a6)
        
        a7= dm数组[下标].Ocr(427,321,465,355, "ffffff-999999", 0.8)
        调试输出("[a7=] " &a7)
        
        如果(公共库.找图单击(340,178,464,228,"验.bmp|验证码.bmp",1,窗口句柄数组[下标],dm数组[下标])==1)
            
            如果(a0=="")
                调试输出("a0没识别出来文字")
                公共库.找图单击(262,260,550,431,"刷新.bmp|刷新1.bmp",1,窗口句柄数组[下标],dm数组[下标])
                笑傲速成秘笈.局域网答题1(下标)
            如果结束
            如果(a1=="")
                调试输出("a1没识别出来文字")
                公共库.找图单击(262,260,550,431,"刷新.bmp|刷新1.bmp",1,窗口句柄数组[下标],dm数组[下标])
                笑傲速成秘笈.局域网答题1(下标)
            如果结束
            如果(a2=="")
                调试输出("a2没识别出来文字")
                公共库.找图单击(262,260,550,431,"刷新.bmp|刷新1.bmp",1,窗口句柄数组[下标],dm数组[下标])
                笑傲速成秘笈.局域网答题1(下标)
            如果结束
            如果(a3=="")
                调试输出("a3没识别出来文字")
                公共库.找图单击(262,260,550,431,"刷新.bmp|刷新1.bmp",1,窗口句柄数组[下标],dm数组[下标])
                笑傲速成秘笈.局域网答题1(下标)
            如果结束
            如果(a4=="")
                调试输出("a4没识别出来文字")
                公共库.找图单击(262,260,550,431,"刷新.bmp|刷新1.bmp",1,窗口句柄数组[下标],dm数组[下标])
                笑傲速成秘笈.局域网答题1(下标)
            如果结束
            如果(a5=="")
                调试输出("a5没识别出来文字")
                公共库.找图单击(262,260,550,431,"刷新.bmp|刷新1.bmp",1,窗口句柄数组[下标],dm数组[下标])
                笑傲速成秘笈.局域网答题1(下标)
            如果结束
            如果(a6=="")
                调试输出("a6没识别出来文字")
                公共库.找图单击(262,260,550,431,"刷新.bmp|刷新1.bmp",1,窗口句柄数组[下标],dm数组[下标])
                笑傲速成秘笈.局域网答题1(下标)
            如果结束
            如果(a7=="")
                调试输出("a7没识别出来文字")
                公共库.找图单击(262,260,550,431,"刷新.bmp|刷新1.bmp",1,窗口句柄数组[下标],dm数组[下标])
                笑傲速成秘笈.局域网答题1(下标)
            如果结束
            //线程.暂停(任务Id)  
            
        如果结束   
        
        
        字符串1 = a0&a1&a2&a3&a4&a5&a6&a7
        调试输出("[字符串1 =]" & 字符串1)
        字符串2 = 字符串.倒序(字符串1)
        调试输出("[字符串2 =]" & 字符串2)
        
        位置1 = 字符串.查找字符串(字符串1,a0)
        调试输出("[位置1]" & 位置1 )
        位置2 = 字符串.查找字符串(字符串2,a0)
        调试输出("[位置2]" & 位置2 )
        如果(位置1+位置2 != 7)
            第一字出现位置 = 位置1
            第二字出现位置 = 位置2
            
            位置3 = 第一字出现位置
            位置4 = 第二字出现位置
            调试输出("a0第一字返回位置==" &位置3)
            调试输出("a0第二字返回逆位置==" &位置4)
            笑傲速成秘笈.点击位置1(下标,位置3,位置4)
        否则  
            调试输出("===========================")
            位置1 = 字符串.查找字符串(字符串1,a1)
            调试输出("[位置1]" & 位置1 )
            位置2 = 字符串.查找字符串(字符串2,a1)
            调试输出("[位置2]" & 位置2 )
            如果(位置1+位置2 != 7)
                第一字出现位置 = 位置1
                第二字出现位置 = 位置2
               
                位置3 = 第一字出现位置
                位置4 = 第二字出现位置
                //调试输出("a1第一字返回位置==" &位置3)
                //调试输出("a1第二字返回逆位置==" &位置4)
                //调试输出("a1有相同字== "&第一字出现位置 )
                笑傲速成秘笈.点击位置1(下标,位置3,位置4)
            否则  
                调试输出("111111111")
                位置1 = 字符串.查找字符串(字符串1,a2)
                调试输出("[位置1]" & 位置1 )
                位置2 = 字符串.查找字符串(字符串2,a2)
                调试输出("[位置2]" & 位置2 )
                如果(位置1+位置2 != 7)
                    第一字出现位置 = 位置1
                    第二字出现位置 = 位置2
                    调试输出("答题2有相同字8 " )
                    位置3 = 第一字出现位置
                    位置4 = 第二字出现位置
                    //调试输出("a2第一字返回位置==" &位置3)
                    //调试输出("a2第二字返回逆位置==" &位置4)
                    //调试输出("a2有相同字== "&第一字出现位置 )
                    笑傲速成秘笈.点击位置1(下标,位置3,位置4)
                否则  
                    调试输出("111111112")
                    位置1 = 字符串.查找字符串(字符串1,a3)
                    调试输出("[位置1]" & 位置1 )
                    位置2 = 字符串.查找字符串(字符串2,a3)
                    调试输出("[位置2]" & 位置2 )
                    如果(位置1+位置2 != 7)
                        第一字出现位置 = 位置1
                        第二字出现位置 = 位置2
                        位置3 = 第一字出现位置
                        位置4 = 第二字出现位置
                        //调试输出("a3第一字返回位置==" &位置3)
                        //调试输出("a3第二字返回逆位置==" &位置4)
                        //调试输出("a3有相同字== "&第一字出现位置 )
                        
                        笑傲速成秘笈.点击位置1(下标,位置3,位置4)
                    否则  
                        调试输出("111111113")
                        位置1 = 字符串.查找字符串(字符串1,a4)
                        调试输出("[位置1]" & 位置1 )
                        位置2 = 字符串.查找字符串(字符串2,a4)
                        调试输出("[位置2]" & 位置2 )
                        如果(位置1+位置2 != 7)
                            第一字出现位置 = 位置1
                            第二字出现位置 =  位置2
                            位置3 = 第一字出现位置
                            位置4 = 第二字出现位置
                            //调试输出("a4第一字返回位置==" &位置3)
                            //调试输出("a4第二字返回逆位置==" &位置4)
                            //调试输出("a4有相同字== "&第一字出现位置 )
                            笑傲速成秘笈.点击位置1(下标,位置3,位置4)
                        否则  
                            调试输出("111111114")
                            位置1 = 字符串.查找字符串(字符串1,a5)
                            调试输出("[位置1]" & 位置1 )
                            位置2 = 字符串.查找字符串(字符串2,a5)
                            调试输出("[位置2]" & 位置2 )
                            如果(位置1+位置2 != 7)
                                第一字出现位置 = 位置1
                                第二字出现位置 =  位置2
                                
                                位置3 = 第一字出现位置
                                位置4 = 第二字出现位置
                                //调试输出("a5第一字返回位置==" &位置3)
                                //调试输出("a5第二字返回逆位置==" &位置4)
                                //调试输出("a5有相同字== "&第一字出现位置 )
                                
                                笑傲速成秘笈.点击位置1(下标,位置3,位置4)
                            否则  
                                调试输出("111111115")
                                位置1 = 字符串.查找字符串(字符串1,a6)
                                调试输出("[位置1]" & 位置1 )
                                位置2 = 字符串.查找字符串(字符串2,a6)
                                调试输出("[位置2]" & 位置2 )
                                如果(位置1+位置2 != 7)
                                    第一字出现位置 = 位置1
                                    第二字出现位置 =  位置2
                                    位置3 = 第一字出现位置
                                    位置4 = 第二字出现位置
                                    //调试输出("a6第一字返回位置==" &位置3)
                                    //调试输出("a6第二字返回逆位置==" &位置4)
                                    //调试输出("a6有相同字== "&第一字出现位置)
                                    
                                    笑傲速成秘笈.点击位置1(下标,位置3,位置4)
                                否则  
                                    调试输出("111111116")
                                    位置1 = 字符串.查找字符串(字符串1,a7)
                                    调试输出("[位置1]" & 位置1 )
                                    位置2 = 字符串.查找字符串(字符串2,a7)
                                    调试输出("[位置2]" & 位置2 )
                                    如果(位置1+位置2 != 7)
                                        第一字出现位置 = 位置1
                                        第二字出现位置 =  位置2
                                        位置3 = 第一字出现位置
                                        位置4 = 第二字出现位置
                                        //调试输出("a7第一字返回位置==" &位置3)
                                        //调试输出("a7第二字返回逆位置==" &位置4)
                                        //调试输出("a7有相同字== "&第一字出现位置)
                                       
                                        笑傲速成秘笈.点击位置1(下标,位置3,位置4)
                                    否则  
                                        调试输出("a7没有相同字"&a7)
                                        公共库.找图单击(262,260,550,431,"刷新.bmp",1,窗口句柄数组[下标],dm数组[下标])
                                    如果结束
                                如果结束
                            如果结束
                        如果结束
                    如果结束
                如果结束
            如果结束
        如果结束
        
    如果结束
功能结束  
//=======================================================================
功能 点击位置1(下标,位置3,位置4)
    延迟 = 辅助.随机数(100,500)
   
    调试输出("-------跳转成功----跳转成功------")
    调试输出(位置3)
    调试输出(位置4)
    如果(位置3==-1)
        公共库.找图单击(262,260,550,431,"刷新.bmp",1,窗口句柄数组[下标],dm数组[下标])
        
    如果结束
    如果(位置3 == 0)
        调试输出("位置3 == 0")
        公共库.鼠标移动单击(353,307,延迟,dm数组[下标],假)
        调试输出("鼠标点击a1的识别范围" )
        调试输出("第一字点击成功")
        a0 = dm数组[下标].Ocr(333,285,367,322, "ffffff-999999", 0.8)
        调试输出("[a0=] " & a0)
        笑傲速成秘笈.倒序(下标,位置3,位置4)
    否则
        
        如果(位置3 == 1)
            调试输出("位置3 == 1")
            公共库.鼠标移动单击(382,306,延迟,dm数组[下标],假)
            调试输出("鼠标点击a2的识别范围" )
            调试输出("位置3 == 1 点击成功")
            a1 = dm数组[下标].Ocr(366,291,397,324, "ffffff-999999", 0.8)
            调试输出("[a1=] " &a1)
            笑傲速成秘笈.倒序(下标,位置3,位置4)
        否则
            
            如果(位置3 == 2)
                调试输出("位置3 == 2")
                公共库.鼠标移动单击(415,308,延迟,dm数组[下标],假)
                调试输出("鼠标点击a3的识别范围" )
                调试输出("位置3 == 2 点击成功")
                a2 = dm数组[下标].Ocr(391,291,427,323, "ffffff-999999", 0.8)
                调试输出("[a2=] " &a2)
                笑傲速成秘笈.倒序(下标,位置3,位置4)
            否则
               
               
                如果(位置3 == 3)
                    公共库.鼠标移动单击(440,308,延迟,dm数组[下标],假)
                    
                    调试输出("鼠标点击a4的识别范围" )
                    调试输出("位置3 == 3 点击成功")
                    a3 = dm数组[下标].Ocr(425,288,458,323, "ffffff-999999", 0.8)
                    调试输出("[a3=] " &a3)
                    笑傲速成秘笈.倒序(下标,位置3,位置4)
                否则
                    
                    如果(位置3 == 4)
                        公共库.鼠标移动单击(353,339,延迟,dm数组[下标],假)
                        
                        调试输出("鼠标点击a5的识别范围" )
                        调试输出("位置3 == 4 点击成功")
                        a4 = dm数组[下标].Ocr(335,321,373,353, "ffffff-999999", 0.8)
                        调试输出("[a4=] " &a4 )
                        笑傲速成秘笈.倒序(下标,位置3,位置4)
                    否则
                        
                        如果(位置3 == 5)
                            公共库.鼠标移动单击(382,336,延迟,dm数组[下标],假)
                           
                            调试输出("鼠标点击a6的识别范围" )
                            调试输出("位置3 == 5 点击成功")
                            a5 = dm数组[下标].Ocr(367,321,399,358, "ffffff-999999", 0.8)
                            调试输出("[a5=] " &a5)
                            笑傲速成秘笈.倒序(下标,位置3,位置4)
                        否则
                           
                            如果(位置3 == 6)
                                公共库.鼠标移动单击(353,339,延迟,dm数组[下标],假)
                                调试输出("鼠标点击a7的识别范围" )
                                调试输出("位置3 == 6 点击成功")
                                a6 = dm数组[下标].Ocr(398,321,432,353, "ffffff-999999", 0.8)
                                调试输出("[a6=] " &a6)
                                笑傲速成秘笈.倒序(下标,位置3,位置4)
                            否则
                                
                                如果(位置3 == 7)
                                    公共库.鼠标移动单击(411,336,延迟,dm数组[下标],假)
                                    调试输出("鼠标点击a8的识别范围" )
                                    调试输出("位置3 == 7 点击成功")
                                    a7= dm数组[下标].Ocr(427,321,465,355, "ffffff-999999", 0.8)
                                    调试输出("[a7=] " &a7)
                                    笑傲速成秘笈.倒序(下标,位置3,位置4)
                                否则  
                                    
                                    调试输出("位置3 == 7 xxxx")
                                如果结束
                                调试输出("位置3 == 6xxxx")
                            如果结束
                            调试输出("位置3 == 5xxxx")
                        如果结束
                        调试输出("位置3 == 4 xxxx")
                    如果结束   
                    调试输出("位置3 == 3 xxxx")
                如果结束
                调试输出("位置3 == 2 xxxx")
            如果结束
            调试输出("位置3 == 1 xxxx")
        如果结束
        调试输出("位置3 == 0 xxxx")
    如果结束
功能结束   
//===============倒序第二个字==========================  
功能 倒序(下标,位置3,位置4)
    变量 对象
    延迟 = 辅助.随机数(100,500)
    调试输出("进入倒序")
    如果(位置4==-1)
        公共库.找图单击(262,260,550,431,"刷新.bmp",1,窗口句柄数组[下标],dm数组[下标])
    如果结束
    如果(位置4 == 0)
        公共库.鼠标移动单击(445,337,延迟,dm数组[下标],假)
        
        调试输出("鼠标点击a0的识别范围" )
        调试输出("位置4 == 0 点击成功")
        a0 = dm数组[下标].Ocr(333,285,367,322, "ffffff-999999", 0.8)
        调试输出("[a0=] " & a0)
        笑傲速成秘笈.确认(下标,对象)
    否则
        调试输出("位置4 == 0 xxxx")
        如果(位置4 == 1)
            公共库.鼠标移动单击(412,335,延迟,dm数组[下标],假)
            
            调试输出("鼠标点击a1的识别范围" )
            调试输出("位置4 == 1 点击成功")
            a1 = dm数组[下标].Ocr(366,291,397,324, "ffffff-999999", 0.8)
            调试输出("[a1=] " &a1)
            笑傲速成秘笈.确认(下标,对象)
        否则
            
            调试输出("位置4 == 1xxxx")
            如果(位置4 == 2)
                公共库.鼠标移动单击(382,338,延迟,dm数组[下标],假)
               
                调试输出("鼠标点击a2的识别范围" )
                调试输出("位置4 == 2 点击成功")
                a2 = dm数组[下标].Ocr(391,291,427,323, "ffffff-999999", 0.8)
                调试输出("[a2=] " &a2)
                笑傲速成秘笈.确认(下标,对象)
            否则
               
                调试输出("位置4 == 2xxxx")
                如果(位置4 == 3)
                    公共库.鼠标移动单击(356,336,延迟,dm数组[下标],假)
                    
                    调试输出("鼠标点击a3的识别范围" )
                    调试输出("位置4 == 3 点击成功")
                    a3 = dm数组[下标].Ocr(425,288,458,323, "ffffff-999999", 0.8)
                    调试输出("[a3=] " &a3)
                    笑傲速成秘笈.确认(下标,对象)
                否则
                    
                    调试输出("位置4 == 2 xxxx")
                    如果(位置4 == 4)
                        公共库.鼠标移动单击(443,307,延迟,dm数组[下标],假)
                        
                        调试输出("鼠标点击a4的识别范围" )
                        调试输出("位置4 == 4 点击成功")
                        a4 = dm数组[下标].Ocr(335,321,373,353, "ffffff-999999", 0.8)
                        调试输出("[a4=] " &a4 )
                        笑傲速成秘笈.确认(下标,对象)
                    否则         
                        
                        调试输出("位置4 == 4 xxxx")
                        如果(位置4 == 5)
                           
                            调试输出("位置3 == 2")
                            公共库.鼠标移动单击(416,308,延迟,dm数组[下标],假)
                           
                            调试输出("鼠标点击a5的识别范围" )
                            调试输出("位置4 == 5 点击成功")
                            a5 = dm数组[下标].Ocr(367,321,399,358, "ffffff-999999", 0.8)
                            调试输出("[a5=] " &a5)
                            笑傲速成秘笈.确认(下标,对象)
                        否则
                           
                            调试输出("位置4 == 5 xxxx")
                            如果(位置4 == 6)
                                调试输出("位置4 == 1")
                                公共库.鼠标移动单击(382,308,延迟,dm数组[下标],假)
                                
                                调试输出("鼠标点击a6的识别范围" )
                                调试输出("位置4 == 6 点击成功")
                                a6 = dm数组[下标].Ocr(398,321,432,353, "ffffff-999999", 0.8)
                                调试输出("[a6=] " &a6)
                                笑傲速成秘笈.确认(下标,对象)
                            否则   
                                
                                调试输出("位置4 == 1 xxxx")
                                如果(位置4== 7)
                                    调试输出("位置3 == 0")
                                    公共库.鼠标移动单击(351,305,延迟,dm数组[下标],假)
                                    
                                    调试输出("鼠标点击a7的识别范围" )
                                    调试输出("位置4 == 7 点击成功")
                                    a7= dm数组[下标].Ocr(427,321,465,355, "ffffff-999999", 0.8)
                                    调试输出("[a7=] " &a7)
                                    笑傲速成秘笈.确认(下标,对象)
                                    
                                否则
                                    
                                    调试输出("位置4 == 0 xxxx")
                                如果结束
                            如果结束
                        如果结束
                    如果结束
                如果结束
            如果结束
        如果结束
    如果结束
功能结束   



这个是我写的 某游戏 过验证的，
我感觉代码太多了，看着也不专业， 求专业代码实现精简。
我讲一下

===============================
8个字 依次 12345678   识别，
如果8个字有识别为空的   点击刷新 从新识别，
8个字都识别出来不为空 ，之后 进行 8个字对比，
找到2个相同的字，进行 鼠标点击，，2个字点击成功后，
点击确定。
求大神修改 帮助学习。3个牛