Отсылка сообщений WM_KEYDOWN WM_CHAR и WM_KEYUP

[Alex_maniac]

Всем доброго дня!
Задам вопрос более глупо чем хотелось бы, но вместе с тем и более кратко:
Есть старая как мир задача сэмулировать ввод с клаватуры для НЕАКТИВНОГО окна. естестевенно, используется SendMessage. Вопрос в кодировке русских символов и значениях lParam и wParam. С установкой символов латыницы проблем нет. русские - крякозябры. Подскажите, как перекодировать , что использовать ??? [/syntax]

[alibek]

Alex_maniac, пока что та формулировка вопроса, которую ты использовал, никак не тянет на сложный вопрос.
Возможно, нужно использовать LoadKeyboardLayout.


tag_warning

[keks-n]

Alex_maniac
SendMessageW вылечит кракозябры юникодом.

[Alex_maniac]

Вот посылка кирилицей буквы "а" окну назначения (это лог с клавиатуры)

wParam lParam
WM_KEYDOWN 046 21 0001
WM_CHAR 0E0 21 0001
WM_KEYUP 046 21 0001

с wParam все ясно. а вот с lParam - ".. биты 16-23 - скан-код, зависящий от ОЕМ" - (MSDN). Получить его мне не удается никак. CharToOem - не то. OemKeyScan - вообще не то , иногда даже -1, возвращает.

чего куда преобразовывать ??? .. хм..[/syntax]

[Alex_maniac]

да. и SendMessageW тоже не хочет
и SendMessage(WM_UNICHAR ....) - то же.

[tyomitch]

The VkKeyScan function translates a character to the corresponding virtual-key code and shift state for the current keyboard.

[Alex_maniac]

Работает!!!!

Код: Выделить всё


Private Sub SendString(s1 As String)
  Dim f As Long
    Dim t1 As Long
    Dim t2 As Long
    Dim s As String
    Dim tmps As String
    Dim b() As Byte
    s = s1
   
    ReDim b(1)
   
    For f = 1 To Len(s)
      tmps = Mid(s, f, 1)
      CopyMemory VarPtr(b(0)), StrPtr(tmps), 2
      t1 = b(1) * 2 ^ 8 + b(0)
      t2 = 1
      SendMessageW CLng(txtHandle.Text), WM_UNICHAR, t1, t2
    Next f
   
    SendMessage CLng(txtHandle.Text), WM_KEYDOWN, 13, 1
    SendMessage CLng(txtHandle.Text), WM_KEYUP, 10, 1
End Sub


[Alex_maniac]

The VkKeyScan function translates a character to the corresponding virtual-key code and shift state for the current keyboard.

Думаешь не пробовал ?? галякЪ