VBS定时执行idea程序的Testng文件的方法（vbs定时关闭程序）怎么可以错过

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

本文介绍了在WScript中使用TestNG执行测试的完整脚本流程。首先，定义了两个变量`RunTime`和`WshShell`，并使用`InputBox`接收用户输入的等待时间（默认为180分钟）。随后，通过`WScript.Sleep`等待指定时间后，启动并激活IDEA，以获取窗口焦点。接着，执行快捷键`Shift+F10`来运行TestNG测试，最后使用`Quit`关闭脚本。整个脚本实现了从用户输入到测试执行再到退出的完整流程。

‘第一部分：定义变量
Dim RunTime
Dim WshShell
Set WshShell=WScript.CreateObject(“WScript.Shell”)

‘第二部分：输入等待的分钟数(默认：180分钟)，等待结束后，会执行第三部分
RunTime=InputBox(“Please enter how long to execute:”, “Time(单位：Minutes)”, 180)
WScript.Sleep (RunTime*1000*60)

‘第三部分：打开idea，并激活idea窗口(主要是为了获取焦点，否则快捷键无法执行)
WshShell.Run “IDEA.lnk”
WScript.Sleep 60000
WshShell.AppActivate “UITest”

‘第四部分：通过快捷键Shift+F10，执行testng
WScript.Sleep 1000
WshShell.SendKeys “+{F10}”
WScript.Sleep 1000
WScript.Quit