[VB.NET] WM_PASTE en Sendmessage problemen

[LuCarD]

Ik ben bezig met een kleine test applicatie aan het maken. Deze applicatie moet dmv van een hotkey het clipboard naar het de desktop applicatie dumpen. De hotkey trigger werkt zonder problemen en de correcte handle ophalen van de desktop applicatie ook.

Alleen het copieren van het clipboard naar de applicatie werkt niet.

Ik heb dus de volgende minimale code geschreven om te testen, maar ik kom er niet uit

Visual Basic:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim hwnd As IntPtr = FindWindow("Notepad", vbNullString)
        Dim lpText As String

        lpText = New String(Chr(0), 100)
        If hwnd.Equals(IntPtr.Zero) Then System.Console.WriteLine("Zero: ")
        Dim intLength As Integer = GetWindowText(hwnd, lpText, _
          lpText.Length)
        SendMessage(hwnd, WM_PASTE, 0, 0)
'
' Genereert foutmelding in System.Runtime.InteropServices.Marshal.GetLastWin32Error()
' 
        displayError("button2")
' Laat een foutmelding zien
        System.Console.WriteLine("lptext: " + lpText.ToString)
' Werkt correct
    End Sub

    Public Declare Auto Function SendMessage Lib "user32" (ByVal HWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Long
    Public Const WM_PASTE As Integer = &H302

 Private Sub displayError(ByVal loc As String)
        Dim errorCode As Integer
        errorCode = System.Runtime.InteropServices.Marshal.GetLastWin32Error()
        If errorCode <> 0 Then
            Dim ex As System.ComponentModel.Win32Exception

            ex = New System.ComponentModel.Win32Exception(errorCode)
            System.Console.WriteLine( _
                String.Format("Error: {0} - {1} - {2}", errorCode, ex.Message, loc))
        End If
    End Sub

WM_PASTE op MSDN

Ik krijg de inhoud van de title van Notepad correct terug. Aangezien ik die kan zien in de variable lpText. Dus hwnd heeft de correcte handle. Maar ik krijg het niet voor elkaar om de clipboard te kopieren naar Notepad.

De foutmelding die ik te zien krijg is

code:

Error: 127 - The specified procedure could not be found - button2

Iemand een idee wat ik fout doe?

[Shezzie]

Het probleem is niet al te groot: je probeert de je clipboard te pasten op de window zelf, niet de editbox die er als child onder zit. Je moet dus nog iets verder snuffelen voor je handle.

Toevoegen:

Visual Basic .NET:

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

En hier gebruiken:

Visual Basic .NET:

        I
if hwnd.Equals(IntPtr.Zero) Then System.Console.WriteLine("Zero: ")
Dim intLength As Integer = GetWindowText(hwnd, lpText, lpText.Length)

Dim hwnd2 As IntPtr = FindWindowEx(hwnd, 0, Nothing, Nothing)
SendMessage(hwnd2, WM_PASTE, 0, 0)

Lees aub de hulp over FindWindowEx door: je kunt er veel mee, en het werkt alleen met nothingx2 omdat Notepad een simpel programmatje is.

Succes verder!