jjdp.net
当前位置:首页 >> 按键精灵 颜色判断 >>

按键精灵 颜色判断

Rem a ge1 = GetPixelColor(100,100) ge2 = GetPixelColor(150,150) If ge1 = ge2 Then Else Goto a End If MessageBox "颜色为:"&ge1-------------------- 先得到指定两个点的颜色,然后判断两个点颜色是否相等. ------------ 这个已经是相等继续下面的脚本,如果不等则掉转到标记a从新获取两个点的颜色继续判断了,MessageBox "颜色为:"&ge1 以上就是执行在判断后的,如果相等才会跳出这个对话框,如果不相等就一直循环到相等为止.

ifcolor 563,238,"12e3de",0 then 这里写颜色符合时的命令 else 这里是颜色不符合的时候 end if

用区域找色功能就行了,先确定好你的浏览器客户区范围,然后,在这个范围内找你要的颜色代码,蓝色有很多种代码,这个你自己抓色哈.x=Plugin Sys.GetScRX() y=Plugin Sys.GetScRY() VBSCall FindColor(0,0,x,y,"你的颜色代码,例如 00FF00",intX,intY) 然后后面的关闭网页和复制到记事本,可以用鼠标操作,这个你应该会了吧,>

Dim x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6, x7, y7,x8,y8 //定义起始6个点坐标,和两个要点击的坐标 Dim r1Color,r2Color,r3Color,r4Color,r5Color,r6Color //6个点颜色的值(十六进制) Function 该点的颜色值(参数1,参数2) 该点的颜色值 =

/**按住滑动*/ MoveTo 782,1277//鼠标移动到782,1277 LeftDown 1//左键按下 MoveTo 760, 1680//鼠标移动到760,1680 LeftUp 1//左键弹起/**颜色判断*/ IfColor 628,1846,"#FF6600",0 Then//如果点628,1846等于#FF6600 MoveTo 785, 1835//鼠标

这样好了,你的不必要.Rem 开始IfColor 179,57 ,222222,2 Goto 加血EndIf IfColor 132,63 222222,2 Goto 加气EndIf IfColor 178,96,222222,2 Goto 宝宝补血EndIf IfColor 55,135 0011FF,0 Goto 队伍1EndIf IfColor 62,175 0011FF,0 Goto 队伍2EndIf

Rem AIfColor 779,352,"D5FF",0 ThenKeyPress "F", 1 ElseGoto AEnd If进入这段代码后,颜色相等就按一次F,不等就继续回来比较色,直到颜色相等为止,如果颜色始终不相等,就一直在这里面循环.

源代码: IfColor 0,0,0,0 Else EndIf 切到普通状态你一看就知道了. 这小小的5分我也不放过~~拿来吧~~~~

累计 = 0 Do IfColor 333, 68, "E1644", 0 Then 累计 = 累计 +1 Else 累计 = 0 End If Delay 1000 Loop Until 累计 >= 30'制作:法科'时间:2017-06-05

方法一:设置两个变量,分别获取两点颜色存入两个变量,判断两变量数值是否相等. 例:先得到第一点颜色:A=GetPixelColor(X,X); 再得到第二点颜色:B=GetPixelColor(Y,Y); 条件判断:If A=B Then 表达式1 Else 表达式2 End If 方法二:设置一个变量,获取第一点颜色,以第一点颜色做第二点判断条件.例:先得到第一点颜色:A=GetPixelColor(X,X); 条件判断:IfColor Y,Y,"A",0 Then 表达式1 Else 表达式2 End If 注:X,X为第一点坐标,Y,Y为第二点坐标.

网站首页 | 网站地图
All rights reserved Powered by www.jjdp.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com