5.3.1-VBS代码

如上一节所述，vbs代码作用就是定期运行监控系统.xlsm，要求vbs文件与拟运行文件放置于一个文件夹中（当然也可以不放在同一个文件夹中，修改对应的文件地址即可）。vbs脚本在文本编辑软件中编写，保存后。如无法运行，使用微软自带Notepad打开，另存时编码选择ANSI，如图5-8所示。

vbs代码如下：

1   Dim wsh
2   Dim current_dir
3   Dim next_file
4   MsgBox "此脚本旨在定期运监<<监控系统.xlsm>>"
5   Set wsh = CreateObject("Wscript.Shell")
6
7   current_dir = wsh.currentdirectory
8   Do While True
9       next_file = "监控系统.xlsm"
10      wsh.run next_file, 2, True
11      Wscript.sleep (2*1000) '休息2秒
12  Loop
../_images/5-8.png

图5-8所示 另存vbs文件

关键代码解读：

1）第10行： wsh.run next_file, 2, True。该语句的作用就是启动next_file这个文件，包括两个参数

  • 1.1）2，该参数可以取值0，1，2，3，4，5。2表示显示运行窗口，并最小化该窗口。

  • 1.2）True，该参数可以取值为True，False。True表示等待程序运行完毕，再执行本语句下面的语句；False表示无需等待，直接执行下面的语句。在这里我们选择True，保持整个程序是串行在运行，不允许同时启动多个监控系统.xlsm

2）第11行： Wscript.sleep (2*1000)。该语句作用是程序暂停2秒，单位为毫秒