как нажимать на случайную строку, используя VBS каждый раз в этом существующем коде

Question

Вот мой код

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "john@text"

Я хочу, чтобы каждый раз, когда я запускаю файл vbs, текст между "и @ должен быть случайным. John @ text должен быть случайным каждый раз, например sdfr@ текст, aqwe @ текст и т. д.

Answer 1

Используйте случайно сгенерированные целые числа для представления символов ASCII, а затем преобразуйте байтовый массив в строку.Пример:

Dim randomWord As String
Dim randomWordAsByteArray(1 To 4) As Byte

Randomize
Dim charNumber As Integer
For charNumber = 1 To 4
    randomWordAsByteArray(charNumber) = Int((26 * Rnd) + 1) + 96
Next

randomWord = StrConv(randomWordAsByteArray, vbUnicode)