| Другое > Hard'n'Soft |
| Программа для Макроссов |
| (1/1) |
| Player00:
подскажите хорошие проги для макросов. нужно одновременно нажать 3 кнопки и сразу отпустить желательно с руководством. |
| empty:
мне тоже бы было интересно, или которая по очереди нажмёт кнопки с 1ой по 8ую ::) |
| empty:
не думал что это так просто найти хД http://www.softsoft.ru/search/133755/index.htm |
| AjaxVS:
--- Цитата ---нужно одновременно нажать 3 кнопки и сразу отпустить --- Конец цитаты --- есть такой примитивный "язык", называется AutoIT. там все это делается элементарно. --- Цитата ---мне тоже бы было интересно, или которая по очереди нажмёт кнопки с 1ой по 8ую --- Конец цитаты --- я как-то лет 6 назад делал для себя подобное. любые кнопки имитировать. AjKeysImitter100 ctrl+f7 для опций, если readme не читать ^^ |
| empty:
--- Цитата: AjaxVS от 29 Апрель 2010, 19:43:52 ---я как-то лет 6 назад делал для себя подобное. любые кнопки имитировать. AjKeysImitter100 ctrl+f7 для опций, если readme не читать ^^ --- Конец цитаты --- Спасибо, а паузу между нажатиями кнопок как сделать? Или дай исходник ^_^ |
| AjaxVS:
пауз не было предусмотрено. да самому сделать такое ничего сложного, вот пример на 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 --- Конец кода --- |
| Навигация |
| Главная страница сообщений |