¡Quiero usar la función sendmessage en vb.NET para enviar un mensaje al Bloc de notas! Cómo codificar...

Función de declaración privada FindWindowEx Lib "user32" Alias ​​​​"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long , ByVal lpsz1 como cadena, ByVal lpsz2 como cadena) mientras

Función de declaración privada SendMessage Lib "user32 " Alias ​​​​"SendMessageA " (ByVal hwnd mientras, ByVal wMsg mientras, ByVal wParam mientras, lParam As Any) Mientras

Función de declaración privada FindWindow Lib "user32" Alias ​​​​" FindWindowA" (ByVal lpClassName Como cadena, ByVal lpWindowName Como cadena) Mientras

Const privada WM_SETTEXT = amp; HC

Subcomando privado1_Click()

Dim s As String, myhwnd As Long

s = Texto1

myhwnd = FindWindow(vbNullString, "abc.txt - Notepad")

myhwnd = FindWindowEx(myhwnd, 0amp;, "Edit", vbNullString) 'Utilice espía para ver el nombre del control, en este caso Editar, el control el nombre de un software específico es fijo

Si myhwnd = 0 Entonces

MsgBox "!!!!!!!!"

Salir de Sub

Finalizar si

SendMessage myhwnd, WM_SETTEXT, 0, ByVal s

End Sub