20.05.2018 13:18
Можно достать из инструментов "VBS программу" и прописать код:
'Генерация рандомного числа
Randomize
Dim rand, max, min
max=100
min=1
rand=Int( ( max - min + 1 ) * Rnd + min )
WScript.SetValue "{r}", rand 'передаёт переменную rand для дальнейшей обработки в виде переменной {r}
Затем использовать переменную {r} в цикле, вставив в него ожидание 1 сек.