魔域自动打怪脚本

定义变量 sTime(4), sj(4), key(4), keyj(1), a(1), b(1), c(1), d(1), e(1), x(2), y(2), GetColor(2)用户定义变量 进行jx=52 "加血键"用户定义变量 进行jl=53 "加蓝键"用户定义变量 xg=9 "寻怪键"用户定义变量 sq=229 "拾取键"用户定义变量 ja="49,1000" "<技能.时间>一"用户定义变量 jb="50,1000" "<技能.时间>二"用户定义变量 jc="51,1500" "<技能.时间>三"用户定义变量 jd="57,50000" "<辅助技能.时间>一"用户定义变量 je="48,50000" "<辅助技能.时间>二"令 a = split(ja,",")令 b = split(jb,",")令 c = split(jc,",")令 d = split(jd,",")令 e = split(je,",")标记 ajp7弹出窗口 "请把鼠标移动到补<血>位置，按小键盘数字:7.确定。"令 jb7 = （键盘）等待按任意键如果 jb7 = 103 则 把当前鼠标所在的位置保存到 (x(0), y(0)) 令 GetColor(0) = 得到指定点 (x(0), y(0)) 的颜色否则 跳转到标记 ajp7条件结束标记 ajp8弹出窗口 "请把鼠标移动到补<蓝>位置，按小键盘数字:8.确定。"令 jb8 = （键盘）等待按任意键如果 jb8 = 104 则 把当前鼠标所在的位置保存到 (x(1), y(1)) 令 GetColor(1) = 得到指定点 (x(1), y(1)) 的颜色否则 跳转到标记 ajp8条件结束标记 ajp9弹出窗口 "请把鼠标移动到<怪>空血位置，按小键盘数字:9.确定。"令 jb9 = （键盘）等待按任意键如果 jb9 = 105 则 把当前鼠标所在的位置保存到 (x(2), y(2)) 令 GetColor(2) = 得到指定点 (x(2), y(2)) 的颜色否则 跳转到标记 ajp9条件结束弹出窗口 "确认完毕，游戏开始！" & vbcrlf & " 祝你游戏愉快！"循环 i 从 0 到 4 令 sTime(k) = now循环结束令 key(0) = d(1)令 key(1) = e(1)令 key(2) = a(1)令 key(3) = b(1)令 key(4) = c(1)令 sj(0) = d(2)令 sj(1) = e(2)令 sj(2) = a(2)令 sj(3) = b(2)令 sj(4) = c(2)令 keyj(0) = jx令 keyj(1) = jl标记 ks循环 i 从 0 到 1 如果点 (x(i),y(i)) 的颜色约等于 GetColor(i) 则 否则 延时 50 毫秒 （键盘）按 keyj(i) 键, 1次 延时 100 毫秒 条件结束循环结束如果点 (x(2),y(2)) 的颜色约等于 GetColor(2) 则 调用 jnj() 跳转到标记 ks否则 （键盘）按 xg 键, 1次条件结束子程序 jnj() 循环 k 从 0 到 4 如果 DateDiff("s",sTime(k),now) >= sj(k) 则 延时 10 毫秒 （键盘）按 key(k) 键, 1次 令 sTime(k) = now 条件结束 循环结束子程序结束 按键精灵Rem start While true // 或者 for 9999 VBS x=x+50 VBSCall FindColorEx(60,160,780,600,"0303B8",1,1,x,y) //区域模煳找色 60,160,780,600为区域范围 "FFFFFF"为颜色 1为查找方式(中间向外) 1为模煳值 x,y为找到颜色后的坐标变量 If x>60 and y>160 //如果找到颜色 比如找到颜色就会赋值给坐标变量 通过判断坐标变量可以知道有没有找到怪 MoveTo x+12,y+20 //把鼠标移动到该色的坐标 如果找的是怪名字或血条 可能移动不到怪身上 这时就要用鼠标偏移 如：MoveTo x+10 y+10 Delay 50 //延时 LeftClick 5 //左键单击进行攻击VBS y=y+50 VBS x=100 Goto start Endif // 少了一句 EndIf Delay 5000 //延时5秒 EndWhile // endfor 有的，私服更多，但是，同样的病毒更多， 应该没有吧 简单百宝箱里 有 自动打怪。不捡东西

定义变量 sTime(4), sj(4), key(4), keyj(1), a(1), b(1), c(1), d(1), e(1), x(2), y(2), GetColor(2)用户定义变量 进行jx=52 "加血键"用户定义变量 进行jl=53 "加蓝键"用户定义变量 xg=9 "寻怪键"用户定义变量 sq=229 "拾取键"用户定义变量 ja="49,1000" "<技能.时间>一"用户定义变量 jb="50,1000" "<技能.时间>二"用户定义变量 jc="51,1500" "<技能.时间>三"用户定义变量 jd="57,50000" "<辅助技能.时间>一"用户定义变量 je="48,50000" "<辅助技能.时间>二"令 a = split(ja,",")令 b = split(jb,",")令 c = split(jc,",")令 d = split(jd,",")令 e = split(je,",")标记 ajp7弹出窗口 "请把鼠标移动到补<血>位置，按小键盘数字:7.确定。"令 jb7 = （键盘）等待按任意键如果 jb7 = 103 则 把当前鼠标所在的位置保存到 (x(0), y(0)) 令 GetColor(0) = 得到指定点 (x(0), y(0)) 的颜色否则 跳转到标记 ajp7条件结束标记 ajp8弹出窗口 "请把鼠标移动到补<蓝>位置，按小键盘数字:8.确定。"令 jb8 = （键盘）等待按任意键如果 jb8 = 104 则 把当前鼠标所在的位置保存到 (x(1), y(1)) 令 GetColor(1) = 得到指定点 (x(1), y(1)) 的颜色否则 跳转到标记 ajp8条件结束标记 ajp9弹出窗口 "请把鼠标移动到<怪>空血位置，按小键盘数字:9.确定。"令 jb9 = （键盘）等待按任意键如果 jb9 = 105 则 把当前鼠标所在的位置保存到 (x(2), y(2)) 令 GetColor(2) = 得到指定点 (x(2), y(2)) 的颜色否则 跳转到标记 ajp9条件结束弹出窗口 "确认完毕，游戏开始！" & vbcrlf & " 祝你游戏愉快！"循环 i 从 0 到 4 令 sTime(k) = now循环结束令 key(0) = d(1)令 key(1) = e(1)令 key(2) = a(1)令 key(3) = b(1)令 key(4) = c(1)令 sj(0) = d(2)令 sj(1) = e(2)令 sj(2) = a(2)令 sj(3) = b(2)令 sj(4) = c(2)令 keyj(0) = jx令 keyj(1) = jl标记 ks循环 i 从 0 到 1 如果点 (x(i),y(i)) 的颜色约等于 GetColor(i) 则 否则 延时 50 毫秒 （键盘）按 keyj(i) 键, 1次 延时 100 毫秒 条件结束循环结束如果点 (x(2),y(2)) 的颜色约等于 GetColor(2) 则 调用 jnj() 跳转到标记 ks否则 （键盘）按 xg 键, 1次条件结束子程序 jnj() 循环 k 从 0 到 4 如果 DateDiff("s",sTime(k),now) >= sj(k) 则 延时 10 毫秒 （键盘）按 key(k) 键, 1次 令 sTime(k) = now 条件结束 循环结束子程序结束

按键精灵Rem start While true // 或者 for 9999 VBS x=x+50 VBSCall FindColorEx(60,160,780,600,"0303B8",1,1,x,y) //区域模煳找色 60,160,780,600为区域范围 "FFFFFF"为颜色 1为查找方式(中间向外) 1为模煳值 x,y为找到颜色后的坐标变量 If x>60 and y>160 //如果找到颜色 比如找到颜色就会赋值给坐标变量 通过判断坐标变量可以知道有没有找到怪 MoveTo x+12,y+20 //把鼠标移动到该色的坐标 如果找的是怪名字或血条 可能移动不到怪身上 这时就要用鼠标偏移 如：MoveTo x+10 y+10 Delay 50 //延时 LeftClick 5 //左键单击进行攻击VBS y=y+50 VBS x=100 Goto start Endif // 少了一句 EndIf Delay 5000 //延时5秒 EndWhile // endfor

有的，私服更多，但是，同样的病毒更多，

应该没有吧

简单百宝箱里 有 自动打怪。不捡东西