谁能告诉我屏幕抓词技术？

Question

1、实时检测鼠标位置
2、读取当前鼠标位置的窗口句柄，并判断类型
3、然后发送消息
4、显示消息返回的TEXT值。

Answer 1

常量定义：
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
APi函数：
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private 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点击按钮，屏幕拷贝到Form
Private Sub Command1_Click()
    ’得到桌面的HDC
    Dim hDeskDC As Long
    hDeskDC = GetWindowDC(GetDesktopWindow())
    ‘件桌面显示到Form中
    BitBlt hDC, 0, 0, Screen.Width / Screen.TwipsPerPixelX,    Screen.Height / Screen.TwipsPerPixelY, hDeskDC, 0, 0, SRCCOPY
End Sub

Answer 2

那可大不一样
daviddivad(你真行，居然比我还快！) 
的思路单纯用VB行不通，
第一点就很难做到，随时监测鼠标的位置，到目前为止我只知道用两种方法
才能做到：
       第一用钩子Hook，不过想创建全局钩子，要用到DLL，vb没有DLL
       第二改写鼠标驱动，vb太难

Answer 3

没法实现，至少我这么认为。yong

Answer 4

VB无法实现除非挂DLL
可以去袁飞望站上找，那里有

Answer 5

1、用全局DLL，这种有现成的DLL，我就有（是VC写的）
2、有这样的API，============== WindowFromPoint
3、发送消息或GetWindowText
这样不行么？？只是不好用而已。