星辰变 自动寻怪打怪脚本 学习按键精灵一周成果展示 _ 脚本开发源码 - 按键精灵论坛
腾讯微博：
软件版本：2014.03软件大小：71.2M更新时间：10-25
软件版本：3.1.7软件大小：52.1M更新时间：12-12
软件版本：1.2.4软件大小：29.2M更新时间：10-28
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 15058|回复: 170
本帖最后由 we似曾相识 于
23:02 编辑 各位，本人是新人，刚刚开始学习用按键精灵写游戏WG，以下是我刚写的《星辰变》的自动寻怪打怪脚本支持自动寻怪，只打满血怪，怪物名称过滤，自动捡东西，自定义释放技能攻击，自动加血加蓝（通过按快捷键实现），功能比较简单，高手看了莫笑，呵呵但是我还有两个问题想不出解决方法，希望高手能指点一二：1、大漠插件后台操作貌似不好使，当游戏窗口失去焦点或是最小化，小精灵就不起作用了；2、如何实现自动回城买药，再回原来的打怪地点继续打怪。这两个问题困扰我很久了，希望高手们不吝赐教，告诉我思路即可，在此小弟先谢了您所在的用户组无法下载或查看附件您所在的用户组无法下载或查看附件Set dm = createobject("dm.dmsoft")
If len(dm.Ver()) = 0 Then
MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"
//设置全局路径
dm_ret = dm.SetPath("C:\Users\Win7\Desktop\星辰变\AppData")
//dm_ret = dm.SetPath(".\AppData")
dm_ret = dm.SetDict(0, "XCB.txt")//设置找字字典
//获得当前鼠标指向窗口的句柄
Hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(Hwnd, "normal", "normal", "normal", 0)
If dm_ret = 0 Then
MessageBox "大漠插件后台绑定 失败！！！"
MessageBox "当前句柄：" & Hwnd & vbcrlf & "当前血 " & GetCurrentHP() & " 最大血 " & GetMaxHP()
//获得游戏窗口宽度和高度
dm.GetClientSize Hwnd, Width, Height
//确定雷达坐标
Dim radX1, radY1, radX2, radY2
dm_ret = dm.FindPicEx(0, 0, Width, Height, "语.bmp|球.bmp", "000000", 1.0, 2)
If Len(dm_ret) > 12 Then
ss = Split(dm_ret, "|")
yy = Split(ss(0), ",")
qq = Split(ss(1), ",")
radX1 = yy(1)
radY1 = qq(2)
radX2 = qq(1)
radY2 = yy(2)
MessageBox "找雷达坐标 失败！！！"
KillMonsterCount = 0//杀怪总数
While true
Call Recover()//恢复
dm.KeyDown Asc("D")
Delay 1500
dm.KeyUp Asc("D")
Call FightMonster()//寻怪 打怪
Call Recover()//恢复
dm.KeyDown Asc("S")
Delay 1500
dm.KeyUp Asc("S")
Call FightMonster()//寻怪 打怪
Call Recover()//恢复
dm.KeyDown Asc("A")
Delay 1500
dm.KeyUp Asc("A")
Call FightMonster()//寻怪 打怪
Call Recover()//恢复
dm.KeyDown Asc("W")
Delay 1500
dm.KeyUp Asc("W")
Call FightMonster()//寻怪 打怪
Function FightMonster()
If FindMonster() Then
While GetMonsterHP() > 0
Call Recover()
If Form.ChkAck1.Value = 1 Then
Call PressKey(bAck1.List, "|")(bAck1.ListIndex))
If Form.ChkAck2.Value = 1 Then
Call PressKey(bAck2.List, "|")(bAck2.ListIndex))
If Form.ChkAck3.Value = 1 Then
Call PressKey(bAck3.List, "|")(bAck3.ListIndex))
If Form.ChkAck4.Value = 1 Then
Call PressKey(bAck4.List, "|")(bAck4.ListIndex))
dm.KeyPress Asc(" ")//点击键盘空格键捡周围道具
KillMonsterCount = KillMonsterCount + 1//杀怪总数 + 1
FightMonster = true
FightMonster = false//没有找到怪物
End Function
//找怪 移动 锁定怪
Function FindMonster()
dm.KeyPress 9//点击TAB键锁定怪物
If GetMonsterHP() = 100 Then
If Form.ChkAck5.Value = 1 Then
If InStr(Form.TxtMonsName.Text,GetMonsterName())
貌似代码没有缩进，看着比较费劲，将就一下吧
catty870807
学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
看看，支持一下
lpa8329250
很喜欢刺客
按键会员（季）按键会员绑定账号后自动赠送学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键精灵开发者2级可通过提升认证等级来升级勋章：
刺客，用心做好每一个脚本
简单游作者承接各类脚本，如有需要请联系QQ:
为练手目前免费制作网页游戏脚本，如有需要请联系
看看。。。。。
ooooo51568
学习自动寻怪打怪脚本
这两个问题 有人能解决一下吗？1、大漠插件后台操作貌似不好使，当游戏窗口失去焦点或是最小化，小精灵就不起作用了；2、如何实现自动回城买药，再回原来的打怪地点继续打怪。
学有所成学有所成勋章，新手步入按键学堂的第一枚勋章教程达人教程达人十周年勋章（360天）十周年纪念勋章龙年勋章（360天）龙年纪念勋章（360天）按键精灵开发者4级可通过提升认证等级来升级勋章：
zhoujianyun
顶顶顶顶顶顶顶顶
看看学习学习
kkkkkkkkkkkkkkkkkkkkkkkkkkk
qingqingduzi
qingqingduzi
按键会员（月）按键会员绑定账号后自动赠送
学习来了..
看看 学习下
复反反复复反反复复
惺惺惜惺惺下个月回按键精灵VBS脚本实例源码及详解_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
按键精灵VBS脚本实例源码及详解
上传于||文档简介
&&按键精灵VBS脚本实例源码及详解
这个例程有源码和详尽的注释,讲解由浅入深,很好理解,我照着上面的例子自己也编了几个,太容易了 ,哈哈
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩24页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢}