注册
登录
论坛
辅助卡
设施
野草莓
渺拍
搜索
帮助
私人消息 (0)
公共消息 (0)
论坛任务 (0)
系统消息 (0)
好友消息 (0)
帖子消息 (0)
紫菀论坛
»
脚本交流
» 一些网游 反挂识别图片的 [识别脚本] 模板
返回列表
回复
发帖
疯言疯语
发短消息
加为好友
疯言疯语
当前离线
UID
468
主题
20
精华
0
阅读权限
8
最后登录
2009-8-13
滋生嫩绿枝叶
UID
468
帖子
149
积分
97
紫菀
0 朵
花瓣
171 片
花蕊
22 朵
野草莓
0 个
蒲公英
0 朵
社区等级
8 级
在线时间
21 小时
注册时间
2006-9-4
登录状态
当前离线
楼主
打印
字体大小:
t
T
发表于 2006-11-9 21:00
|
显示全部帖子
一些网游 反挂识别图片的 [识别脚本] 模板
//2张间距
VBS n=200
//初始抓第一张图的颜色点坐标(下面坐标自己修改)
VBS x=100:y=100
//4张图,循环4次
For 4
VBSCall c=GetPixelColor(x,y)
//颜色判断(可自行增加多个判断项)
If c="00FF00" or c="FF00FF" or c="DDFFDD"
Gosub 移动单击
ElseIf c="DDFF00" or c="FFDDFF" or c="FFFFDD"
Gosub 移动单击
ElseIf c="AAFF00" or c="FFAAAA" or c="AAAADD"
Gosub 移动单击
EndIf
VBS x=x+n
EndFor
Rem 开始
MessageBox 识别错误,发现新图片,请把鼠标移动到不同的图片上,再按[ctrl]键
WaitKey k
//[ctrl]键acsii码17
If k=17
//鼠标位置判断(4个位置区域)
VBSCall GetCursorPos(mx,my)
If mx>100 and mx
//下面坐标自己修改(就是颜色位置)
VBS cx=100:cy=100
ElseIf mx>200 and mx
VBS cx=200:cy=200
ElseIf mx>300 and mx
VBS cx=300:cy=300
ElseIf mx>400 and mx
VBS cx=400:cy=400
Else
MessageBox 鼠标位置放的不对,重新开始!
Goto 开始
EndIf
//得到鼠标区域位置颜色
VBSCall c1=GetPixelColor(cx,cy)
VBSCall MessageBox("[ "&c1&" ]得到的新颜色自己手动增加到颜色判断里面")
EndIf
Rem 结束
EndScript
Sub 移动单击
MoveTo x y
Delay 200
LeftClick 1
Delay 500
Goto 结束
Return 移动单击
收藏
分享
0
0
0
顶
踩
回复
引用
返回列表
[收藏此主题]
[关注此主题的新回复]
[通过 QQ、MSN 分享给朋友]
领取红包
社区银行
社区监狱
转贴工具
获取卡号
查询卡号
解绑续期
VIP 卡号