Sendmessage problem help!

  • Thread starter Thread starter paraidy
  • Start date Start date
P

paraidy

Hi all, reading some examples in this group i'm trying to send a text
to notepad, but it doesn't work, can someone to correct my code? Thx

Private Declare Function FindWindow Lib "user32.dll" Alias
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As
String) As Long
Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA"
(ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByRef
lParam As String) As Int32
Declare Function FindWindowEx Lib "user32.dll" Alias
"FindWindowExA" (ByVal hWnd1 As Int32, ByVal hWnd2 As Int32, ByVal
lpsz1 As String, ByVal lpsz2 As String) As Int32
Const WM_GETTEXT As Int32 = &HD
Const WM_GETTEXTLENGTH As Int32 = &HE
Const WM_SETTEXT As Int32 = &HC

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button10.Click
Dim Handle As Long
Dim Handlex As Int32
Handle = FindWindow("Notepad", "")
Handlex = FindWindowEx(Handle, 0, "Edit", "")
SendMessage(Handlex, WM_SETTEXT, 0, ("Hello!!"))
End Sub
 
See inline

/claes

paraidy said:
Hi all, reading some examples in this group i'm trying to send a text
to notepad, but it doesn't work, can someone to correct my code? Thx

Private Declare Function FindWindow Lib "user32.dll" Alias
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As
String) As Long
Click to expand...

Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As
String, ByVal lpWindowName As String) As IntPtr

Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA"
(ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByRef
lParam As String) As Int32
Click to expand...

Declare Auto Function SendMessage Lib "user32.dll" (ByVal hwnd As IntPtr,
ByVal wMsg As IntPtr, ByVal wParam As Int32, ByVal lParam As String) As
Int32

Declare Function FindWindowEx Lib "user32.dll" Alias
"FindWindowExA" (ByVal hWnd1 As Int32, ByVal hWnd2 As Int32, ByVal
lpsz1 As String, ByVal lpsz2 As String) As Int32
Click to expand...

Declare Auto Function FindWindowEx Lib "user32.dll" (ByVal hWnd1 As IntPtr,
ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As
IntPtr

Const WM_GETTEXT As Int32 = &HD
Const WM_GETTEXTLENGTH As Int32 = &HE
Const WM_SETTEXT As Int32 = &HC

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button10.Click
Dim Handle As Long
Dim Handlex As Int32
Handle = FindWindow("Notepad", "")
Handlex = FindWindowEx(Handle, 0, "Edit", "")
SendMessage(Handlex, WM_SETTEXT, 0, ("Hello!!"))
End Sub
Click to expand...


Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button10.Click
Dim Handle As IntPtr
Dim Handlex As IntPtr
Handle = FindWindow("Notepad", Nothing)
Handlex = FindWindowEx(Handle, 0, "EDIT", Nothing)
SendMessage(Handlex, WM_SETTEXT, 0, ("Hello!!"))
End Sub
 
You need to change the class names:

Handle = FindWindow("WordPadClass", Nothing)
Handlex = FindWindowEx(Handle, 0, "RICHEDIT50W", Nothing)

/claes
 
Claes said:
You need to change the class names:

Handle = FindWindow("WordPadClass", Nothing)
Handlex = FindWindowEx(Handle, 0, "RICHEDIT50W", Nothing)

/claes
Click to expand...

Thx a lot, you helped me a lot :)
 
Back
Top