& 一个全自动按键精灵脚本，刷木头人用的。 ...
查看: 10125|回复: 5
UID3608006主题阅读权限20帖子精华0积分37金钱827 荣誉0 人气0 在线时间174 小时评议0
Lv.2游侠会员, 积分 37, 距离下一级还需 163 积分
帖子精华0积分37金钱827 荣誉0 人气0 评议0
本帖最后由 nnntttqqq 于
09:43 编辑
(591 Bytes, 下载次数: 2537)
17:21:26 上传
下载次数: 2537
下载积分: 金钱 -1
我先说下我的配置，糖果浏览器20倍变速，这个脚本的用处就是自动刷木头人结算如果有残页则保存 否则读取。全自动，如果下载用的话只需要改坐标，粘贴到按键精灵后按说明抓点改坐标。完成后删除所有中文字就可以去挂机了！！！
MoveTo 349, 279& &&&木头人
LeftClick 1
LeftClick 1
MoveTo 363, 233& && &主角头像
LeftClick 1
MoveTo 864, 658& && &&&进入战斗
LeftClick 1
Delay 2000& && && && &延迟2秒都能打完
FindColorEx 511,377,698,437, &03A0F6&,0,0.9,x,y& &判断是否有残页 颜色不用改 坐标分别是左上XY右下XY，我取得是两个结算物品的大小
If x&0 and y&0 Then& && &如果没有残页
& & MoveTo 920, 513& & 结算信息的确定
& & Delay 200
& & LeftClick 1
& & Delay 200
& & MoveTo 523, 629& &&&空白处点一下防止升级会卡死
& & Delay 200
& & LeftClick 1
& & Delay 200
& & MoveTo 908, 663& & 系统
& & Delay 200
& & LeftClick 1
& & Delay 200
& & MoveTo 697, 363& & 读取菜单
& & Delay 200
& & LeftClick 1
& & Delay 200
& & MoveTo 792, 562& &读取
& & Delay 200
& & LeftClick 1
If x&0 and y&0 Then& &如果有残页
& && &&&Delay 50
& & MoveTo 909, 510& &&&结算确定
& && &&&Delay 200
& && &&&LeftClick 1
& & Delay 200
& & MoveTo 523, 629& & 空白处点一下防止升级会卡死
& & Delay 200
& & LeftClick 1
& && &&&Delay 200
& && &&&MoveTo 919, 654& && &系 统
& && &&&Delay 200
& && &&&LeftClick 1
& && &&&Delay 200
& && &&&MoveTo 695, 286& &&&保存菜单
& && &&&Delay 200
& && &&&LeftClick 1
& && &&&Delay 200
& && &&&MoveTo 794, 555& && && &保存
& && &&&Delay 200
& && &&&LeftClick 1
& && &&&Delay 400
& && &&&MoveTo 702, 435& && && &窗口确定
& && &&&Delay 200
& && &&&LeftClick 1
UID8346777主题阅读权限10帖子精华0积分1金钱16 荣誉0 人气0 在线时间0 小时评议0
Lv.1游侠新人, 积分 1, 距离下一级还需 4 积分
帖子精华0积分1金钱16 荣誉0 人气0 评议0
谢楼主，今天就去把这个按键精灵给研究下
UID8220738主题阅读权限10帖子精华0积分4金钱133 荣誉0 人气0 在线时间36 小时评议0
Lv.1游侠新人, 积分 4, 距离下一级还需 1 积分
帖子精华0积分4金钱133 荣誉0 人气0 评议0
楼主大好人，感谢感谢。已经改成刷周伯通了
UID8268989主题阅读权限20帖子精华0积分22金钱263 荣誉0 人气0 在线时间62 小时评议0
Lv.2游侠会员, 积分 22, 距离下一级还需 178 积分
帖子精华0积分22金钱263 荣誉0 人气0 评议0
这按键精灵肿莫用下载下来打开还问你打开方式
UID8369986主题阅读权限10帖子精华0积分2金钱19 荣誉0 人气0 在线时间6 小时评议0
Lv.1游侠新人, 积分 2, 距离下一级还需 3 积分
帖子精华0积分2金钱19 荣誉0 人气0 评议0
求楼主具体讲下判断有没有残章这里要怎么改啊。
UID8417114主题阅读权限20帖子精华0积分73金钱575 荣誉0 人气3 在线时间222 小时评议0
Lv.2游侠会员, 积分 73, 距离下一级还需 127 积分
帖子精华0积分73金钱575 荣誉0 人气3 评议0
不明觉厉。。看不懂，我都是设置的简单没判断的。。
Powered by你的位置：
想做个奇迹自动返回挂机点，这样写对吗
02:20:40 |
来源: 按键精灵资源站
想做个奇迹自动放回挂机点的脚本，这样写对吗？？[code]Set dm = createobject(&dm.dmsoft&)
hwnd = dm.FindWindow(&&, &角色名&)
dm_ret = dm.BindWindow(hwnd,&dx2&,&dx2&,&windows&,0)
Delay 1500
sRect = Plugin.Window.GetClientRect(Hwnd)
dm_ret = dm.SetDict(0,&zuobiao.txt&)
Dim MyArray
MyArray=Split(sRect,&|&)
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))
Dx=CLng(MyArray(2))
Dy = CLng(MyArray(3))
x = Ux + 400
y = Uy + 240
rx2 = dm.Ocr(17,4,41,17,&ffffff-.0)
ry2 = dm.Ocr(41, 5, 65, 17, &ffffff-000000&, 1.0)
rx3 = (rx2 + ry2) / 100
ry3 = (rx2 - ry2) / 50
MoveTo rx3,ry3
Delay 1500
dm.LeftClick[/code]