vb 鼠标点击获取颜色

百度分很稀奇吗？我很在乎吗？

我宁愿一分也不要也不会帮你写！！！

没见过象你这样懒的人！

最关键的代码我都已经写出来了，只需要自己动一动小脑筋就可以完成其他的了，鼠标移动和鼠标点击只需要一个小小的变通就能完成

真是，分你给不给无所谓，我也不在乎你这点分！代码我也不写，以前写的我也清除，省得在这里碍我自己的眼!

说归说，就给你个小提示吧，具体代码就不放上来了，最讨厌别人用分来和我说事。

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

这个API可以得到当前鼠标按键，举个例：

If GetAsyncKeyState(vbLeftButton) < 0 Then
'按下左键
.....
ElseIf GetAsyncKeyState(vbRightButton) < 0 Then
'按下右键
....
End if

x=text1 y=text2
颜色没办法

使用 Point(X, Y) 获得颜色，至于目标，你可以先截取桌面图象或使用其他方法，具体取决于你的需要。

以下为MSDN里的说明：

Point 方法

按照长整数，返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。不支持命名参数。

语法

object.Point(x, y)

Point 方法的语法包含下列部分：

部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的 Form 象缺省为 object.
x, y 必需的。均为单精度值，指示 Form 或 PictureBox 的