如何用VBS编写一个简单的恶搞脚本

Posted 2020-10-17

windows系统的电脑，

首先右击桌面，选择新建-文本文档，在桌面上新建一个文本文档；

 

 

 

随后打开计算机或者是我的电脑，点击其中的组织（xp系统多为工具），选择下面的文件夹和搜索选项

 

 

 

在弹出的窗口中点击查看，向下滚到，找到隐藏已知文件类型的扩展名，点掉勾号，然后确定；

 

 

 

此时发现新建的文本文档出现后缀名为.txt

 

 

 

打开文本文档后，输入： msgbox“傻X”，后保存。

 

 

 

修改文本文档的后缀，将.txt改为.vbs，后确定，双击打开。窗口弹出如图所示窗口，点确定或关闭后消失。

 

 

 

如果想添加一个对方关闭不掉的窗口，则在刚才的代码中添加do ... loop

 

 

 

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键以及把这两个组合起来，让百度告诉你吧。