[Автоматизация] Автокликер

[forze1902]

Добрый день =) Сегодня решил написать автокликер просто под себя, но столкнулся с проблемой, горячая клавиша не задается, пробывал несколько раз.

Исходник:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <HotKeyInput.au3>
#include <HotKey.au3>

Global $Form, $ButtonOk, $HotkeyInput1, $HotkeyInput2, $GUIMsg
Opt("TrayMenuMode", 1)
#Region ### START Koda GUI section ### Form=
$Form = GUICreate("Автокликер by HemeiN", 323, 160, 262, 150)
$Pic1 = GUICtrlCreatePic("C:\Users\1\Pictures\Новая папка\i2.jpg", 0, 0, 321, 100)
$key = _GUICtrlCreateHotKeyInput(0, 60, 58, 41, 22)
_KeyLock(0x062E)
GUICtrlCreateLabel('Хоткей:', 10, 58, 44, 14)
$ButtonOk = GUICtrlCreateButton('OK', 110, 124, 80, 23)
GUICtrlSetState(-1, BitOR($GUI_DEFBUTTON, $GUI_FOCUS))
GUISetState()
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $GUIMsg
  Case $GUI_EVENT_CLOSE
   Exit
        Case $ButtonOk
            _HotKeyAssign("0x" & Hex(_GUICtrlReadHotKeyInput($Key), 2), "repair")
   EndSwitch
WEnd

func repair()

Send("{F1}")
Sleep(240)
Send("{F2}")
Sleep(240)
Send("{F3}")
Sleep(240)
Send("{F4}")
Sleep(240)
Send("{F5}")
Sleep(240)
Send("{F6}")
Sleep(240)
Send("{F7}")
Sleep(240)
Send("{F8}")
Sleep(240)

EndFunc

Func _Exit()
Exit
EndFunc

 

[kaster]

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Глобальный модератор.

 

[Belfigor]

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Модератор.

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Автоматизация] Автокликер" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Модератор.