//我不懂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回复药
// 背包第一个为宠物忠诚恢复药水
// 充许交易,充许组队 选项清掉
//=============∧∧∧设置例子∧∧∧=============
//
//
//
Delay 1000
//===================BUG修正====================
//修正GetPixelColor不能直接使用
VBSCall FindPic(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
//注册大兵插件
Plugin DBSoft.RegDBSoft("F27873CF2364C2129452C57003F97017")
//==============================================
//
//======================∨∨∨初始设置∨∨∨======================
//变量
UserVar debugon=0 (打开DEBUG - 1:Msgbox | 2:截图 | 116:F5刷新测试)
UserVar LoginURL="s.qeedoo.com/mc/s1/" (游戏登录介面URL,不带双引号)
UserVar LoginPWD="PSW" (游戏登录密码!注意保管好自己密码!不带双引号)
UserVar LoginCharacher=DropList{角色1:1|角色2:2|角色3:3}=1 (登录哪一个角色)
UserVar MonsterPlace="梨阳村" (练级地方)
UserVar AutoGoToPlace=DropList{手动寻路:0|自动寻路:1}=1 (自动寻路到练级地点)
UserVar Att99=DropList{智能战斗:0|自动战斗:1}=0 (99回合自动战斗 - 未完整,第99回合卡一回合 | 是:大于0 否:小于等于0)
UserVar MouseMode=DropList{鼠标键盘操作:0|纯鼠标:1}=0 (纯鼠标操作,不使用键盘 - 是:大于0 | 否:小于等于0)
UserVar usemagic=0 (设置 [技能1] 按键,主要攻击技能 - 键1~9 | 非数字1~9不使用)
UserVar SecondMagic=0 (设置 [技能2] 按键,战斗前25秒使用此技能代替[技能1],适合设置群攻技能 - 键1~9 | 注意:[技能1]设置必须有效)
UserVar petusemagic=0 (宠物使用魔法 - 键1~9,非数字1~9不使用)
UserVar petdefense=DropList{否:0|是:1}=0 (宠物只防御 | 是:大于0 否:小于等于0)
UserVar TreatPet=5 (设置[治疗宠物]按键,键1~9,默认键5 | 是:大于0 否:小于等于0)
UserVar TreatSelf=0 (设置[治疗自己]按键,键1~9,默认键5 | 是:大于0 否:小于等于0)
UserVar newwindow=DropList{F5刷新:0|新窗口:1}=1 (重新登录使用F5刷新方法 | 使用F5刷新方法:小于等于0 关闭游戏再打开新窗口登录游戏:大于0)
UserVar hppercent=45 (战斗中HP%恢复,小于则使用道具按键9 - 此处方法不好,位置不精确,值见议小于90)
UserVar mppercent=10 (战斗中MP%恢复,小于则使用道具按键0 - 此处方法不好,位置不精确,值见议小于90)
UserVar pethppercent=45 (战斗中宠物HP%恢复,小于则使用道具按键9 - 此处方法不好,位置不精确,值见议小于90))
UserVar petmppercent=10 (战斗中宠物MP%恢复,小于则使用道具按键0 - 此处方法不好,位置不精确,值见议小于90))
UserVar Bhppercent=80 (战斗后HP%恢复,小于则使用道具按键7 - 此处方法不好,位置不精确,值见议小于90))
UserVar Bmppercent=20 (战斗后MP%恢复,小于则使用道具按键8 - 此处方法不好,位置不精确,值见议小于90))
UserVar EliteMonsterEscape=DropList{否:0|是:20}=0 (战斗中发现有精英怪物逃跑 | 是:大于0 否:小于等于0)
UserVar CharacherAtFont=DropList{角色在后排:0|角色在前排:1}=0 (设置角色战斗位置)
//UserVar Leader=0 (组队模式-队长)
UserVar MaxBattleTimeMs=180000 (最大战斗时间 - 单位毫秒,见议值大于180000即3分钟)
//UserVar CharacherAI="阳光猎人" (可选 - 简单职业战略,其他职业没玩过,没写脚本. | 阳光猎人:战前25秒使用技能1,之后使用技能3.如:键1投球2个目标;键3投球3个目标 | 默认技能键1)
UserVar LRBUGCure=1 (猎人BUG治疗 - 宠物死亡紧急包扎治疗人物! | 开启:1)
UserVar LRCatchPet=0 (猎人抓宠计划,使用键2:淬毒之钉,设置值为抓宝宝数目,目前只能抓雪兽)
//
//
//
//======================∨∨∨状态窗口∨∨∨======================
//此部分功能:
// 1.ShowStateWin() 打开状态窗口
// 2.ChangeContent(表格ID,"内容") 修改状态窗口显示的内容
VBSBegin
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)