no result with WM_GETTEXT

  • Thread starter Thread starter =?iso-8859-1?Q?Seb_Sch=F6ps?=
  • Start date Start date
?

=?iso-8859-1?Q?Seb_Sch=F6ps?=

Hello,

I try to read the content of an open Notepad window, but I don't get WM_GETTEXT to work with Visual Basic .NET. I have the correct handle for the Notepad window and get the number of signs with wm_gettextlength, but no results for wm_gettext.

Here is how I try it:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Object, ByVal lParam As Object) As Integer

Public Const WM_GETTEXT = &HD
Public Const WM_GETTEXTLENGTH = &HE

dim length, NotepadResult as String

length = SendMessage(handle2, WM_GETTEXTLENGTH, Nothing, 0)
SendMessage(handle2, WM_GETTEXT, length, NotepadResult)

Anyone knows how to get this to work?

Thanks in advance for any help!

Regards
Sebastian
 
* Seb Schöps said:
I try to read the content of an open Notepad window, but I don't get WM_GETTEXT to work with Visual Basic
.NET. I have the correct handle for the Notepad window and get the number of signs with wm_gettextlength, but no
results for wm_gettext.

Here is how I try it:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As
Integer, ByVal wParam As Object, ByVal lParam As Object) As Integer
Click to expand...

Declare 'wParam' and 'lParam' as 'Int32' and pass a 0.
Public Const WM_GETTEXT = &HD
Public Const WM_GETTEXTLENGTH = &HE

dim length
Click to expand...

'... As Int32'.
, NotepadResult as String

length = SendMessage(handle2, WM_GETTEXTLENGTH, Nothing, 0)
Click to expand...

\\\
NotepadResult = Strings.StrDup(length, " "c)
///

SendMessage(handle2, WM_GETTEXT, length, NotepadResult)
Click to expand...

\\\
MsgBox(NotepadResult)
///
 
Thanks Herfried,

that solved my problem.

But I had to declare lParam as String:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Object, ByVal
lParam As String) As Integer

Thanks again!

Regards
Sebastian
 
Correction:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Int32, ByVal
lParam As String) As Integer

Seb Schöps said:
Thanks Herfried,

that solved my problem.

But I had to declare lParam as String:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Object, ByVal
lParam As String) As Integer

Thanks again!

Regards
Sebastian
Click to expand...
 
* "Seb Schöps said:
But I had to declare lParam as String:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Object, ByVal
lParam As String) As Integer
Click to expand...

That's true for 'WM_GETTEXT'. You can overload 'SendMessage'.
 
Back
Top