- //我不懂VBS,写的不好的是方欢迎踩下
- //【功能说明】
- //代替人手操作,长时间稳定地打怪(前台).
- //防卡检查,自动登录,智能/自动打怪(功能未完整,存在BUG).
- //自动寻路到练级地方打怪(目前只能自动到达角色所在附近地图,高级地图脚本没写完...我等级低)
- //通过游戏数学验证(必须安装文字识另插件DBSoft).
- //
- //【使用说明】
- //1.此脚本运行在1027×768 以上,16位色,保证IE.正常工作
- //2.关闭所有IE和多余的窗口.
- //3.使用快捷键运行脚本,运行后自动弹出游戏介面.
- //4.登录游戏,登录时将 "保存账号" 选上
- //5.在可遇怪地方运行脚本.
- //注意登录后请不要移动游戏内任何介面.
- //
- //游戏中必须设置的快捷键:
- // 键9.HP回复药 键0.MP回复药
- //如设置战后恢HP%/MP%回复大于0,需要设的快捷键:
- // 键7.HP回复药 键8.MP回复药
- //
- //=============∨∨∨设置例子∨∨∨=============
- //阳光猎人
- //游戏按键 键1.奋力投球[等级4] 键3.奋力投球[等级5] 键5.紧急包扎
- // 键7.便价HP回复药 键8.便价MP回复药
- // 键9.战斗HP回复药 键0.战斗MP回复药
- // 背包第一个为宠物忠诚恢复药水
- // 充许交易,充许组队 选项清掉
- //=============∧∧∧设置例子∧∧∧=============
- //
- //
- //
- 延时1000毫秒
- //===================BUG修正====================
- //修正GetPixelColor不能直接使用
- 调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
- //注册大兵插件
- 调用插件命令 DBSoft.RegDBSoft("F27873CF2364C2129452C57003F97017")
- //==============================================
- //
- //======================∨∨∨初始设置∨∨∨======================
- //变量
- 用户定义变量 debugon=0 (打开DEBUG - 1:Msgbox | 2:截图 | 116:F5刷新测试)
- 用户定义变量 LoginURL="s.qeedoo.com/mc/s1/" (游戏登录介面URL,不带双引号)
- 用户定义变量 LoginPWD="PSW" (游戏登录密码!注意保管好自己密码!不带双引号)
- 用户定义变量 LoginCharacher=DropList{角色1:1|角色2:2|角色3:3}=1 (登录哪一个角色)
- 用户定义变量 MonsterPlace="梨阳村" (练级地方)
- 用户定义变量 AutoGoToPlace=DropList{手动寻路:0|自动寻路:1}=1 (自动寻路到练级地点)
- 用户定义变量 Att99=DropList{智能战斗:0|自动战斗:1}=0 (99回合自动战斗 - 未完整,第99回合卡一回合 | 是:大于0 否:小于等于0)
- 用户定义变量 MouseMode=DropList{鼠标键盘操作:0|纯鼠标:1}=0 (纯鼠标操作,不使用键盘 - 是:大于0 | 否:小于等于0)
- 用户定义变量 usemagic=0 (设置 [技能1] 按键,主要攻击技能 - 键1~9 | 非数字1~9不使用)
- 用户定义变量 SecondMagic=0 (设置 [技能2] 按键,战斗前25秒使用此技能代替[技能1],适合设置群攻技能 - 键1~9 | 注意:[技能1]设置必须有效)
- 用户定义变量 petusemagic=0 (宠物使用魔法 - 键1~9,非数字1~9不使用)
- 用户定义变量 petdefense=DropList{否:0|是:1}=0 (宠物只防御 | 是:大于0 否:小于等于0)
- 用户定义变量 TreatPet=5 (设置[治疗宠物]按键,键1~9,默认键5 | 是:大于0 否:小于等于0)
- 用户定义变量 TreatSelf=0 (设置[治疗自己]按键,键1~9,默认键5 | 是:大于0 否:小于等于0)
- 用户定义变量 newwindow=DropList{F5刷新:0|新窗口:1}=1 (重新登录使用F5刷新方法 | 使用F5刷新方法:小于等于0 关闭游戏再打开新窗口登录游戏:大于0)
- 用户定义变量 hppercent=45 (战斗中HP%恢复,小于则使用道具按键9 - 此处方法不好,位置不精确,值见议小于90)
- 用户定义变量 mppercent=10 (战斗中MP%恢复,小于则使用道具按键0 - 此处方法不好,位置不精确,值见议小于90)
- 用户定义变量 pethppercent=45 (战斗中宠物HP%恢复,小于则使用道具按键9 - 此处方法不好,位置不精确,值见议小于90))
- 用户定义变量 petmppercent=10 (战斗中宠物MP%恢复,小于则使用道具按键0 - 此处方法不好,位置不精确,值见议小于90))
- 用户定义变量 Bhppercent=80 (战斗后HP%恢复,小于则使用道具按键7 - 此处方法不好,位置不精确,值见议小于90))
- 用户定义变量 Bmppercent=20 (战斗后MP%恢复,小于则使用道具按键8 - 此处方法不好,位置不精确,值见议小于90))
- 用户定义变量 EliteMonsterEscape=DropList{否:0|是:20}=0 (战斗中发现有精英怪物逃跑 | 是:大于0 否:小于等于0)
- 用户定义变量 CharacherAtFont=DropList{角色在后排:0|角色在前排:1}=0 (设置角色战斗位置)
- //UserVar Leader=0 (组队模式-队长)
- 用户定义变量 MaxBattleTimeMs=180000 (最大战斗时间 - 单位毫秒,见议值大于180000即3分钟)
- //UserVar CharacherAI="阳光猎人" (可选 - 简单职业战略,其他职业没玩过,没写脚本. | 阳光猎人:战前25秒使用技能1,之后使用技能3.如:键1投球2个目标;键3投球3个目标 | 默认技能键1)
- 用户定义变量 LRBUGCure=1 (猎人BUG治疗 - 宠物死亡紧急包扎治疗人物! | 开启:1)
- 用户定义变量 LRCatchPet=0 (猎人抓宠计划,使用键2:淬毒之钉,设置值为抓宝宝数目,目前只能抓雪兽)
- //
- //
- //
- //======================∨∨∨状态窗口∨∨∨======================
- //此部分功能:
- // 1.ShowStateWin() 打开状态窗口
- // 2.ChangeContent(表格ID,"内容") 修改状态窗口显示的内容
- 开始VBScript块
- Dim StateWindow
- '//
- '//打开状态窗口的函数
- Function ShowStateWin()
- Set StateWindow = Nothing
- Set StateWindow = CreateObject("InternetExplorer.Application")
- StateWindow.menubar=0 '不显示IE对象菜单栏
- StateWindow.AddressBar=0 '不显示IE对象地址栏
- StateWindow.ToolBar=0 '不显示IE对象工具栏
- StateWindow.StatusBar=0 '不显示IE对象状态栏
- StateWindow.FullScreen = 0
- StateWindow.Width = 300
- StateWindow.Height = 80
- StateWindow.Navigate "about:blank"
- StateWindow.Left = 0
- StateWindow.Top = 0
- StateWindow.Visible = 1
- With StateWindow.document
- .write "<BODY bgcolor=white scroll=no leftmargin=0 topmargin=0 rightmargin=0>" & Chr(13)
- .write "<table>" & Chr(13)
- .write "<tr> " & Chr(13)
- .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex1" & """" & "></td>" & Chr(13)
- .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex2" & """" & "></td>" & Chr(13)