阿杰 发表于 2011-1-9 09:57:54

阿杰屏幕颜色获取工具 V1.0

截图:


源码下载:
**** Hidden Message *****

net_sys 发表于 2011-1-9 15:32:04

a365326 发表于 2011-2-8 23:32:57

miaomiao 发表于 2011-2-9 03:02:09

我也写了一个。呵呵。
Form1.frmPublic Function GetDcPic() As Long

Dim destHdc&, Ret&
Dim Pxy As PointApi
destHdc = GetDC(0)
GetCursorPos Pxy
GetDcPic = BitBlt(PicDest.hdc, 0, 0, PicDest.Width, PicDest.Height, destHdc, Pxy.x, Pxy.y, vbSrcCopy)
PicDest.Refresh
End Function

Public Function GetDcColor() As Double
Dim destHdc&, Ret&
Dim Pxy As PointApi
destHdc = GetDC(0)
GetCursorPos Pxy
GetDcColor = GetPixel(destHdc, Pxy.x, Pxy.y)
Ret& = ReleaseDC(0, destHdc)
End Function

Private Sub Timer1_Timer()
PicColor.BackColor = GetDcColor
Blue.Text = (PicColor.BackColor And &HFF0000) / &H10000
Green.Text = (PicColor.BackColor And &HFF00&) / &H100&
Red.Text = PicColor.BackColor And &HFF&
GetDcPic
End SubModule1.BasPublic Declare Function GetCursorPos Lib "user32" (lpPoint As PointApi) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long


Public Type PointApi
x As Long
y As Long
End Type

易小勇 发表于 2011-2-14 23:25:32

呵呵 ；来看看 谢谢

hrbsxk 发表于 2011-2-20 05:46:39

这个东西不错，一定是又要水晶了，下不来了，看看吧

zhangzhum 发表于 2011-6-30 10:48:35

谢谢分享

逸小尘 发表于 2011-10-2 21:02:19

感谢大大开源~:loveliness:

yxd199512041 发表于 2011-10-3 17:45:21

正需要这个~
自己不用写了:lol

yxd199512041 发表于 2011-10-3 17:47:09

为什么是易语言的?
lz干嘛不说明下?我还以为vb......

zhuyuan 发表于 2011-10-4 19:27:37

进来学学习.

jixu2008 发表于 2011-10-24 18:01:54

very好，呵呵。

hjhboy 发表于 2011-12-22 17:38:35

谢谢分享

1aa82e 发表于 2012-1-27 10:33:41

这个东西不错

760320436 发表于 2012-2-12 21:15:08

看看

shawyd 发表于 2012-2-20 21:19:34

顶。。。。。。。。。。

dongbian 发表于 2012-4-5 23:10:07

很好很强大

a123456 发表于 2012-5-22 20:26:57

具 V1.0 [修改]

9298 发表于 2012-5-26 19:06:36


................................支持你

wanren2008 发表于 2012-5-27 15:26:22

本帖最后由 wanren2008 于 2012-5-27 15:27 编辑

我用c#刚做了个，实际是抓取屏幕点的句柄、颜色的。

ccmcn 发表于 2012-6-2 22:32:09

谢谢楼主的分享啊

vb1010 发表于 2012-8-31 12:56:47

定定淡定吧

qweewqqwee154 发表于 2013-8-20 19:53:55

呵呵 ；来看看 谢谢

www591rmb 发表于 2015-2-9 14:52:24

谢谢LZ   学习一下取色

upring 发表于 2015-3-15 10:56:56

可以游戏取色吗

赤小瞳 发表于 2020-8-3 17:24:15

学习一下
页: [1]
查看完整版本: 阿杰屏幕颜色获取工具 V1.0