- 用户定义变量 yd_time=500 遇敌时长
- 用户定义变量 Var1=DropList{战士:1|法师:2}=0 设置角色
- 调用外部VBScript子程序 RunApp("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
- 延时1000毫秒
- 调用插件命令 Hwnd = Window.Foreground()
- 调用插件命令 Window.Max(Hwnd)
- 延时300毫秒
- //输入游戏网址
- 按住 <Ctrl>
- 延时32毫秒
- 按键 <Tab>
- 延时32毫秒
- 弹起 <Ctrl>
- 延时32毫秒
- 输入文本 "http://www.vrbrothers.com/cn/qmacro/lab/content_03.html"
- 延时100毫秒
- 按键 <Enter>
- 延时32毫秒
- //----------------------------华丽的分割线-------------------------
- 标记 登录游戏
- 调用外部VBScript子程序 RunApp("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
- 如果表达式 (ks_intX>0) 为真,则
- 鼠标移到 ks_intX+5 , ks_intY+5
- 延时100毫秒
- 左键单击
- 延时1000毫秒
- 否则
- 延时1000毫秒
- 跳转到标记 登录游戏
- 条件结束
- //----------------------------华丽的分割线-------------------------
- 标记 开始
- 调用子程序 补红蓝
- 按住 <Right>
- 延时yd_time毫秒
- 弹起 <Right>
- 调用子程序 杀怪
- 按住 <Left>
- 延时yd_time毫秒
- 弹起 <Left>
- 调用子程序 杀怪
- 跳转到标记 开始
- //----------------------------华丽的分割线-------------------------
- 子程序 杀怪
- 调用外部VBScript子程序 RunApp("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
- 如果表达式 (gj_intX>0) 为真,则
- 跳转到标记 杀1
- 否则
- 跳转到标记 杀怪结束
- 条件结束
- 标记 杀1
- 如果 (1084,324) 的颜色等于 #66ff 则
- 鼠标移到 748 , 430
- 延时100毫秒
- 如果表达式 (Var1=1) 为真,则
- 左键双击
- 否则如果(1)为真,则
- Var1=2
- 按键 <2>
- 延时32毫秒
- 左键双击
- 条件结束
- 延时100毫秒
- 条件结束
- 标记 杀2
- 如果 (1109,313) 的颜色等于 #66ff 则
- 鼠标移到 832 , 395
- 延时100毫秒
- 如果表达式 (Var1=1) 为真,则
- 左键双击
- 否则如果(1)为真,则
- Var1=2
- 按键 <2>
- 延时32毫秒
- 左键双击
- 条件结束
- 延时100毫秒
- 条件结束
- 标记 杀3
- 如果 (1132,308) 的颜色等于 #66ff 则
- 鼠标移到 912 , 373
- 延时100毫秒
- 如果表达式 (Var1=1) 为真,则
- 左键双击
- 否则如果(1)为真,则
- Var1=2
- 按键 <2>
- 延时32毫秒
- 左键双击
- 条件结束
- 延时100毫秒
- 条件结束
- 标记 杀怪结束
- 子程序结束,回到调用处
- 子程序 补红蓝
- 如果 (778,298) 的颜色不等于 #66ff 则
- 按键 <3>
- 延时100毫秒
- 条件结束
- 子程序结束,回到调用处