[Мышь, клавиатура] Побуквенный ввод текста

[WR-e-D]

Добрый день, может у кого есть готовая UDF - нужно чтобы любой текст(будь то набор в notepad-е или ввод переменной в инпут формы) вводился не полностью (грубо говоря копипастом), а побуквенно с рендомными паузами, как бы печатал человек.

 

[InnI]

WR-e-D [?]

побуквенно с рендомными паузами

HumanType("Вот как-то так печатает средний пользователь")

Func HumanType($str)
  $ar = StringSplit($str, "")
  For $i = 1 To $ar[0]
    Send($ar[$i])
    Sleep(Random(100, 400, 1))
  Next
EndFunc