标题:
[贴士]
RGB颜色平均值查看脚本
[打印本页]
作者:
SzAngel
时间:
2007-8-30 18:29
标题:
RGB颜色平均值查看脚本
在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz
嘻嘻,现在大家在脚本里不多也不少会用到找图.
找色,判断某一点的颜色之类的.
但是有时候捉某一定点的时候,它的颜色问题变化的.
如果不想弄太多代码的朋友会用到 约等于 ,不过这有时候也不是太理想.
那现在如果把它保存下来用 photoshop 看看他那颜色的波动范围.最后才发现
自己没有装 photoshop 呵呵,郁闷啊~~
不过,我们还有按键!嘻嘻~我让按键为我们对那些颜色求出它们的平均值!
这样.我们可以 比较快得出几点颜色的平均值.
好不.就这样.大家看看脚本吧.
PS:颜色 如 : FACD10 ,R :10 G:CD B: FA 希望大家不要搞乱了.
运行脚本后请把鼠标移到要捉的颜色上.,按空格键.如果按其它键则是输出数值.
VBS Dim r,g,b,i,c,x,mx,my
VBS r=0:g=0:b=0:i=0
// 按空格键.表示捉鼠标的颜色
WaitKey x
While x=32
//得到鼠标的位置
VBSCall GetCursorPos(mx,my)
//得到鼠标位置上的颜色
VBSCall c=GetPixelColor(mx,my)
//分离颜色.并转成整数想加.
VBS r=r+Cint("&H" & Right(c,2))
VBS g=g+Cint("&H" & Mid(c,3,2))
VBS b=b+Cint("&H" & Left(c,2))
VBS i=i+1
WaitKey x
EndWhile
//求出平均值
VBS r=CInt(r/i):g=CInt(g/i):b=CInt(b/i)
VBSCall MessageBox("R:" & r & " G:" & g & " B:" & b)
复制代码
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1