Однострочный ввод VBS Autotyper

Question

В настоящее время я пытаюсь сделать автотипер в VBS, и я не могу понять, как легко ввести то, что должно быть напечатано. Прямо сейчас, вот как должен выглядеть мой код:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "notepad"
WScript.sleep 10000
WshShell.SendKeys "H"
WScript.Sleep 100
WshShell.SendKeys "e"
WScript.Sleep 100
WshShell.SendKeys "l"
WScript.Sleep 100
WshShell.SendKeys "l"
WScript.Sleep 100
WshShell.SendKeys "o"

Но я действительно хочу, чтобы в моем коде был весь текст, который будет автоматически набираться в одну строку, вместо того, чтобы мне приходилось повторять SendKeys для каждой буквы.

Answer 1

Я сделал для вас небольшой пример, который может печатать печатную машинку букв за буквой.

Надеюсь, это то, что вы ищете!

strText="Hello ! How are you mate ? Hope that everything is OK !" & vbCrlf &_
"This vbscript is made by Hackoo !" 
Call AutoTypeWriter(strText)
'------------------------------------------
Sub AutoTypeWriter(strText)
  intPause = 150
  Set Ws = CreateObject("WScript.Shell")
  'To start Notepad maximized
  Ws.Run "Notepad",3
  WScript.Sleep 1000
  intTextLen = Len(strText)
  For x = 1 to intTextLen
    strTempText = Mid(strText,x,1)
    Ws.Sendkeys strTempText
    WScript.Sleep intPause
  Next
End Sub
'------------------------------------------