按键精灵脚本：采集鼠标当前所在坐标的颜色（例：采集北京地铁各线路颜色）

一、关于脚本

最近写了一个脚本，目的是取鼠标当前位置的颜色，并且显示出该颜色R、G、B属性的值

二、脚本界面

启动脚本后，程序会实时监测鼠标在屏幕上的坐标，并显示在txtAxisX和txtAxisY两个InputBox中，采集到的颜色数据，经加工后放在下方的黄色Label里。

三、脚本代码

需要注意的是，GetPixelColor函数返回的六个十六进制数，并不是以R、G、B的顺序排列的，而是B、G、R的顺序

While True

    '获取鼠标所在位置颜色
    Call GetCursorPos(x, y)

    '获取鼠标所在位置坐标
    If frmMain.txtAxisX.Text <> x Then 
        frmMain.txtAxisX.Text = x
    End If
    If frmMain.txtAxisY.Text <> y Then 
        frmMain.txtAxisY.Text = y	
    End If 
	
    '获取颜色代码（前两位为十六进制B值，中间两位为十六进制G值，最后两位为十六进制R值）
    tempBGR = GetPixelColor(x, y)

    '截取颜色
    R = Mid(tempBGR, 5, 2)
    G = Mid(tempBGR, 3, 2)
    B = Mid(tempBGR, 1, 2)

    '重新以RGB的顺序排列颜色代码
    tempRGB = R & G & B

    '十六进制转成十进制
    R = Int("&H" & R)
    G = Int("&H" & G)
    B = Int("&H" & B)

    '显示结论
    Result = "COLOR: " & tempRGB & " | R: " & R & " | G: " & G & " | B: " & B
    If frmMain.lblColor.Caption <> Result Then 
        frmMain.lblColor.Caption = Result
    End If

    Delay 100

Wend

四、运行示例

编译完成后的“颜色采集器.exe”，点击“启动”按钮（或按下F10），就可以开始采集鼠标所在位置的颜色了。点击“终止”按钮（或按下F12）可以终止采集。

五、一个测试

我登陆了北京地铁的官方网站查到了北京地铁的线路图，查了下每条地铁线路的颜色

页面地址：http://www.bjsubway.com/subwaymap/station_map.html

北京地铁图线路图（2015年3月15日）：

各路线颜色：

线路	颜色	R	G	B	备注
1号线	[      ]：C23A30	194	58	48	苹果园↔四惠东
2号线	[      ]：006098	0	96	152	内环线
4号线、大兴线	[      ]：008E9C	0	142	156	安河桥北↔天宫院
5号线	[      ]：A6217F	166	33	127	天通苑北↔宋家庄
6号线	[      ]：D29700	210	151	0	海淀五路居↔潞城
7号线	[      ]：F56582	246	197	130	北京西站↔焦化厂
8号线	[      ]：009B6B	0	155	107	朱辛庄↔南锣鼓巷
9号线	[      ]：8FC31F	143	195	31	国家图书馆↔郭公庄
10号线	[      ]：009BC0	0	155	192	外环线
13号线	[      ]：F9E700	249	231	0	西直门↔东直门
14号线（西）	[      ]：D5A7A1	213	167	161	张郭庄↔西局
14号线（东）	[      ]：D5A7A1	213	167	161	善各庄↔金台路
15号线	[      ]：5B2C68	91	44	104	清华东路西口↔俸伯
八通线	[      ]：C23A30	194	58	48	四惠↔土桥
房山线	[      ]：E46022	228	96	34	苏庄↔郭公庄
昌平线	[      ]：DE82B2	222	130	178	南邵↔西二旗
亦庄线	[      ]：E40077	228	0	119	宋家庄↔次渠
机场线	[      ]：A29BBB	192	155	187	东直门↔2、3号航站楼

（END）