按鍵精靈腳本：採集鼠標當前所在座標的顏色

1、關於腳本

最近寫了一個腳本，目的是取鼠標當前位置的顏色，而且顯示出該顏色R、G、B屬性的值

2、腳本界面

啓動腳本後，程序會實時監測鼠標在屏幕上的座標，並顯示在txtAxisX和txtAxisY兩個InputBox中，採集到的顏色數據，經加工後放在下方的黃色Label裏。

3、腳本代碼

須要注意的是，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

4、運行示例

編譯完成後的「顏色採集器.exe」，點擊「啓動」按鈕（或按下F10），就能夠開始採集鼠標所在位置的顏色了。點擊「終止」按鈕（或按下F12）能夠終止採集。

5、一個測試

我登錄了北京地鐵的官方網站查到了北京地鐵的線路圖，查了下每條地鐵線路的顏色

頁面地址：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	東直門↔二、3號航站樓

（END）