按键精灵脚本源码 前后选择

按键精灵脚本源码 前后选择

脚本附件：mltb.bmp

运行环境：分辨率：1440x900 色深：16位 操作系统：Microsoft Windows XP 按键精灵版本：9.50.11632

Event Form1.Load  
    PutAttachment ".\plugin", "*.*"  
    Form1.ComboBox1.List = "先前|先后"  
    Form1.ComboBox1.ListIndex = 0  
End Event  
a = Form1.ComboBox1.ListIndex  
If a = 0 Then   
    Call qq  
ElseIf a = 1 Then  
    Call hh  
End If  
Sub qq  
    Dim tbx,tby  
    Rem ks  
    FindPic 0,0,1000,500,"Attachment:\mltb.bmp",0.9,tbX,tbY  
    //以下是条件判断；如果返回的坐标大于0，那么就说明找到了。  
    If tbX > 0 And tbY > 0 Then  
        Delay 10  
    Else   
        EndScript   
    End If   
    Do  While tbx>0  
        Delay 200  
        Randomize  
        r1 = Int((50 * Rnd) + 1)  
        r2 = Int((10 * Rnd) - 5)  
        IfColor tbx+115, tby+46, "7375FF", 0 Then  
            Delay 200+r1  
            IfColor tbx+188, tby+101, "9CBECE", 0 Then  
                MoveTo tbx+300 + r1, tby+220 + r1  
                Delay 200+r1  
                LeftClick 1  
                Delay 200+r1  
                MoveTo tbx+630+r2,tby+483+r2  
            End If  
            Goto ks  
        Else   
            IfColor tbx+395, tby+116, "FFFFFF", 0 Then  
                MoveTo tbx+225 + r2, tby+230 + r2  
                Delay 200+r1  
                IfColor 26+tbx,487+tby,"FFFFFF",0 Then        
                    LeftClick 1  
                    Delay 300 + r1  
                    LeftClick 1  
                    Delay 300 + r1  
                    MoveTo tbx+630+r2,tby+485+r2  
                    Goto ks  
                Else  
                    MoveTo tbx+162 + r2, tby+185 + r2  
                    Delay 200+r1  
                    IfColor 26+tbx,487+tby,"FFFFFF",0 Then  
                        LeftClick 1  
                        Delay 300 + r1  
                        LeftClick 1  
                        Delay 300 + r1  
                        MoveTo tbx+630+r2,tby+485+r2  
                        goto ks  
                    End If  
                End If  
            End If   
        End If   
    Loop  
End Sub   
Sub hh  
    Dim ta,tb  
    Rem kk  
    FindPic 0,0,1000,500,"Attachment:\mltb.bmp",0.9,ta,tb  
    //以下是条件判断；如果返回的坐标大于0，那么就说明找到了。  
    If ta > 0 And tb > 0 Then  
        Delay 10  
    Else   
        EndScript   
    End If  
    Do  While ta>0  
        Delay 200  
        Randomize  
        r1 = Int((50 * Rnd) + 1)  
        r2 = Int((10 * Rnd) - 5)  
        IfColor ta+115, tb+46, "7375FF", 0 Then  
            Delay 200+r1  
            IfColor ta+114, tb+111, "42CF00", 0 Then  
                MoveTo ta+320 + r1, tb+220 + r1  
                Delay 200+r1  
                LeftClick 1  
                Delay 200+r1  
                MoveTo ta+630+r2,tb+483+r2  
            End If  
            Goto kk  
        Else   
            IfColor ta+395, tb+116, "FFFFFF", 0 Then  
                MoveTo ta+162 + r2, tb+185 + r2  
                Delay 200+r1  
                IfColor 26+ta,487+tb,"FFFFFF",0 Then          
                    LeftClick 1  
                    Delay 300 + r1  
                    LeftClick 1  
                    Delay 300 + r1  
                    MoveTo ta+630+r2,tb+485+r2  
                    Goto kk  
                Else
                    MoveTo ta+225 + r2, tb+230 + r2  
                    Delay 200+r1  
                    IfColor 26+ta,487+tb,"FFFFFF",0 Then  
                        LeftClick 1  
                        Delay 300 + r1  
                        LeftClick 1  
                        Delay 300 + r1  
                        MoveTo ta+630+r2,tb+485+r2  
                        goto kk  
                    End If  
                End If  
            End If   
        End If   
    loop  
End Sub