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

2019-03-25 17:37:36 浏览数 (1)

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

0 人点赞