1. (语句无法识别,可能有错误): DimEnv Hwnd //定义环境变量(多线程需要)
  2. (语句无法识别,可能有错误): Global Hwnd1 //定义全局变量(多线程需要)
  3. 弹出窗口 "点击窗口运行脚本"
  4. (鼠标)等待按鼠标键
  5. (语句无法识别,可能有错误): Hwnd = Plugin.Window.MousePoint() //得到鼠标指向的窗口句柄
  6. 令 Hwnd1 = Hwnd
  7. (语句无法识别,可能有错误): BeginThread 决战30 //启动线程 决战30
  8. (语句无法识别,可能有错误): Delay 100 //延时100毫秒
  9. 令 ii = 0
  10. 循环当 ii = 0 时
  11.     注释:不要退出脚本
  12. 循环结束
  13. 脚本停止运行
  14. 子程序 决战30()
  15.     (语句无法识别,可能有错误): Hwnd2 = Hwnd1 //首先获取环境变量 窗口句柄 (用于后台执行)
  16.     注释:MessageBox "运行窗口句柄:" & Hwnd2
  17.     (语句无法识别,可能有错误): Call Plugin.Bkgnd.LeftClick(Hwnd2, 667, 30) //点击 日常标
  18.     延时 2000 毫秒
  19.     (语句无法识别,可能有错误): Call Plugin.Bkgnd.LeftClick(Hwnd2, 383, 124) //点击 决战签
  20.     延时 2000 毫秒
  21.     (语句无法识别,可能有错误): Call Plugin.Bkgnd.LeftClick(Hwnd2, 372, 294) //点击 30级决战
  22.     延时 2000 毫秒
  23.     (语句无法识别,可能有错误): Call Plugin.Bkgnd.LeftClick(Hwnd2, 473, 211) //点击 挂机停止
  24.     循环 150 次
  25.         延时 1000 毫秒
  26.         (语句无法识别,可能有错误): Call Plugin.Bkgnd.LeftClick(Hwnd2, 510, 470) //点击 进入战场
  27.         延时 2000 毫秒
  28.         令 xxyy = BkgndColor.FindColorEx(Hwnd2,496,215,500,218,"FFFFFF",0,0.9)
  29.         (语句无法识别,可能有错误): dim okok //分割字符串
  30.         令 okok = Split(xxyy,"|")
  31.         (语句无法识别,可能有错误): xx = Clng(okok(0)): yy = Clng(okok(1)) //将字符串转换成数值
  32.         如果 xx > 495 则
  33.             (语句无法识别,可能有错误): Call Plugin.Bkgnd.LeftClick(Hwnd2, 500,214) //点击 ok
  34.             注释:Msgbox "后台窗口颜色X坐标="& xx & " Y坐标=" & yy
  35.             跳出循环
  36.         条件结束
  37.         (语句无法识别,可能有错误): Call Plugin.Bkgnd.LeftClick(Hwnd2, 352,467) //点击 开始战斗
  38.         延时 3000 毫秒
  39.         (语句无法识别,可能有错误): Call Plugin.Bkgnd.LeftClick(Hwnd2, 518,247) //点击 战斗胜利确定
  40.     循环结束
  41.     弹出窗口 "今日决战任务完成"
  42. 子程序结束