Что нового

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

Petro78

Новичок
Сообщения
7
Репутация
0
Всем привет!
Есть участок кода. Как сделать рандомную продолжительность паузы между последовательными симуляциями нажатий клавиатуры, после нажатия каждой буквы?
Код:
Opt ("SendKeyDelay", Random(20, 245))
Run ("notepad.exe")
WinWaitActive ("Untitled - Notepad")
Send ("Привет. Это тест продолжительность паузы между последовательными симуляциями нажатий клавиатуры.")
Sleep (3000)
WinClose ("Untitled - Notepad")
Send ("!N")
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
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
 
Автор
P

Petro78

Новичок
Сообщения
7
Репутация
0
Спасибо! Добавлю как пример в свою коллекцию ;)
 
Верх