通过VBS定时启动特定被测程序

有时候我们在测试执行的过程中，需要指定被测程序的启动时间。本文通过Win32_ScheduledJob对象来实现定时启动功能。

以启动QQ为例，代码如下：

Dim strComputer
Dim strCommand
strComputer = "."
strCommand = chr(34)&"C:/Program Files/Tencent/QQ/Bin/QQ.exe"&chr(34)
Const INTERVAL = "n"
Const MINUTES = 1
Set objWMIService = GetObject("winmgmts://" &strComputer &"/root/cimv2")
Set objScheduledJob = objWMIService.Get("Win32_ScheduledJob")
Set objSWbemDateTime = CreateObject("Wbemscripting.SWbemDateTime")
objSWbemDateTime.SetVarDate(DateAdd(INTERVAL, MINUTES, Now()))
errReturn = objScheduledJob.Create(strCommand, objSWbemDateTime.Value, False, 0, 0, True, intJobID)
If errReturn = 0 Then
 msgbox "QTP was started with a process ID: " &intJobID
Else
 msgbox "QTP could not be started due to error: "&errReturn
End If

 

运行程序后，系统将在1分钟后启动QQ。