Как имитировать Ctrl+S

[dima-pol]

Для имитации нажатия клавиши «S» в текстовом поле чужого приложения я использую команду:

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

SendMessage tbTest.hwnd, WM_CHAR, vbKeyS, ByVal 0

А как симитировать одновременное нажатие «Ctrl» + «S» ?

[FireFenix]

Кроме книг, ещё существует msdn! Т.е. техническая документация от микрософт...

http://msdn.microsoft.com/en-us/library ... 85%29.aspx

[Qwertiy]

Обращаю внимание, что регистр буквы S а также текущий язык могут оказаться важны.

[dima-pol]

Кроме книг, ещё существует msdn! Т.е. техническая документация от микрософт...

http://msdn.microsoft.com/en-us/library ... 85%29.aspx

Я конечно же смотрел эту статью MSDN , но у меня сложилось впечатление что WM_CHAR позволяет задать одновременное нажатие только "Alt", но не "Ctrl" (меня больше интересует левый) . Или я не прав?

Обращаю внимание, что регистр буквы S а также текущий язык могут оказаться важны.

Как для WM_CHAR можно установить регистр?
Может Вы про SendKeys "^s". SendKeys мне не подходит.

[Хакер]

Терпеть не могу, когда люди пользуются заклинаниями.

«Инопланетные гуру написали код — мне же дураку предстоит им только пользоваться, совершено не понимая код».

Вот ваша философия.

Почему ты отправляешь именно WM_CHAR? Почему не WM_KEYxxx-собщения? Ты знаешь, что их связывает между собой? Ты знаешь, как между этими двумя вещами стоит TranslateMessage? А TranslateAccelerator?

[Qwertiy]

Может Вы про SendKeys "^s". SendKeys мне не подходит.

Не пользовался им в VB6... Хотя да, подумал как раз про него.
А это так и не доделал

[Filyus]

Вообще-то тут, как понял, не про текст речь идёт.

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

Private Sub Command1_Click()
  Dim hwnd As Long
  hwnd = FindWindow("Notepad", vbNullString)
  SetForegroundWindow hwnd
  keybd_event vbKeyControl, 0, 0, 0
  keybd_event vbKeyS, 0, 0, 0
  keybd_event vbKeyS, 0, KEYEVENTF_KEYUP, 0
  keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
End Sub

Чуть посложнее - на случай если нужно отправлять сочетание когда окно вашего приложения неактивно.

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

Private Sub Timer1_Timer()
  Timer1.Enabled = False
  Command1_Click
End Sub
Private Sub Command1_Click()
  Dim hwnd As Long
  Dim MyThreadId As Long, OtherThreadId As Long, ForegroundThreadId As Long
  hwnd = FindWindow("Notepad", vbNullString)
  MyThreadId = GetCurrentThreadId
  ForegroundThreadId = GetWindowThreadProcessId(GetForegroundWindow, ByVal 0)
  If MyThreadId = ForegroundThreadId Then
    SetForegroundWindow hwnd
    SendCtrlS
  Else
    OtherThreadId = GetWindowThreadProcessId(hwnd, ByVal 0)
    AttachThreadInput MyThreadId, OtherThreadId, 1
      SetFocusWindow hwnd
      SendCtrlS
    AttachThreadInput MyThreadId, OtherThreadId, 0
  End If
End Sub
Private Sub SendCtrlS()
  keybd_event vbKeyControl, 0, 0, 0
  keybd_event vbKeyS, 0, 0, 0
  keybd_event vbKeyS, 0, KEYEVENTF_KEYUP, 0
  keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
End Sub

О том, почему нельзя использовать PostMessage для этой цели:
http://blogs.msdn.com/b/oldnewthing/arc ... 23202.aspx