1. 子程序结束,回到调用处
  2. 子程序 什么地方Sub
  3.     RecColorArr = Array("", "", "", "", "")
  4.     RecColorArr(0) = GetPixelColor(342,192)
  5.     RecColorArr(1) = GetPixelColor(460,192)
  6.     RecColorArr(2) = GetPixelColor(608,192)
  7.     RecColorArr(3) = GetPixelColor(413,192)
  8.     RecColorArr(4) = ColorStrFindPlace(RecColorArr(0), RecColorArr(1), RecColorArr(2), RecColorArr(3), 15)
  9.     如果表达式 (RecColorArr(4)<>"") 为真,则
  10.         place = RecColorArr(4)
  11.         如果表达式 (debugon=300) 为真,则
  12.             MsgBox place,0,"什么地方Sub"
  13.         条件结束
  14.     否则
  15.         place = "未知地图"
  16.     条件结束
  17. 子程序结束,回到调用处
  18. 子程序 防卡刷新第N分钟
  19.     //防卡刷新第N分钟使用设置: TimeOutRefreshTimeArray(2)设置时间
  20.     如果表达式 (TimeOutRefreshTimeArray(0)=0) 为真,则
  21.         调用插件命令 TimeOutRefreshTimeArray(0)=GetSysInfo.GetTime()
  22.         调用插件命令 TimeOutRefreshTimeArray(1)=GetSysInfo.GetTime()
  23.     否则
  24.         调用插件命令 TimeOutRefreshTimeArray(1)=GetSysInfo.GetTime()
  25.         如果表达式 (TimeOutRefreshTimeArray(1)-TimeOutRefreshTimeArray(0)>TimeOutRefreshTimeArray(2)) 为真,则
  26.             按键<Enter>
  27.             调用子程序 刷新部分
  28.         条件结束
  29.     条件结束
  30. 子程序结束,回到调用处
  31. 子程序 防卡刷新
  32.     调用子程序 DEBUGKEY
  33.     如果表达式 (rere>20 or LastDebugKey=191) 为真,则
  34.         鼠标移到 515 , 406
  35.         左键单击
  36.         延时150毫秒
  37.         按键<Enter>
  38.         延时150毫秒
  39.         调用子程序 刷新部分
  40.     条件结束
  41.     rere=rere+1
  42. 子程序结束,回到调用处
  43. 子程序 防卡刷新60
  44.     如果表达式 (rere>60) 为真,则
  45.         鼠标移到 515 , 406
  46.         左键单击
  47.         延时150毫秒
  48.         按键<Enter>
  49.         延时150毫秒
  50.         调用子程序 刷新部分
  51.     条件结束
  52.     rere=rere+1
  53. 子程序结束,回到调用处
  54. 子程序 刷新部分
  55.     Dim RefreshResult
  56.     Dim RefreshLoop
  57.     reref = 1
  58.     rere = 0
  59.     //
  60.     RefreshResult = 0
  61.     RefreshLoop = 0
  62.     如果表达式 ((ColorCompare(GetPixelColor(503,561),"6B6D31",20)<=0 Or ColorCompare(GetPixelColor(496,627),"2928C6",25)<=0 Or RefreshLoop=0) And RefreshLoop<20) 为真,则循环执行
  63.         如果表达式 (newwindow>0) 为真,则
  64.             //关闭窗口重新打开新窗口方法
  65.             调用插件命令 Window.Close(mlxthw)
  66.             调用插件命令 mlxthw=Window.Find(0,"魔力学堂")
  67.             调用插件命令 ismlxthw=Window.IsWindow(mlxthw)
  68.             如果表达式 (ismlxthw=1) 为真,则循环执行
  69.                 调用插件命令 Window.Close(mlxthw)
  70.                 调用插件命令 mlxthw=Window.Find(0,"魔力学堂")
  71.                 调用插件命令 ismlxthw=Window.IsWindow(mlxthw)
  72.                 延时500毫秒
  73.             循环结束
  74.             //不好用...
  75.             //Plugin mlxthw=Window.Find("IEFrame",0)
  76.             //Plugin ismlxthw=Window.IsWindow(mlxthw)
  77.             //While ismlxthw=1
  78.             // Plugin Window.Close(mlxthw)
  79.             // Plugin mlxthw=Window.Find("IEFrame",0)
  80.             // Plugin ismlxthw=Window.IsWindow(mlxthw)
  81.             // Delay 500
  82.             //EndWhile
  83.             //
  84.             //强制关闭所有IE!
  85.             开始VBScript块
  86.                 dim bag,pipe
  87.                 set bag=getobject("winmgmts:\\.\root\cimv2")
  88.                 set pipe=bag.execquery("select * from win32_process where name='IEXPLORE.EXE'")
  89.                 循环 each i in pipe 遍
  90.                     i.terminate()
  91.                     next
  92.                 结束VBScript块
  93.                 延时3000毫秒
  94.                 //重新打开状态窗口
  95.                 ShowStateWin
  96.                 notexit=1
  97.                 //执行下面Sub只为了打开新窗口,设置notexit=1
  98.                 调用子程序 调整魔力学堂窗口位置Sub
  99.                 notexit=0
  100.                 延时1000毫秒