vbs恶搞小程序速成

今天我们来教大家一些vbs的知识

vbs输出

首先新建一个文本文档，后缀名改为vbs，右键，打开方式选择记事本
我们用msgbox来输出内容
示范：

MsgBox("hello world")
'可以写成msgbox,MsgBox,msgBox,括号可以不加。

最后Ctrl + Shift + S另存为，把文件编码改成ANSI就可以了，最后确定，如果他说要替换，那就给他替换。

之后双击运行就会出现一个弹窗，上面写着hello world

vbs输入

输入我们用inputbox来表示

InputBox("hhh")
'这个跟msgbox一样,但是括号不能去除

与上述方法一样，另存为，编码改为ANSI，再双击运行就可以。

vbs变量

vbs的变量我们用dim关键字来表示，语法为dim + 变量名
1.

dim a
MsgBox(a)

dim a
a = 10
Msgbox(a)

vbs的if语句

相信学编程的人都知道，if语句是必不可少的判断语句，vbs也一样

if…then…else类型

首先，vbs的if…then…else语句的语法是if + 判断条件 + then + 满足此条件要执行的命令 + else + 不满足此条件要执行的命令
最后，必须添加end if，指结束此if语句

dim a
a = Inputbox("你同不同意我离婚")
If a = "同意" Then
MsgBox("告辞")
Else
do
MsgBox("好")
loop
'else后面不用加then，如果加了会报错
End If

do…loop循环我们后面会学到

if…then…elseif…then…else类型

这个跟if…then…else差不多，语法是if + 第一个判断条件 + then +满足第一个条件要执行的命令 + elseif + 第二个条件 + then + 满足第二个条件要执行的命令 + else + 满足剩下条件要执行的命令 + end if

dim a
a = Inputbox("你同不同意我离婚")
If a = "同意" Then
MsgBox("告辞")
Elseif a = "不同意" Then
do
MsgBox("好")
loop
Else
MsgBox("那你想干嘛")
End If

vbs循环

while循环

while循环字面就是当什么什么什么不满足什么什么什么时，执行一个条件
可能你会问，是不是要添加end while，回答：是，但是要简写，写成wend

dim a
a = 1000
while a > 4
MsgBox(a)
a = a - 1
wend

do…loop循环

与while循环不同，do…loop循环是无限循环，无法定义条件，前面我有一个例子，就不举例子了，总之如果不调用任务管理器的话，是不能关掉的

vbs调用cmd命令

vbs怎么调用cmd呢，语法是CreateObject(“WScript Shell”).run "cmd.exe + cmd命令"这个没什么可说的，必须按照我写的，不然会报错
比如我要做一个关机的命令

CreateObject("WScript Shell").run "cmd.exe /c shutdown -s -t 5"

注意，后面cmd命令-t 后面的数字是倒计时关机的秒数。

小试牛刀

那么我们前面的都学完了，我们可以制作恶搞小程序了
直接上源码：

dim a
MsgBox("老板，我要辞职")
a = InputBox("同不同意")
If a = "同意" Then
MsgBox("告辞")
Elseif a = "不同意"
MsgBox("你的电脑有5秒关机")
CreateObject("WScript Shell").run "cmd.exe /c shutdown -s -t 5"
End If