vbs之使用语法

本篇博文最后修改时间：2017年12月22日 11：00。



一、简介
本文以说明vbs部分语法为例。

二、实验平台
电脑平台：Windows7 64位旗舰



三、版权声明
博主：_懵懂
声明：此博客仅供参考不做任何商业用途，最终解释权归原博主所有。
原文地址：http://blog.csdn.NET/qq_18842031
QQ：951795235
E-mail ：[e-mail]
懵懂之MCU交流群：136384801
单片机软件/硬件交流：127034610


四、实验前提
暂无

五、基础知识
暂无

六、源码地址
暂无

七、关联文章
暂无

八、实验内容

1、VBS打开软件

Dim wshSet wsh = WScript.CreateObject("WScript.Shell")wsh.Exec "D:\Program Files\NEC Electronics Tools\QBP\V3.11\bin\qbp.exe"      打开软件

2.VBS查询软件是否在运行

'test.vbsstrComputer = "."Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'qbp.exe'")If colProcessList.Count>0 ThenWScript.Echo "运行"ElseWScript.Echo "没运行"End If

3.关闭某个软件

CreateObject("WScript.Shell").Run "taskkill /f /im qbp.exe", 0

4.模拟键盘按键

wsh.SendKeys "^{a}"