передать горячую клавишу...

[drronnie]

Господа, как передать активному окну клавишу типа Ctrl+Insert (надо скопировать в буфер обмена то, что там сейчас)...?

[timsoft]

SendKeys "^{INSERT}", True не работает?

[GSerg]

Мож не заниматья извращениями и послать сразу WM_COPY?

[drronnie]

Спасибо!

[drronnie]

вот пишу call sendmessage (getforegroundwindow(),wm_copy,0,0)
а оно... болт!
Что не так?

[drronnie]

Прошу прощения за то, что реанимирую неинтересную тему....
Господа, ну подскажите.... очень нужно.....

[GSerg]

Ты посылаешь переднему окну, а должен его текстбоксу
Юзай функцию GetGUIThreadInfo, чтобы сразу получить хэндл текстбокса...

[drronnie]

Ты посылаешь переднему окну, а должен его текстбоксу
Юзай функцию GetGUIThreadInfo, чтобы сразу получить хэндл текстбокса...

Правильно, в принципе, но в примере из API-Guide возвращается хэндл активного контрола только в том случае, если он принадлежит моему окну, а если нет - возвращает 0 Что делать?

[Ennor]

FindWindow() по имени класса окна с известным тебе стартовым окном - MainEnemyWindow.hWnd. Рано или поздно (зависит от количества текстбоксов во вражеском объекте) получишь указатель на цель.

[GSerg]

GetGUIThreadInfo возвращает всё и всегда, независимо ни от чего...

[drronnie]

Ennor, а рано или поздно это как? Не всем же подряд передавать нужную комманду...
GSerg, должно возвращать.... а возвращает 0... Может я что-то торможу... но если я делаю текстбокс на своей форме - всё ок... Но на вражеской - болт...

Может быть сделаешь примерчик...
Не пойми не правильно, я вроде б как не чайник, но что-то нескладуха какая-то....
Сделай, плз, если не трудно....
Например, чтоб в Debug окно добавлялось по таймеру....
Т.е., сначала wm_copy активному окну, а затем из clipboard'а в debug... OK?

[GSerg]

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

Option Explicit

Private Declare Function GetGUIThreadInfo Lib "user32.dll" (ByVal idThread As Long, ByRef pgui As GUITHREADINFO) As Long

Private Type RECT
  l As Long
  t As Long
  r As Long
  b As Long
End Type

Private Type GUITHREADINFO
  cbSize As Long
  flags As Long
  hwndActive As Long
  hwndFocus As Long
  hwndCapture As Long
  hwndMenuOwner As Long
  hwndMoveSize As Long
  hwndCaret As Long
  rcCaret As RECT
End Type

Private Sub Form_Load()
  Me.AutoRedraw = True
End Sub

Private Sub Timer1_Timer()
  Dim g As GUITHREADINFO
 
  g.cbSize = Len(g)
  GetGUIThreadInfo 0, g
  Me.Cls
  Me.Print g.hwndFocus
End Sub

[drronnie]

GSerg, спасибо!
Понял в чём трабла... вместо 0 я юзул GetCurrentThreadId... Только посмотрел, её описание и въехал, а тут и ты ответил.... Спасибо!
Не думал, что с 0 она будет возвращать хэндл активного контрола окна активного треда....

[drronnie]

Ладно с копированием и вставкой разобрались... Но всё равно трабла возникает: Значит копирую текст, издеваюсь над ним и вставляю....
а вместо "Миранда" получаю "Ìèðàíäà" Что нужно сделать с текстом перед вставкой в буфер обмена... или вставлять надо как-то по-особенному, через АПИ например? Я просто делаю.

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

Clipboard.Clear
Clipboard.SetText...

Что тут не-так? Может в кодировку какую-то хитрую надо перевести? В koi-8r например?

[GSerg]

Мож явно в формате vbcftext вставлять?

[drronnie]

Всё-равно не получается...
Я ещё вот, что заметил:
Если сейчас стоит английская раскладка клавиатуры и я в Эксплорере копирую русский текст, а потом вставляю в код - то вставляются все русские символы как "?", а если при копированиее стоит русская раскладка - всё ОК...
Какая тут зависимость?

[GSerg]

Зависимость в юникоде или в отсутствии оного.

[drronnie]

А как в юникод перекодить? У меня примерчик есть - попробовал, не получается...

[GSerg]

strconv не помогает?
Тогда попробуй сделать то, что мы делали для лечения корявого копипастинга из IDE. Поищи в Трёпе тему "Как копипастить... Ну, из этой... Ну, вы поняли..."

[drronnie]

Не нашёл....

[drronnie]

GSerg, а можно конкретнее.... а то я не нашёл то, о чём ты говорил...

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=9233

[drronnie]

Спасибо!
Правда респект!