Версия AutoIt: 3.
Version 2.28
Описание:
Нужен простой бот-кликер клавиш "Tab, 1,2-9,0" с интервалом от 1 до 1000 секунд
для игры battle of the immortals genesis (бота там нету а кнопки одни и те же все время жать надо :'( )
Примечания:
нашел тут на форуме бота на 3 кнопки но он глючит и дополнительно постоянно жмет "Y" и "K" с непонятным интервалом (возможно это не глюк но хотелось бы исправить) :whistle:
кнопки я добавил время тоже но постоянное моргание 2х окон относящихся к кнопкам Y и K немного напрягает.
Да и с Табом не получается, пишу "Key tab", но наверно это не правильно(((
Не силен в программирование. Помогите если не трудно :(
Заранее благодарен :IL_AutoIt_1:
Version 2.28
Описание:
Нужен простой бот-кликер клавиш "Tab, 1,2-9,0" с интервалом от 1 до 1000 секунд
для игры battle of the immortals genesis (бота там нету а кнопки одни и те же все время жать надо :'( )
Примечания:
нашел тут на форуме бота на 3 кнопки но он глючит и дополнительно постоянно жмет "Y" и "K" с непонятным интервалом (возможно это не глюк но хотелось бы исправить) :whistle:
Код:
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
Dim $aControls[4][5] = [[3],['Key 1'],['Key 2'],['Key 3']]
$fWork = False
GUICreate('Test', 170, 400)
For $i = 1 To $aControls[0][0]
$aControls[$i][1] = GUICtrlCreateCheckbox($aControls[$i][0], 20, 10 + ($i - 1) * 30, 60, 20)
$aControls[$i][2] = GUICtrlCreateInput(0, 90, 10 + ($i - 1) * 30, 60, 20, $ES_READONLY)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 10, 0)
Next
$nButtonStart = GUICtrlCreateButton('Start', 35, 300, 100, 30)
$nButtonStop = GUICtrlCreateButton('Stop', 35, 340, 100, 30)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $nButtonStop
$fWork = False
ConsoleWrite('-----> Stop Click' & @LF)
GUICtrlSetState($nButtonStop, $GUI_DISABLE)
GUICtrlSetState($nButtonStart, $GUI_ENABLE)
For $i = 1 To $aControls[0][0]
$aControls[$i][3] = 0
$aControls[$i][4] = 0
Next
Case $nButtonStart
For $i = 1 To $aControls[0][0]
If BitAND(GUICtrlRead($aControls[$i][1]), $GUI_CHECKED) Then
$aControls[$i][3] = GUICtrlRead($aControls[$i][2])
If Number($aControls[$i][3]) Then
$aControls[$i][4] = TimerInit()
$fWork = True
EndIf
EndIf
Next
If $fWork Then
GUICtrlSetState($nButtonStart, $GUI_DISABLE)
GUICtrlSetState($nButtonStop, $GUI_ENABLE)
EndIf
EndSwitch
If $fWork Then
For $i = 1 To $aControls[0][0]
If Number($aControls[$i][3]) Then
If TimerDiff($aControls[$i][4]) > $aControls[$i][3] * 1000 Then; sec
;здесь можно нажимать клавиши
ConsoleWrite($aControls[$i][0] & @TAB & StringFormat('%.1f sec', TimerDiff($aControls[$i][4]) / 1000) & @LF)
Send($aControls[$i][0])
$aControls[$i][4] = TimerInit()
EndIf
EndIf
Next
EndIf
WEnd
кнопки я добавил время тоже но постоянное моргание 2х окон относящихся к кнопкам Y и K немного напрягает.
Да и с Табом не получается, пишу "Key tab", но наверно это не правильно(((
Не силен в программирование. Помогите если не трудно :(
Заранее благодарен :IL_AutoIt_1: