//首先 在界面上放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