[聚合文章] 如何用VBS编写一个简单的恶搞脚本

VBS在输入框中输入文字

方法1：VBS在输入框中输入文字代码：

MsgBox InputBox("此处输入文字")。

方法2：

name=Inputbox("此处输入文字")

Msgbox(name)

语法解释：

第一行，给第一行的inputbox(输入框命名)：name
第二行，弹出对话框，对话框的内容就是第一行的inputbox输入的内容。

VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Editon。

核心代码是一个函数：sendKeys "XXXX"

XXX就代表我们要打的字，这样我们只要在写vbs脚本的时候打一次字就行了。

方法，打开记事本，输入代码。

下面是代码：

Dim WshShell '定义一个对象，名字随便起'

Set WshShell=WScript.CreateObject("WScript.Shell") '初始化对象'

WScript.Sleep 2000 '程序暂停2秒'

WshShell.sendKeys "3{ENTER}" '模拟人工，按下3，然后按下ENTER键'

WScript.Sleep 2000 '程序暂停2秒'

WshShell.sendKeys "N123;Object-Oriented Programming;Dave Smith;2009;3{ENTER}"

WScript.Sleep 2000 '程序暂停2秒'

由于脚本运行起来特别快，所以可能会出现屏幕上正在输出，我们暂时无法输入，而导致的输入信息不完全。

这也就是程序暂停2秒的原因，当然如果你追求效率，可以试试把时间改到适合你为止。

sendKeys的内容暂时还不支持中文，只能是字符串，如果真的真的一定要输入中文的话，

可以把中文复制后，用sendKe模仿Ctrl + V，至于怎么模拟Ctrl键以及把这两个组合起来，让百度告诉你吧。

注：本文内容来自互联网，旨在为开发者提供分享、交流的平台。如有涉及文章版权等事宜，请你联系站长进行处理。