[Мышь, клавиатура] Реалистичный ввод текста ботом. Как?

[Petro78]

Всем привет!
Есть участок кода. Как сделать рандомную продолжительность паузы между последовательными симуляциями нажатий клавиатуры, после нажатия каждой буквы?

Opt ("SendKeyDelay", Random(20, 245))
Run ("notepad.exe")
WinWaitActive ("Untitled - Notepad")
Send ("Привет. Это тест продолжительность паузы между последовательными симуляциями нажатий клавиатуры.")
Sleep (3000)
WinClose ("Untitled - Notepad")
Send ("!N")

 

[madmasles]

Petro78,
Попробуйте так:

$sString = 'Привет. Это тест продолжительность паузы между последовательными симуляциями нажатий клавиатуры.'
$aString = StringSplit($sString, '')

Run('notepad.exe')
$hWin = WinWait('[Class:Notepad]', '', 5)
If $hWin Then
	For $i = 1 To $aString[0]
		ControlSend($hWin, '', '[CLASS:Edit;INSTANCE:1]', $aString[$i])
		Sleep(Random(50, 500, 1))
	Next
Else
	MsgBox(16, 'Error', 'Нет окна')
EndIf

 

[Zaramot]

OffTopic:
Посмотри это:
Текстовые Эффекты

 

[Petro78]

Спасибо! Добавлю как пример в свою коллекцию ;)