[VB.NET]Problema SendMessage

[Davidex3]

Ho creato un programma e voglio che invii una sequenza di tasti ad una finestra minimizzata, un po' come il SendKeys, solo che appunto la finestra non ha il focus.
Il problema è che il codice non funziona . Come da titolo, ho utilizzato l'API SendMessage
Codice:

Declare Auto Function SendMessage Lib "user32.dll" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Public WM_CHAR As Integer = &H102

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        
        Dim processo() As Process = Process.GetProcessesByName("notepad")
        Dim NotepadHandle As Int32 = processo(0).MainWindowHandle.ToInt32
     
        SendMessage(NotepadHandle, WM_CHAR, &H45, 1)' in questo caso tento di premere il tasto E, 1 volta
      End Sub

Non riesco a capire dov'è l'errore. Tra l'altro, ho provato ad inserire una textbox e a cambiare il NotepadHandle con Me.Textbox1.Handle e funziona... Sarà un problema di handle?? Ho provato anche a mettere al posto di MainWindowHandle ,Handle ma nulla. Attendo un vostro aiuto.

[eziogsv]

Non so se può essere questo... ma gli handles si impostano in IntPtr (ed infatti GetProcesses ritorna IntPtr).

La corretta dichiarazione di SenMessage in VB.net conseguentemente è:

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr  , _
    ByVal Msg As UInteger, ByVal wParam As IntPtr, _
           ByVal lParam As IntPtr) As IntPtr
End Function

Prova.........

[Davidex3]

Grazie per la risposta, ma il problema persiste , altre soluzioni?

[oregon]

Il messaggio va inviato al textbox che sta all'interno della finestra del notepad. Devi quindi ottenere l'handle di questa textbox per usare la SendMessage.

Per farlo devi usare la FindWindow e FindWindowEx, ovvero

    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _
        (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

    Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
      (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr

    Private WM_CHAR As Integer = &H102
    
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim notepadHandle As IntPtr = FindWindow("Notepad", Nothing)
        Dim editHandle As IntPtr = FindWindowEx(notepadHandle, IntPtr.Zero, "Edit", Nothing)

        SendMessage(editHandle, WM_CHAR, &H45, 1)
    End Sub

[Davidex3]

Grazie mille, funziona .. Adesso però ti chiedo, come hai fatto a trovare il nome "Edit" della textbox, e come faccio a fare la stessa cosa con un altro programma (quindi a trovare il nome del controllo al quale inviare i tasti)?

[oregon]

Usa un tool come Spy++ e tanta pazienza

[Davidex3]

Perfetto, tutto risolto in un paio d'ore, grazie mille a tutti