贴一个之前写的阴阳师源码，供各位学习

编译环境：某键
直接上源代码，代码编译有点乱，请大佬勿喷

If form1.ComboBox1.List = "两人队伍" Then 
    人数 = 2
ElseIf form1.ComboBox1.List = "三人队伍" Then
    人数 = 3
End If
If form1.ComboBox2.List = "公开" Then 
    权限 = 1
ElseIf form1.ComboBox1.List = "不公开" Then
    权限 = 2
Else 
    权限=1
End If
//
MessageBox "将鼠标移至窗口最左上方"
Delay 2000
GetCursorPos m, l
MessageBox "将鼠标移至窗口最右下"
Delay 2000
GetCursorPos o, k
MessageBox "记录完成，确认开始进行御魂10队长模式"
//探索
zj = 16
Rem a2
If Form1.CheckBox2.Value = true Then 
Do 
    For ts=1 to 18
       	Rem a6
        //1是主界面勾玉，2是探索界面瓦片，3是选择章节，4是探索按钮,5在副本内，6打架中的火，7式神区域进行配置，8获得奖励
        FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\zj"&zj&".bmp",0.9,x,y
        If x > 0 and y > 0 Then 
            Call 点击
            zj = 4
            Delay 1000
            Goto a6
        end if
        FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\tansuo"&ts&".bmp",0.9,x,y
        If x > 0 and y > 0 Then 
            //准备进入探索界面的判断
            If ts = 1 Then 
                For tt=1 to 8 
                    FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\探索" & tt & ".bmp", 0.9, x, y
                    Delay 100
                next
                If x > 0 and y > 0 Then 
                    Call 点击
                    shengli=1
                Else 
                    //如果不是在最中间，就点击町中
                    FindColor 0,0,1024,768,"959598",x,y
                    If x > 0 and y > 0 Then 
                        MoveTo x, y-20
                        Delay 100
                        LeftClick 1
                        Delay 1000
                    End If
                End If	
            End If
            If ts = 6 Then 
                Goto a4
            End If
            If ts = 7 Then 
                Goto a4
            End If
            //章节选择
            If ts = 2 and shengli = 1 Then 
                Delay 2000
                a = x
                b = y + 35
                pd=1
                For 5
                    MoveTo a, b
                    Delay 100
                    LeftDown 1
                    For 15
                        MoveR 0, 10
                        Delay 50
                    next			
                    LeftUp 1
                    Delay 500
                Next
                Do
                    Rem a3
                    FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\zj" & zj & ".bmp", 0.9, x, y
                    If x > 0 and y > 0 Then 
                        Call 点击
                        Delay 3000
                        Exit do
                    Else 
                        MoveTo a, b + 140
                        Delay 100
                        LeftDown 1
                        For 15
                            MoveR 0,- 10
                            Delay 50
                        next
                        LeftUp 1
                        Delay 1500
                        pd = pd + 1
                        If pd > 8 Then 
                            FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\tansuo3.bmp", 0.9, x, y
                            if x > 0 and y > 0 Then 
                                Call 点击
                                Goto a2
                            End if