单行输入 VBS 自动打字机

本文介绍了单行输入 VBS 自动打字机的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

限时送ChatGPT账号..

我目前正在尝试在 VBS 中制作自动打字机，但我不知道如何轻松输入要输入的内容.现在，这就是我的代码的样子:

I am currently trying to make an autotyper in VBS and I cannot figure out how to easily input what is to be typed. Right now, this is what my code has to look like:

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.

But I really want my code to have all the text that will be auto-typed in just one line instead of me having to repeat the SendKeys for every letter.

推荐答案

我为你做了一个小例子，它可以像打字机一样一个字母一个字母地打字.

I made for you a little example that can type letter by letter as a Typewriter.

希望这是您正在寻找的东西！

Hope this what you are looking for !

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
'------------------------------------------

这篇关于单行输入 VBS 自动打字机的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！