۱۷-بهمن-۱۳۸۶, ۱۴:۱۸:۰۶
مشکل من اینه که میخواهم متن یک تکس باکس رو که خارج از برنامه خودمه رو به دست بیارم برای این کار با استفاده از تابع GetCursorPos
موقعیت موس رو میگیرم سپس با WindowFromPoint هندل اون تکس باکس رو میگیرم
این رو میدونم که با تابع SendMessage وWM_GETTEXT باید کار کنم من سورس رو میگذارم لطفا راهنمایی کنید
موقعیت موس رو میگیرم سپس با WindowFromPoint هندل اون تکس باکس رو میگیرم
این رو میدونم که با تابع SendMessage وWM_GETTEXT باید کار کنم من سورس رو میگذارم لطفا راهنمایی کنید
کد:
Private Const WM_COPY = &H301
Private Const WM_GETTEXT = &HD
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Timer1_Timer()
Dim pt As POINTAPI, wnd As Long
GetCursorPos pt
wnd = WindowFromPoint(pt.x, pt.y)
Dim pos As POINTAPI
Dim retval As Long
Dim retval2 As Long
Dim sp As String
retval = GetCursorPos(pos)
retval = WindowFromPoint(pos.x, pos.y)
retval2 = SendMessage(retval, WM_GETTEXT, 0, 0)
End Sub