Автор Тема: Программа для Макроссов  (Прочитано 3179 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Player00

  • Ушел с форума
  • Сообщений: 2312
  • Distortion Finished.....
    • Просмотр профиля
Программа для Макроссов
« : 28 Апрель 2010, 01:02:24 »
подскажите хорошие проги для макросов.
нужно одновременно нажать 3 кнопки и сразу отпустить
желательно с руководством.
« Последнее редактирование: 28 Апрель 2010, 02:08:49 от Septor »

Оффлайн empty

  • Пользователь
  • Сообщений: 52
    • Просмотр профиля
Re: Программа для Макроссов
« Ответ #1 : 28 Апрель 2010, 16:13:36 »
мне тоже бы было интересно, или которая по очереди нажмёт кнопки с 1ой по 8ую ::)

Оффлайн empty

  • Пользователь
  • Сообщений: 52
    • Просмотр профиля
Re: Программа для Макроссов
« Ответ #2 : 29 Апрель 2010, 11:54:37 »
не думал что это так просто найти хД
http://www.softsoft.ru/search/133755/index.htm

Оффлайн AjaxVS

  • Пользователь
  • Сообщений: 305
    • Youtube
    • Просмотр профиля
Re: Программа для Макроссов
« Ответ #3 : 29 Апрель 2010, 19:43:52 »
Цитата
нужно одновременно нажать 3 кнопки и сразу отпустить
есть такой примитивный "язык", называется AutoIT.
там все это делается элементарно.

Цитата
мне тоже бы было интересно, или которая по очереди нажмёт кнопки с 1ой по 8ую
я как-то лет 6 назад делал для себя подобное. любые кнопки имитировать.
AjKeysImitter100
ctrl+f7 для опций, если readme не читать ^^

Оффлайн empty

  • Пользователь
  • Сообщений: 52
    • Просмотр профиля
Re: Программа для Макроссов
« Ответ #4 : 30 Апрель 2010, 10:25:56 »
я как-то лет 6 назад делал для себя подобное. любые кнопки имитировать.
AjKeysImitter100
ctrl+f7 для опций, если readme не читать ^^
Спасибо, а паузу между нажатиями кнопок как сделать?
Или дай исходник ^_^

Оффлайн AjaxVS

  • Пользователь
  • Сообщений: 305
    • Youtube
    • Просмотр профиля
Re: Программа для Макроссов
« Ответ #5 : 30 Апрель 2010, 15:45:38 »
пауз не было предусмотрено.
да самому сделать такое ничего сложного, вот пример на vb6, "new standart exe":

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32.dll" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub PressKey(vk As Byte, Optional iTime As Long = 100)

Call keybd_event(vk, MapVirtualKey(vk, 0), 0, 0)
If iTime > 0 Then
    Sleep iTime
End If
Call keybd_event(vk, MapVirtualKey(vk, 0), 2, 0)

End Sub

Private Sub Form_Load()
Sleep 1500
PressKey vbKeyX
Sleep 500
PressKey vbKeyA
Sleep 1000
PressKey vbKeyQ
Sleep 1000
End
End Sub