//首先 在界面上放1个“按钮控件”和2个“单选框控件”。
//其次 复制以下脚本进行调试：
//判断选中情况
Event Form1.Button1.Click
    If Form1.铁闸宝箱.Value = 1 Then
        lujing="Attachment:\tie.bmp"
    ElseIf Form1.铜闸宝箱.Value = 1 Then
        lujing="Attachment:\tong.bmp"
    ElseIf Form1.银闸宝箱.Value = 1 Then
        lujing="Attachment:\yin.bmp"
    ElseIf Form1.古铜宝箱.Value = 1 Then
        lujing="Attachment:\gutong.bmp"
    ElseIf Form1.白银宝箱.Value = 1 Then
        lujing="Attachment:\baiyin.bmp"
    End If
    Form1.Button1.Visible = 0
    HwndEx = Plugin.Window.SearchEx(IEFrame, "大乐斗", 0)
    dim MyArray   
    MyArray = Split(HwndEx, "|")
    If UBound(MyArray) >= 0 Then 
        i=0   
        For UBound(MyArray)   
            //下面这句将字符串转换成数值   
            i=i+10
        Next
        Call Plugin.Window.Max(MyArray(0))
        Call Plugin.Window.Active(MyArray(0))
        Hwnd = Plugin.Window.FindEx(MyArray(0), 0, "Shell DocObject View", 0)   
        daoshu = Plugin.Window.FindEx(Hwnd, 0, "Internet Explorer_Server", 0)   
        chuangkou = Plugin.Window.FindEx(daoshu, 0, "MacromediaFlashPlayerActiveX", 0)
        Rem 标记
        Delay 2000
        FindPic 0,0,2000,2000,lujing,0.9,x,y
        If x > 0 And y > 0 Then
            MoveTo x+113, y+53
            Delay 100
            LeftClick 1
        Else 
            Call 打开()
        End If
        Delay 2000
        FindPic 0,0,2000,2000,"Attachment:\queding.bmp",1,x,y
        If x > 0 And y > 0 Then
            MoveTo x, y
            Delay 100
            LeftClick 1
            MoveTo x, y+150
            Delay 100
            MoveTo x+113, y+153
            Goto 标记
        End If
    End If
End Event
Event Form1.Button2.Click
    Form1.Button1.Visible=1
    KeyPress "F12", 1
End Event
Sub 打开()
    asa=chuangkou
    Delay 500
    FindPic 0,0,2000,2000,"Attachment:\quxiao.bmp",1,x,y
    If x > 0 And y > 0 Then
        MoveTo x, y
        Delay 100
        LeftClick 1
    End If
    Delay 1000
    FindPic 0,0,2000,2000,"Attachment:\beibao.bmp",1,x,y
    If x > 0 And y > 0 Then
        MoveTo x, y
        Delay 100
        LeftClick 1
    End If
    Delay 1500
    FindPic 0,0,2000,2000,"Attachment:\xiaye.bmp",1,x,y
    If x > 0 And y > 0 Then
        MoveTo x, y
        Delay 100
        LeftClick 1
        Delay 100
        MoveTo x+20, y+25
        Delay 1000
        FindPic 0,0,2000,2000,lujing,0.9,x,y
        If x > 0 And y > 0 Then
            MoveTo x+113, y+53
            Delay 100
            LeftClick 1
        Else 
            Delay 1500
            FindPic 0,0,2000,2000,"Attachment:\xiaye.bmp",1,x,y
            If x > 0 And y > 0 Then
                MoveTo x, y
                Delay 100
                LeftClick 1
                Delay 100
                MoveTo x+20, y+25
            End If
        End If
    End If
    Delay 1000