Вернуть VbKeyConstants в обратную сторону ?

[ALX_2002]

Челы, можно как нибудь без тупого Select Case реализовать возврат кода клавиш по текстовым константам ?

типа

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

K=RetKey("vbKeyLeft")

Function RetKey(K as string)

RetKey=...

End Function



[alibek]

K=vbKeyLeft ?

[ALX_2002]

2 alibek: Ну да, только мне нужно не константу подсовывать, а текстовое имя кнопки типа - "Enter"

[xolod]

Не, без блока условий никак, IMHO.
Ну если только в .Tag поле кнопки будет цифрового значения vbKeyLeft и подсовывать ты будешь его.

[ALX_2002]

2 xolod : Эм.... А объясни ламеру - эт как, плыыз ?

[xolod]

В ObjectBrowser VB (F2) смотри значения констант. Например vbKeyLeft=37.
Потом пропиши либо ручками в дизайнере форм, либо кодом.

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


Sub prepareButton()
  Me.Command1.Tag = 37
  Me.Command2.Tag = 38
  Me.Command3.Tag = 39
  '...
  Me.CommandN.Tag = X
End Sub


Теперь чтобы получить K, достаточно

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


Function GetK(byref objCommand as CommandButton) as KeyCodeConstants
  GetK = objCommand.Tag
End Sub


[ALX_2002]

ууу нее... Пасиб . Я лучше Select case

[ALX_2002]

В принципе моя задача сводится к тому, что нужно запомнить набор клавиш, записать в лог а потом воспроизводить нажатия по логу.

типа прога "нажималка"

Хотел для удобности в лог писать нечто подобное

----------
нажать 1
нажать A
нажать CAPS LOCK
нажать SHIFT
нажать ALT

ну и т.п


Всё думаю как удобнее интерфейс сделать... Ничё не получается

[GSerg]

Зафигачить в коллекцию.

[xolod]

У тебя программа только кнопки нажимать умеет?
Или ты написал что-то вроде поддержки макросов вдобавок к основной деятельности программы?

[GSerg]

Гы гы гы

Вариант для самых ленивых

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

Option Explicit

Private Sub Form_Load()
  GenerateCollectionCode "myCol", Text1
End Sub

Private Sub GenerateCollectionCode(ByVal CollectionName As String, ByVal DumpTo As TextBox)
  Dim t As New TLI.TLIApplication
  Dim i As Long, s As String
 
  With t.TypeLibInfoFromFile("MSVBVM60.DLL\3").Constants.NamedItem("KeyCodeConstants")
    For i = 1 To .Members.Count
      s = s & CollectionName & ".add " & .Members(i).Name & ", """ & .Members(i).Name & """" & vbNewLine
    Next
  End With
 
  DumpTo.Text = s
 
  Set t = Nothing
End Sub

В принципе, если для конечного проекта допустимо сохранить ссылку на TLI, то можно коллекцию не юзать, а тырить имена в процессе прямо из TLB

[ALX_2002]

2 GSerg: О ! Пасиб - ща буду тестить !

2 xolod: Ну я нашёл как генерить события клавы и мыши

Задача проста - нужно сделать эмулятор тупых действий человека

( нужно знакомому для прокачки бота из какой то онлайн игры )

Короче прога содержит 4 типа возможных действий

1) передвинуть курсор в X,Y

2) Сделать паузу на опред. кол-во секунд

3) Нажать кнопку (3-типа нажатия : Нажать, отпустить, кликнуть)

4)Ввести текст


Вот собсено и всё.

[ALX_2002]

2 GSerg: А у меня никакого TLI нету . Какую DLL ку подрубить ?

[tyomitch]

Люди, я всё никак в тему не въеду - вы часом не про GetKeyNameText?

[ALX_2002]

Неа. Наоборот всё...

по KeyName нужно возвращать KeyCode для всех клавиш

[GSerg]

Мож тебе просто заполнять структуру данных SendInput и сохранять её в двоичном формате?
А библиотека называется TypeLib Information.