qtp学习笔记------通过时间循环来定时启动脚本

'通过时间循环来定时启动脚本
dim IsStart,timeStart
timeStart="17:07"
IsStart=true
while IsStart
  wscript.sleep 1000
  if cstr(Hour(now))=split(timeStart,":")(0) then
    if cstr(minute(now))=cstr(cint(split(timeStart,":")(1))) then
       set ws =createobject("wscript.shell")
       ws.run "D:\function\All.vbs"
       set ws=nothing
       IsStart=false
    end if
  end if
wend