[贴士] RGB颜色平均值查看脚本

SzAngel

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

嘻嘻,现在大家在脚本里不多也不少会用到找图.

找色,判断某一点的颜色之类的.

但是有时候捉某一定点的时候,它的颜色问题变化的.

如果不想弄太多代码的朋友会用到 约等于 ,不过这有时候也不是太理想.

那现在如果把它保存下来用 photoshop 看看他那颜色的波动范围.最后才发现

自己没有装 photoshop 呵呵,郁闷啊~~

不过,我们还有按键!嘻嘻~我让按键为我们对那些颜色求出它们的平均值!

这样.我们可以 比较快得出几点颜色的平均值.

好不.就这样.大家看看脚本吧.

1. PS:颜色 如 :  FACD10  ,R :10  G:CD  B: FA  希望大家不要搞乱了.
   
2. 
   
3. 运行脚本后请把鼠标移到要捉的颜色上.,按空格键.如果按其它键则是输出数值.
   
4. 
   
5. 
   
6. VBS Dim r,g,b,i,c,x,mx,my
   
7. VBS r=0:g=0:b=0:i=0
   
8. // 按空格键.表示捉鼠标的颜色
   
9. WaitKey x
   
10. While x=32
    
11. //得到鼠标的位置
    
12.     VBSCall GetCursorPos(mx,my)
    
13.     //得到鼠标位置上的颜色
    
14.     VBSCall c=GetPixelColor(mx,my)
    
15.     //分离颜色.并转成整数想加.
    
16.     VBS r=r+Cint("&H" & Right(c,2))
    
17.     VBS g=g+Cint("&H" & Mid(c,3,2))
    
18.     VBS b=b+Cint("&H" & Left(c,2))
    
19.     VBS i=i+1
    
20.     WaitKey x
    
21. EndWhile
    
22. //求出平均值
    
23. VBS r=CInt(r/i):g=CInt(g/i):b=CInt(b/i)
    
24. VBSCall MessageBox("R:" & r & "  G:" & g & "  B:" & b)

复制代码