Помогите с Sendmessage

Тема в разделе "Visual Basic", создана пользователем zzzaaazzz, 16 мар 2011.

  1. zzzaaazzz

    zzzaaazzz Гость

    Добрый день.
    Необходимо имитировать нажатие клавиш в другом приложении(не активном). Что только не пробывал. В обычное текстовое поле блокнота успешно получается. Ниже код

    Код (Text):
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As String, ByVal lParam As String) As Integer

    Private Const WM_CHAR As Integer = &H102
    Private Const WM_DEADCHAR As Integer = &H103
    Private Const WM_KEYUP As Integer = &H101
    Private Const WM_KEYDOWN As Integer = &H100
    Private Const WM_COMMAND As Integer = &H111

    hwnd = FindWindow(vbNullString, TextBox1.Text)

    SendMessage(hwnd, WM_CHAR, "1", 0)
    Что только не пробывал, всеравно не хочет, мб упускаю какую нибудь мелочь, подскажите плиииззз :)
     
Загрузка...

Поделиться этой страницей