如何得到其他程序中鼠标选中的文本……

Question

这个可以回答:
dim a as long,b as string
a=SendMessage(hwnd,&HE,0,0)
SendMessage hwnd,&HD,a+1,byval b
则B的值就是文本的串,但不一定是有焦点的!
hwnd是所指定的文本框的句柄!你可以先用自己的文本框句柄:Text1.hwnd
试一下!

Answer 1

GetForegroundWindow VB声明 
Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long 
说明 
获得前台窗口的句柄。这里的“前台窗口”是指前台应用程序的活动窗口 
返回值 
Long，前台窗口的句柄 
注解 
windows nt支持多个桌面，它们相互间是独立的。每个桌面都有自己的前台窗口
 AttachThreadInput VB声明 
Declare Function AttachThreadInput Lib "user32" Alias "AttachThreadInput" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long 
说明 
通常，系统内的每个线程都有自己的输入队列。本函数（既“连接线程输入函数”）允许线程和进程共享输入队列。连接了线程后，输入焦点、窗口激活、鼠标捕获、键盘状态以及输入队列状态都会进入共享状态 
返回值 
Long，非零表示成功，零表示失败，会设置会GetLastError 
参数表 
参数 类型及说明 
idAttach Long，欲连接线程的标识符（ID） 
idAttachTo Long，与idAttach线程连接的另一个线程的标识符 
fAttach Long，TRUE（非零）连接，FALSE撤消连接 
注解 
调用这个函数时，会重设键盘状态
 GetFocus VB声明 
Declare Function GetFocus Lib "user32" Alias "GetFocus" () As Long 
说明 
获得拥有输入焦点的窗口的句柄 
返回值 
Long，拥有焦点的那个窗口的句柄。如没有窗口拥有输入焦点，则返回零 

Answer 2

拜托2位给一个小例籽
得到记事本的文本
在何时调用GetForegroundWindow