1. 注释:首先 在界面上放1个“按钮控件”和2个“单选框控件”。
  2. 注释:其次 复制以下脚本进行调试:
  3. 注释:判断选中情况
  4. Event(Form1.Button1.Click)
  5. 如果 Form1.铁闸宝箱.Value = 1 则
  6.     令 lujing = "Attachment:\tie.bmp"
  7. 否则如果 Form1.铜闸宝箱.Value = 1 则
  8.     令 lujing = "Attachment:\tong.bmp"
  9. 否则如果 Form1.银闸宝箱.Value = 1 则
  10.     令 lujing = "Attachment:\yin.bmp"
  11. 否则如果 Form1.古铜宝箱.Value = 1 则
  12.     令 lujing = "Attachment:\gutong.bmp"
  13. 否则如果 Form1.白银宝箱.Value = 1 则
  14.     令 lujing = "Attachment:\baiyin.bmp"
  15. 条件结束
  16. 令 Form1.Button1.Visible = 0
  17. 令 HwndEx = Window.SearchEx(IEFrame,"大乐斗",0)
  18. 定义变量 MyArray
  19. 令 MyArray = Split(HwndEx,"|")
  20. 如果 UBound(MyArray) >= 0 则
  21.     令 i = 0
  22.     循环 UBound(MyArray) 次
  23.         注释:下面这句将字符串转换成数值
  24.         令 i = i + 10
  25.     循环结束
  26.     调用 Window.Max(MyArray(0))
  27.     调用 Window.Active(MyArray(0))
  28.     令 Hwnd = Window.FindEx(MyArray(0),0,"Shell DocObject View",0)
  29.     令 daoshu = Window.FindEx(Hwnd,0,"Internet Explorer_Server",0)
  30.     令 chuangkou = Window.FindEx(daoshu,0,"MacromediaFlashPlayerActiveX",0)
  31.     标记 标记
  32.     延时 2000 毫秒
  33.     从左上到右下查找图片 lujing,把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 0.9
  34.     如果 x > 0 并且 y > 0 则
  35.         (鼠标)移动到 (x + 113, y + 53)
  36.         延时 100 毫秒
  37.         (鼠标)左键单击, 1次
  38.     否则
  39.         调用 打开()
  40.     条件结束
  41.     延时 2000 毫秒
  42.     从左上到右下查找图片 "Attachment:\queding.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
  43.     如果 x > 0 并且 y > 0 则
  44.         (鼠标)移动到 (x, y)
  45.         延时 100 毫秒
  46.         (鼠标)左键单击, 1次
  47.         (鼠标)移动到 (x, y + 150)
  48.         延时 100 毫秒
  49.         (鼠标)移动到 (x + 113, y + 153)
  50.         跳转到标记 标记
  51.     条件结束
  52. 条件结束
  53. (语句无法识别,可能有错误): End Event
  54. Event(Form1.Button2.Click)
  55. 令 Form1.Button1.Visible = 1
  56. (键盘)按 "F12" 键, 1次
  57. (语句无法识别,可能有错误): End Event
  58. 子程序 打开()
  59.     令 asa = chuangkou
  60.     延时 500 毫秒
  61.     从左上到右下查找图片 "Attachment:\quxiao.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
  62.     如果 x > 0 并且 y > 0 则
  63.         (鼠标)移动到 (x, y)
  64.         延时 100 毫秒
  65.         (鼠标)左键单击, 1次
  66.     条件结束
  67.     延时 1000 毫秒
  68.     从左上到右下查找图片 "Attachment:\beibao.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
  69.     如果 x > 0 并且 y > 0 则
  70.         (鼠标)移动到 (x, y)
  71.         延时 100 毫秒
  72.         (鼠标)左键单击, 1次
  73.     条件结束
  74.     延时 1500 毫秒
  75.     从左上到右下查找图片 "Attachment:\xiaye.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
  76.     如果 x > 0 并且 y > 0 则
  77.         (鼠标)移动到 (x, y)
  78.         延时 100 毫秒
  79.         (鼠标)左键单击, 1次
  80.         延时 100 毫秒
  81.         (鼠标)移动到 (x + 20, y + 25)
  82.         延时 1000 毫秒
  83.         从左上到右下查找图片 lujing,把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 0.9
  84.         如果 x > 0 并且 y > 0 则
  85.             (鼠标)移动到 (x + 113, y + 53)
  86.             延时 100 毫秒
  87.             (鼠标)左键单击, 1次
  88.         否则
  89.             延时 1500 毫秒
  90.             从左上到右下查找图片 "Attachment:\xiaye.bmp",把找到的坐标保存到 (x, y),指定区域(左:0 上:0 右:2000 下:2000),相似度 1
  91.             如果 x > 0 并且 y > 0 则
  92.                 (鼠标)移动到 (x, y)
  93.                 延时 100 毫秒
  94.                 (鼠标)左键单击, 1次
  95.                 延时 100 毫秒
  96.                 (鼠标)移动到 (x + 20, y + 25)
  97.             条件结束
  98.         条件结束
  99.     条件结束
  100.     延时 1000 毫秒