VBScript (vbs) 脚本实例

欢迎小伙伴的点评✨✨

---

前言

本文将会给大家带来，VBScript简介及代码实例。

---

一、vbs是什么？

VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。
vbs是系统内置的，用它编写的脚本不用编译成二进制文件，直接就由Windows系统宿主host解释源代码并执行。

二、简单使用VBScript实例

2.1、msgbox实例

打开你的“记事本”或者直接在桌面上新建一个“文本文档”，在里面输入下面代码，按Ctrl+S快捷键保存,然后修改后缀名为“.vbs”。

msgbox "Hello vbs"

效果图示

2.2、VBScript 的变量

VBScript 中的变量声明实际上不是必须的。
这很好，您可以在任何地方使用新变量，而无需事先声明。并不会强制要求您必须事先声明变量。一旦VBScript 在脚本中遇到了新的未声明的变量，它就会为其分配内存。
实例如下：

lngFirst = 1
lngSecond = 2
lngThird = lngFirst + lngSecond
MsgBox lngThird

效果图示

当变量使用过多，不易于检查变量时，需要使用Option Explicit 语句。
要做的就是将 Option Explicit 语句放到脚本的开头，所有的其他语句之前。这就是告诉 VBScript，您的代码要求所有的变量在使用之前都必须先显式地声明。现在 VBScript 就不再会允许您在代码中不做声明就引入新的变量。
没有使用Option Explicit 语句 实例如下：

lngFirst = 1
lngSecond = 2
lngThird = lngFirst + cond
MsgBox lngThird

效果图示

此时，由于cond 未被赋值初始化所以值为0，故1 + 0 = 1 因此为避免变量上使用方法的不合理，我们加上Option Explicit 语句 合理的要求所有的变量在使用之前都必须先显式地声明。
使用Option Explicit 语句 实例如下：

Option Explicit
lngFirst = 1
lngSecond = 2
lngThird = lngFirst + cond
MsgBox lngThird

效果图示

在编写新的脚本文件时，首先要做的事情就是在文件最开始输入 Option Explicit，并回车。这就能避免烦人的代码输入错误。

三、VBScript 输出文本及键盘按键到cmd

3.1、cmd的FOR循环

在cmd窗口中： for %I in (command1) do command2
实例如下：

for /L %a in (0,1,4) do echo Hello cmd!

指令解析：
具体到上一段代码，如果是 (0,1,4) 就是从0开始，每次增加1，直到4才结束。

效果图示

在批处理文件中： for %%I in (command1) do command2

@echo off
for %%I in (A ,B ,C) do echo %%I
pause

新建文档xx.txt,将上述代码拷贝其中并将后缀名改为bat 双击运行即可,如下图所示

效果图示

3.2、cmd的ping指令

常用循环ping包指令如下

ping 127.0.0.1 -t -l 65500

指令详解如下图

3.1、VBScript 批量输出到cmd命令代码实例

Option Explicit  'vbs注释格式，Option Explicit 语句 使所有的变量在使用之前都必须先显式地声明
Dim objShell     '声明一个变量存储对象
Dim fs           '声明一个变量存储对象
Dim ts           '声明一个变量存储对象
Dim line         '声明一个变量存储文本
Set objShell = CreateObject("Wscript.Shell") '得到对象objShell ，即Wscript 是一个对象
'我们首先了解下对象Wscript : Windows Script Host object model 
'简单的说，Wscript就是Windows脚本宿主对象模型(WSHCOM),而Wscript就是Windows内对象存放的一个根对象
'利用它可以创造两种COM对象：WshShell与WshNetwork 。
objShell.Run "cmd.exe",1,False   '运行cmd,窗口 false为可见窗口，true为隐藏窗口
WScript.Sleep 50 '延时50毫秒
set fs = CreateObject("scripting.filesystemobject") '打开并读文件
set ts = fs.opentextfile("loop_ip.txt",1,true) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建
WScript.Sleep 50  '延时50毫秒
objShell.SendKeys "for /l " '输出文本
objShell.SendKeys "{%}"     '输出按键
objShell.SendKeys "a in "   '输出文本
objShell.SendKeys "{(}"     '输出按键
objShell.SendKeys "1,1,"    '输出文本
line=ts.readline            '读取loop_ip.txt中的第一行，这一行的数据表示循环次数
objShell.SendKeys line      '输出文本
objShell.SendKeys "{)}"     '输出按键
objShell.SendKeys " do start cmd /k "  '输出文本
objShell.SendKeys """"       '输出文本
objShell.SendKeys " ping "   '输出文本
line=ts.readline             '读取loop_ip.txt中的第二行，这一行的数据表示ping包的IP地址
objShell.SendKeys line       '输出文本
objShell.SendKeys " -t -l 65500"  '输出文本
objShell.SendKeys """"       '输出文本
objShell.SendKeys "{ENTER}"  '输出按键
'最终输出到指令到cmd : for /l %a in (1,1,10) do start cmd /k " ping 127.0.0.1 -t -l 65500"

新建文档xx.txt,将上述代码拷贝其中并将后缀名改为vbs,另外在新建loop_ip.txt，第一行写循环次数（10），第二行写IP（127.0.0.1） 双击运行即可,如下图所示

loop_ip.txt 图示

start_up.vbs 图示

效果图示

四、总结

VBScript 作为一种工具，可以有多种使用方法，可以用于多种不同的应用程序。
VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。它的解释器是Windows脚本宿主，简称VBScript ，后缀名为 .vbs 。