KEYSTRING("Всё очень просто", 75)
https://youtu.be/V3rjtOR27CU
KEYSTRING("Всё очень просто", 75)
https://youtu.be/V3rjtOR27CU
Интересно, а возможно для реалистичности сделать так, чтобы задержка между буквами была рандомной?
Это даёт странный результат:
WAITMS(500)
KEYSTRING("9037678567", RND(50,1150))
HALT
Задержка разная при каждом запуске скрипта, но одинаковая при каждом наборе новой буквы. Можно конечно сделать каждую строчку под каждую букву и между строчками ставить рандомное время на задержку, но это очень длинный скрипт получается.
Так и должно быть. Функция rnd в keystring вызывается один раз, и с этой задержкой уже идет набор символов. Что бы задержка между буквами была рандомной, придется набирать по одному символу.
//раскладка клавиатуры должна соответствовать языку строки. В данном примере - RU
//подпрограмма набора с рандомной задержкой между каждым символом.
SUB(rnd_keystring, $str, $from, $to)
FOR($a=1,$a<strlen($str)+1)
waitms(rnd($from, $to))
KEYSTRING(strcut($str, $a, 1 ))
END_CYC
END_SUB
//вызов подпрограммы с параметрами - строка, задержка от, задержка до.
rnd_keystring("Всё очень просто", 50, 1150)
HALT