远程启动Qtp/UFT开始测试

On Error Resume Next 

'开始运行前关闭桌面所以的程序,避免出现意外错误

Close_Process("excel.exe") 


Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
Set myExcelBook = ExcelBook.WorkBooks.Open("D:\MyAutoTest\Config.xls")
Set myExcelSheet = myExcelBook.WorkSheets("ScriptPath")
GetExcleSheetRowsCount = myExcelSheet.UsedRange.Rows.Count


'设置自动化引擎的默认状态,脚本运行一旦出错(由场景恢复来写错误),则终止测试。

'采用qtp杀自己的方式不可行,采用杀这个引擎方式也不可取(不是qtp卡死,就是继续执行下个脚本)。

'最好的方式就是让这个脚本自己退出程序。

StatusRuned = "D:\MyAutoTest\StatusRuned.txt"
WriteNotepad StatusRuned,"Run"

'读取excel中每一行,然后分别启动qtp/uft 
For i = 1 To GetExcleSheetRowsCount
Set oppobj = createobject("quicktest.application","192.168.5.5")
oppobj.Launch 
oppobj.Visible = True
oppobj.windowstate = "Maximized"
oppobj.open myExcelSheet.cells(i,1).value
Set qtTest = oppobj.test
Set objRecovery = oppobj.test.settings.recovery
Set objResultsOpt = CreateObject("QuickTest.RunResultsOptions")
objResultsOpt.ResultsLocation = myExcelSheet.cells(i,2).value
qtTest.Run objResultsOpt
qtTest.Close
Set objResultsOpt = Nothing
Set qtTest = Nothing
Set oppobj = Nothing

'发现文件中为Err是停止循环

Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.OpenTextFile(StatusRuned, 1)
Do Until fil.AtEndOfStream
Temp = fil.ReadLine
exit do
Loop
if instr(Temp ,"Err")   then 
i = GetExcleSheetRowsCount
end if

fil.Close
Set fso = Nothing 

next


ExcelBook.Quit
set ExcelSheet = Nothing
Set ExcelBook = Nothing


'关闭uft进程
wscript.sleep 5000
wscript.sleep 5000
call Close_Process("UFT.exe")


 '写状态函数
Sub WriteNotepad(MyFile,MyStr)
Dim fso, fil


'创建fso对象
Set fso = CreateObject("Scripting.FileSystemObject")

Set fil = fso.OpenTextFile(MyFile, 2)
fil.Write(MyStr)

'关闭文件
fil.Close

'释放文件
Set fso = Nothing


End Sub

'关闭指定进程
sub Close_Process(ProcessName)  
On Error Resume Next  
    for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ 'ѭ۷޸Ԍ  
  if Ucase(ps.name)=Ucase(ProcessName) then  
ps.terminate  
  end if  
    next  

end sub  


说明:

      如果想要通过其它电脑来运行这个脚本(通过telnet连接到qtp电脑),以启动UFT进行测试,需要实现QTP、EXCEL的 DCOM功能。



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

蜕变之痛

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值