SendMessage

Hvordan ser da din nuværende kode ud?

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
      (ByVal lpClassName As String, ByVal lpWindowName As String) _
        As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long

Const WM_KEYDOWN = &H100

Private Sub Command1_Click()

Dim myHandle As Long

myHandle = FindWindow(vbNullString, "Untitled - Notepad")
Call SendMessage(myHandle, WM_KEYDOWN, Asc("debug"), 0)

End Sub

Prøv med
PostMessage(myHandle, WM_KEYDOWN, Asc("debug"), 0)

i stedet for
Call SendMessage(myHandle, WM_KEYDOWN, Asc("debug"), 0)

Stadig intet

Hvad returner FindWindow(vbNullString, "Untitled - Notepad") ??

Den retunere et handle, jeg har lavet tests på det:

If (Not myHandle = 0) Then
    Call PostMessage(myHandle, WM_KEYDOWN, Asc("debug"), 0)
Else
    MsgBox "Handle not found"
End If

Hmm... Så kan jeg ikke hjælpe mere... :)