1.         左键弹起
  2.         延时1000毫秒
  3.         调用插件命令 strtemp=Window.GetWindowRect(mlxthw)
  4.         mlxtwinrect=Split(strtemp,"|")
  5.         调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  6.         延时500毫秒
  7.         chxydshxhw=chxydshxhw+1
  8.     循环结束
  9.     如果表达式 (mlxtcolorx=525 And mlxtcolory=147) 为真,则
  10.         MvWinR = 2
  11.     条件结束
  12.     如果表达式 (MvWinR=0) 为真,则
  13.         //MsgBox MvWinR, 0, "特定颜色没出现"
  14.         延时100毫秒
  15.     否则如果(MvWinR=1)为真,则
  16.         //MsgBox MvWinR, 0, "移动游戏窗口失败"
  17.         延时100毫秒
  18.     条件结束
  19.     //调整窗口位置-结束
  20.     //----∧∧∧∧∧∧----
  21. 子程序结束,回到调用处
  22. 子程序 调整魔力学堂窗口位置Sub
  23.     Dim ie
  24.     延时200毫秒
  25.     调用插件命令 mlxthw=Window.Foreground()
  26.     调用插件命令 mlxttext=Window.GetText(mlxthw)
  27.     如果表达式 (InStr(mlxttext,"魔力学堂")<=0) 为真,则
  28.         //Delay 900000
  29.         开始VBScript块
  30.             Set ie=Nothing
  31.             Set ie=CreateObject("internetexplorer.application")
  32.             ie.menubar=0 '不显示IE对象菜单栏
  33.             ie.AddressBar=0 '不显示IE对象地址栏
  34.             ie.ToolBar=0 '不显示IE对象工具栏
  35.             ie.StatusBar=0 '不显示IE对象状态栏
  36.             'ie.FullScreen=1 '全屏化IE对象
  37.             ie.Width=916'设置IE对象宽度
  38.             ie.Height=620 '设置IE对象高度
  39.             ie.Left=57
  40.             ie.Top=117
  41.             ie.Resizable=0 '设置IE对象大小是否可以被改动
  42.             ie.visible=1 '设置是否可见
  43.             '//ie.Navigate "s.qeedoo.com/mc/s1/index.php" '设置IE对象默认指向的页面
  44.             ie.Navigate LoginURL
  45.             延时3000毫秒
  46.             ie.document.body.Scroll = "no"
  47.         结束VBScript块
  48.         如果表达式 (notexit<=0) 为真,则
  49.             调用子程序 脚本结束Sub
  50.         否则如果(notexit=1)为真,则
  51.             延时20000毫秒
  52.             跳转到标记 调整窗口完毕
  53.         条件结束
  54.     条件结束
  55.     调用插件命令 strtemp=Window.GetWindowRect(mlxthw)
  56.     mlxtwinrect=Split(strtemp,"|")
  57.     如果表达式 (mlxtwinrect(2)-mlxtwinrect(1)<900) 为真,则
  58.         按键<Esc>
  59.     条件结束
  60.     延时500毫秒
  61.     调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  62.     如果表达式 (Int((CInt(mlxtwinrect(0))+CInt(mlxtwinrect(2)))/2)-mlxthwx<>446) 为真,则
  63.         mlxSec = Int((CInt(mlxtwinrect(0))+CInt(mlxtwinrect(2)))/2)-446
  64.         调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  65.         如果表达式 (Int((CInt(mlxtwinrect(0))+CInt(mlxtwinrect(2)))/2)-mlxthwx<>446) 为真,则
  66.             调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  67.         条件结束
  68.     条件结束
  69.     延时500毫秒
  70.     鼠标移到 mlxthwx , mlxthwy
  71.     延时500毫秒
  72.     如果表达式 (mlxthwx<>58 or mlxthwy<>141) 为真,则
  73.         mlxthwsubx=58-mlxthwx
  74.         mlxthwsuby=141-mlxthwy
  75.         鼠标移到 mlxtwinrect(0)+50 , mlxtwinrect(1)+10
  76.         延时200毫秒
  77.         左键按下
  78.         延时200毫秒
  79.         //--先移一下
  80.         鼠标移到 100 , 30
  81.         延时100毫秒
  82.         //--
  83.         如果表达式 (mlxthwx>0 and mlxthwy>0) 为真,则
  84.             鼠标移到 mlxtwinrect(0)+50+mlxthwsubx , mlxtwinrect(1)+10+mlxthwsuby
  85.         条件结束
  86.         延时100毫秒
  87.         左键弹起
  88.         延时500毫秒
  89.         调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  90.         延时500毫秒
  91.         如果表达式 (mlxthwx<>58 or mlxthwy<>141) 为真,则
  92.             如果表达式 (debugon=1) 为真,则
  93.                 弹出窗口 "游戏窗口位置不正确!"
  94.                 按键<Print Screen>
  95.             否则如果(debugon=2)为真,则
  96.                 按键<Print Screen>
  97.             条件结束
  98.         条件结束
  99.     条件结束
  100.     标记 调整窗口完毕