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

阿杰

截图:


源码下载:

游客，如果您要查看本帖隐藏内容请回复

miaomiao

我也写了一个。呵呵。
Form1.frm

1. Public Function GetDcPic() As Long
   
2. 
   
3.   Dim destHdc&, Ret&
   
4.   Dim Pxy As PointApi
   
5.   destHdc = GetDC(0)
   
6.   GetCursorPos Pxy
   
7.   GetDcPic = BitBlt(PicDest.hdc, 0, 0, PicDest.Width, PicDest.Height, destHdc, Pxy.x, Pxy.y, vbSrcCopy)
   
8.   PicDest.Refresh
   
9. End Function
   
10. 
    
11. Public Function GetDcColor() As Double
    
12.   Dim destHdc&, Ret&
    
13.   Dim Pxy As PointApi
    
14.   destHdc = GetDC(0)
    
15.   GetCursorPos Pxy
    
16.   GetDcColor = GetPixel(destHdc, Pxy.x, Pxy.y)
    
17.   Ret& = ReleaseDC(0, destHdc)
    
18. End Function
    
19. 
    
20. Private Sub Timer1_Timer()
    
21.   PicColor.BackColor = GetDcColor
    
22.   Blue.Text = (PicColor.BackColor And &HFF0000) / &H10000
    
23.   Green.Text = (PicColor.BackColor And &HFF00&) / &H100&
    
24.   Red.Text = PicColor.BackColor And &HFF&
    
25.   GetDcPic
    
26. End Sub

复制代码

Module1.Bas

1. Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointApi) As Long
   
2. Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
   
3. Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
   
4. Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
   
5. 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
   
6. 
   
7. 
   
8. Public Type PointApi
   
9.   x As Long
   
10.   y As Long
    
11. End Type
    

复制代码

易小勇

呵呵 ；来看看 谢谢

hrbsxk

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

zhangzhum

谢谢分享

逸小尘

感谢大大开源~:loveliness:

yxd199512041

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

yxd199512041

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