- 注释:首先 在界面上放1个“按钮控件”和2个“单选框控件”。
- 注释:其次 复制以下脚本进行调试:
- 注释:判断选中情况
- Event(Form1.Button1.Click)
- 如果 Form1.铁闸宝箱.Value = 1 则
- 令 lujing = "Attachment:\tie.bmp"
- 否则如果 Form1.铜闸宝箱.Value = 1 则
- 令 lujing = "Attachment:\tong.bmp"
- 否则如果 Form1.银闸宝箱.Value = 1 则
- 令 lujing = "Attachment:\yin.bmp"
- 否则如果 Form1.古铜宝箱.Value = 1 则
- 令 lujing = "Attachment:\gutong.bmp"
- 否则如果 Form1.白银宝箱.Value = 1 则
- 令 lujing = "Attachment:\baiyin.bmp"
- 条件结束
- 令 Form1.Button1.Visible = 0
- 令 HwndEx = Window.SearchEx(IEFrame,"大乐斗",0)
- 定义变量 MyArray
- 令 MyArray = Split(HwndEx,"|")
- 如果 UBound(MyArray) >= 0 则
- 令 i = 0
- 循环 UBound(MyArray) 次
- 注释:下面这句将字符串转换成数值
- 令 i = i + 10
- 循环结束
- 调用 Window.Max(MyArray(0))
- 调用 Window.Active(MyArray(0))
- 令 Hwnd = Window.FindEx(MyArray(0),0,"Shell DocObject View",0)
- 令 daoshu = Window.FindEx(Hwnd,0,"Internet Explorer_Server",0)
- 令 chuangkou = Window.FindEx(daoshu,0,"MacromediaFlashPlayerActiveX",0)
- 标记 标记
- 延时 2000 毫秒
- 从左上到右下查找图片 lujing,把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 0.9
- 如果 x > 0 并且 y > 0 则
- (鼠标)移动到 (x + 113, y + 53)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- 否则
- 调用 打开()
- 条件结束
- 延时 2000 毫秒
- 从左上到右下查找图片 "Attachment:\queding.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
- 如果 x > 0 并且 y > 0 则
- (鼠标)移动到 (x, y)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- (鼠标)移动到 (x, y + 150)
- 延时 100 毫秒
- (鼠标)移动到 (x + 113, y + 153)
- 跳转到标记 标记
- 条件结束
- 条件结束
- (语句无法识别,可能有错误): End Event
- Event(Form1.Button2.Click)
- 令 Form1.Button1.Visible = 1
- (键盘)按 "F12" 键, 1次
- (语句无法识别,可能有错误): End Event
- 子程序 打开()
- 令 asa = chuangkou
- 延时 500 毫秒
- 从左上到右下查找图片 "Attachment:\quxiao.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
- 如果 x > 0 并且 y > 0 则
- (鼠标)移动到 (x, y)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- 条件结束
- 延时 1000 毫秒
- 从左上到右下查找图片 "Attachment:\beibao.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
- 如果 x > 0 并且 y > 0 则
- (鼠标)移动到 (x, y)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- 条件结束
- 延时 1500 毫秒
- 从左上到右下查找图片 "Attachment:\xiaye.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
- 如果 x > 0 并且 y > 0 则
- (鼠标)移动到 (x, y)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- 延时 100 毫秒
- (鼠标)移动到 (x + 20, y + 25)
- 延时 1000 毫秒
- 从左上到右下查找图片 lujing,把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 0.9
- 如果 x > 0 并且 y > 0 则
- (鼠标)移动到 (x + 113, y + 53)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- 否则
- 延时 1500 毫秒
- 从左上到右下查找图片 "Attachment:\xiaye.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
- 如果 x > 0 并且 y > 0 则
- (鼠标)移动到 (x, y)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- 延时 100 毫秒
- (鼠标)移动到 (x + 20, y + 25)
- 条件结束
- 条件结束
- 条件结束
- 延时 1000 毫秒