mover el raton de windows para marcar un texto y almacenarlo

Alvaro
16 de Enero del 2009
Muy buenas tardes a todos,
Os comento mi problemilla: Quiero hacer un boton muy simple que situe el raton en un punto determinado de la pantalla y lo mueva para seleccionar un texto, posteriormente me gustaria almacenar ese texto en una variable.
Soy nuevo en las APIs y he conseguido situar el raton y arrastrarlo para que me seleccione el texto, pero no se como almacenarlo en una variable. El codigo hasta el momento es el siguiente:

Option Explicit

Private Type POINTAPI
X As Integer
Y As Integer
End Type

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Const IZQUIERDOABAJO = &H2
Const IZQUIERDOARRIBA = &H4

Private Sub seleccionar_Click()
'aqui activamos la ventana que se llama trucos
AppActivate ("TRUCOS")

'esto selecciona
Call SetCursorPos(130, 300)
mouse_event IZQUIERDOABAJO, 0, 0, 0, 0
Call SetCursorPos(230, 300)
mouse_event IZQUIERDOARRIBA, 0, 0, 0, 0

----------------------------------------------
He estado leyendo y he usado el sendkeys, pero aunque todo va bien, no consigue copiar nada (cuando le doy a pegar no pega lo que yo se supone que he copiado). Tambien he probado a copiar programando que el raton le haga un click derecho en el texto y le de un click a copiar, pero estoy en las mismas y la realidad es que no copia nada.

¿Alquien podria echarme una mano? Muchisimas Gracias