文章摘要
本文介绍了一种利用VBScript实现自动化测试的方法。首先，定义了两个变量`RunTime`和`WshShell`，`RunTime`用于存储等待时间（默认为180分钟），`WshShell`用于创建Windows Shell对象。接着，程序等待指定时间后，自动启动并激活IDEA窗口。随后，使用快捷键`Shift+F10`执行测试脚本。整个流程简洁明了，适用于需要自动化测试的场景。
‘第一部分：定义变量
Dim RunTime
Dim WshShell
Set WshShell=WScript.CreateObject(“WScript.Shell”)
‘第一部分：定义变量
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
© 版权声明
文章版权归作者所有，未经允许请勿转载。
