autoit / автоскрипты / clicker /

Источник:

http://www.autohotkey.com/
http://forum.script-coding.com/ - подборка скриптов
http://autoit-script.ru/
http://forum.script-coding.com/viewtopic.php?id=1615
https://www.autoitscript.com/autoit3/docs/functions/Send.htm - клавиши 
http://autoit-script.ru/docs/tutorials/ - примеры на русском языке

http://www.autohotkey.com/

http://forum.script-coding.com/ - подборка скриптов

http://autoit-script.ru/

http://forum.script-coding.com/viewtopic.php?id=1615

https://www.autoitscript.com/autoit3/docs/functions/Send.htm - клавиши

http://autoit-script.ru/docs/tutorials/ - примеры на русском языке

Пример скрипта:

При нажатии клавиши "1" начинает печатать в активное окно "222" с интервалом в секунду. 
Приостановка по F11, возобновление - по F12.
_________________________________________
1::
Loop
{
  Send 222
  Sleep 1000
}
Return

F11::                 ; Приостановка по F11.
  If not Stop
  {
    Stop := True
    Pause
  }
Return

F12::                 ; Возобновление по F12.
  If Stop
  {
    Stop := False
    Pause
  }
Return
________________________________________

При нажатии клавиши "1" начинает печатать в активное окно "222" с интервалом в секунду.

Приостановка по F11, возобновление - по F12.

_________________________________________

1::

Loop

{

Send 222

Sleep 1000

}

Return

F11:: ; Приостановка по F11.

If not Stop

{

Stop := True

Pause

}

Return

F12:: ; Возобновление по F12.

If Stop

{

Stop := False

Pause

}

Return

________________________________________

Пример скрипта с «зацикливанием».

При нажатии клавиши "1" начинает печатать в активное окно "222" с интервалом в секунду. 
После 10 таких действий печатает в активное окно один раз "333", а затем начинает всё заново.
________________________________________
1::
  Loop, 10
  {
    Send 222
    Sleep 1000
  }
  Send 333
GoTo, 1
_______________________________________

При нажатии клавиши "1" начинает печатать в активное окно "222" с интервалом в секунду.

После 10 таких действий печатает в активное окно один раз "333", а затем начинает всё заново.

________________________________________

1::

Loop, 10

{

Send 222

Sleep 1000

}

Send 333

GoTo, 1

_______________________________________

Примеры команд которые могут пригодится:

; - комментарий
; Autoit Editor. Для запуска скрипта, компиляции и проверки идем в меню Tools.
; Go запустит и выполнит текущий скрипт

#RequireAdmin - попросить дать права админа
WinWaitActive("Сапёр") - ожидать появление программы с именем окна Сапер
Run("notepad.exe") - запуск блокнота
Run("C:\1\Autoruns64.exe") - запуск программы Autoruns64.exe
sleep(1000) - подождать 1000мс = 1сек
send("123{ENTER}ABVG") - нажать цифры 1,2,3, клавишу ENTER, и клавиши A,B,V,G
MsgBox(0, "Обучение", "Привет Мир!") - Выведет на экран "Привет мир Мир!"
MsgBox(64, "Обучение", "Привет Мир!")  - Выведет на экран "Привет мир Мир!" - будет друга иконка из за флага 64

; - комментарий

; Autoit Editor. Для запуска скрипта, компиляции и проверки идем в меню Tools.

; Go запустит и выполнит текущий скрипт

#RequireAdmin - попросить дать права админа

WinWaitActive("Сапёр") - ожидать появление программы с именем окна Сапер

Run("notepad.exe") - запуск блокнота

Run("C:\1\Autoruns64.exe") - запуск программы Autoruns64.exe

sleep(1000) - подождать 1000мс = 1сек

send("123{ENTER}ABVG") - нажать цифры 1,2,3, клавишу ENTER, и клавиши A,B,V,G

MsgBox(0, "Обучение", "Привет Мир!") - Выведет на экран "Привет мир Мир!"

MsgBox(64, "Обучение", "Привет Мир!") - Выведет на экран "Привет мир Мир!" - будет друга иконка из за флага 64

Windows 10 запуск ножниц….

;#!!!! На windows 10 есть проблема с запуском встроенных программ.... из autoit

$tValue = DllStructCreate("dword")

If @OSArch = "X64" And @AutoItX64 = 1 Then
    Run(@WindowsDir & "\System32\SnippingTool.exe")
ElseIf @OSArch = "X64" And @AutoItX64 = 0 Then
    ;отключаем и после запуска включаем обратно редирект System32->SysWOW64
    DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "ptr", DllStructGetPtr($tValue))
    Run(@WindowsDir & "\System32\SnippingTool.exe")
    DllCall("kernel32.dll", "int", "Wow64RevertWow64FsRedirection", "ptr", DllStructGetPtr($tValue))
Else
    Run(@WindowsDir & "\System32\SnippingTool.exe")
EndIf

;#!!!! На windows 10 есть проблема с запуском встроенных программ.... из autoit

$tValue = DllStructCreate("dword")

If @OSArch = "X64" And @AutoItX64 = 1 Then

Run(@WindowsDir & "\System32\SnippingTool.exe")

ElseIf @OSArch = "X64" And @AutoItX64 = 0 Then

;отключаем и после запуска включаем обратно редирект System32->SysWOW64

DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "ptr", DllStructGetPtr($tValue))

Run(@WindowsDir & "\System32\SnippingTool.exe")

DllCall("kernel32.dll", "int", "Wow64RevertWow64FsRedirection", "ptr", DllStructGetPtr($tValue))

Else

Run(@WindowsDir & "\System32\SnippingTool.exe")

EndIf

Пример скрипта печатаем в блокнот:

Run("notepad")
sleep(1000)
Send("«Война́ и мир» — роман-эпопея Льва Николаевича Толстого, {ENTER}описывающий русское общество в эпоху войн против Наполеона в 1805—1812 годах. {ENTER}Эпилог романа доводит повествование до 1820 года. ")

Run("notepad")

sleep(1000)

Send("«Война́ и мир» — роман-эпопея Льва Николаевича Толстого, {ENTER}описывающий русское общество в эпоху войн против Наполеона в 1805—1812 годах. {ENTER}Эпилог романа доводит повествование до 1820 года. ")

Пример функции клавиш для сапера(XP) (ms virtual code key)

; В сапере на windows XP был чит. при вводе пароля появляется пиксель. и черный цвет есть бомба. белый цвет есть нет бомбы
Func SendVkey($iCode)
    DllCall('user32.dll', 'int', 'keybrd_event', 'int', $iCode, 'int', 0, 'int', 0, 'ptr', 0)
    DllCall('user32.dll', 'int', 'keybrd_event', 'int', $iCode, 'int', 0, 'int', 2, 'ptr', 0)
 EndFunc

Run("c:\1\winmine.exe")
WinActive("Сапер")

Send("{ALT}{DOWN 4}{ENTER}")
Sleep(500)

SendVKey(0x58)
SendVKey(0x59)
SendVKey(0x5A)
SendVKey(0x5A)
SendVKey(0x59)
SendVKey(0xA0)

;Send("XYZZY") тот самы чит
;Sleep(500)

Local $SaperXY = WinGetPos("Сапер")
Local $CurrentX = $SaperXY[0] + 22
Local $CurrentY = $SaperXY[1] + 103
Local $TotalMines = 99

for $i=1 to 16
   for $j=1 to 30
	  MouseMove($CurrentX+ ($j-1)*16, $CurrentY + ($i-1)*16, 0)
	  Sleep(5)
	  if pixelGetColor(0,0) > 0 Or $TotalMines = 0 Then
		 MouseClick("left")
	  Else
		 MouseClick("right")
		 $TotalMines = $TotalMines - 1
	  EndIf
   Next
Next

; вводим в форму победителя свое чудесное имя Я
Send("Я")
Sleep(3000)
Send("{Enter}")
Sleep(3000)
Send("{Enter}")

#include <MsgBoxConstants.au3>
MsgBox($MB_SYSTEMMODAL, "Auttoit", "Yo, Моя закончила!", 10)

; В сапере на windows XP был чит. при вводе пароля появляется пиксель. и черный цвет есть бомба. белый цвет есть нет бомбы

Func SendVkey($iCode)

DllCall('user32.dll', 'int', 'keybrd_event', 'int', $iCode, 'int', 0, 'int', 0, 'ptr', 0)

DllCall('user32.dll', 'int', 'keybrd_event', 'int', $iCode, 'int', 0, 'int', 2, 'ptr', 0)

EndFunc

Run("c:\1\winmine.exe")

WinActive("Сапер")

Send("{ALT}{DOWN 4}{ENTER}")

Sleep(500)

SendVKey(0x58)

SendVKey(0x59)

SendVKey(0x5A)

SendVKey(0x59)

SendVKey(0xA0)

;Send("XYZZY") тот самы чит

;Sleep(500)

Local $SaperXY = WinGetPos("Сапер")

Local $CurrentX = $SaperXY[0] + 22

Local $CurrentY = $SaperXY[1] + 103

Local $TotalMines = 99

for $i=1 to 16

for $j=1 to 30

MouseMove($CurrentX+ ($j-1)*16, $CurrentY + ($i-1)*16, 0)

Sleep(5)

if pixelGetColor(0,0) > 0 Or $TotalMines = 0 Then

MouseClick("left")

Else

MouseClick("right")

$TotalMines = $TotalMines - 1

EndIf

; вводим в форму победителя свое чудесное имя Я

Send("Я")

Sleep(3000)

Send("{Enter}")

Sleep(3000)

Send("{Enter}")

#include <MsgBoxConstants.au3>

MsgBox($MB_SYSTEMMODAL, "Auttoit", "Yo, Моя закончила!", 10)

Еще один пример с банкнотом win_xp:

; Запускается блокнот. Печатаем. и Выходим без сохранения.
; AutoIt v3 Window Info  -  всегда поможет определится с окнами (имя документа, что нажать..... и т.д.)

Run("notepad.exe")
WinWaitActive("Безымянный - Блокнот") ; Win_XP
Send("Это некоторый текст.")
WinClose("Безымянный - Блокнот") ; Win_XP
WinWaitActive("Блокнот", "Сох&ранить")
Send("!n")

; Запускается блокнот. Печатаем. и Выходим без сохранения.

; AutoIt v3 Window Info - всегда поможет определится с окнами (имя документа, что нажать..... и т.д.)

Run("notepad.exe")

WinWaitActive("Безымянный - Блокнот") ; Win_XP

Send("Это некоторый текст.")

WinClose("Безымянный - Блокнот") ; Win_XP

WinWaitActive("Блокнот", "Сох&ранить")

Send("!n")

Еще один пример с банкнотом win_10_rus:

Run("notepad.exe")
WinWaitActive("Безымянный – Блокнот")
Send("Это некоторый текст.")
WinClose("*Безымянный – Блокнот")
WinWaitActive("Блокнот")
Sleep(200)
Send("!н") ; ! - это клавиша ALT и да тут русская буква н. ALT+н

Run("notepad.exe")

WinWaitActive("Безымянный – Блокнот")

Send("Это некоторый текст.")

WinClose("*Безымянный – Блокнот")

WinWaitActive("Блокнот")

Sleep(200)

Send("!н") ; ! - это клавиша ALT и да тут русская буква н. ALT+н