【推荐】2019 Java 开发者跳槽指南.pdf(吐血整理) >>>
一、关于脚本
最近写了一个脚本,目的是取鼠标当前位置的颜色,并且显示出该颜色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)
来源:oschina
链接:https://my.oschina.net/u/1425762/blog/387257