SeeTest_See test代码在QTP中运行（1）

发布时间：2020-12-16 22:26:15 所属栏目：大数据来源：网络整理

导读：Set client = DotNetFactory.CreateInstance("experitestClient.Client","E:InstallSoftwareSeeTestExperitestStudioclientsC#imageClient.dll") client.Connect "127.0.0.1",8888 client.SetProjectBaseDirectory "C:UsersTEMPworkspace

Set client = DotNetFactory.CreateInstance("experitestClient.Client","E:InstallSoftwareSeeTestExperitestStudioclientsC#imageClient.dll")
client.Connect "127.0.0.1",8888
client.SetProjectBaseDirectory "C:UsersTEMPworkspacetuangou"
client.SetApplicationTitle "adb:M9W1B08AKDUHXO2991"
Report
client.Click "default","element 0",1
Report
client.Sleep 15000
Report
client.Click "default","element 8",1,0
Report
client.Sleep 3000
Report
client.Click "default","element 2",167,"element 3",1
Report
client.Sleep 3000
Report
client.Click "default","element 4",157,"element 7",141,0
Report
client.Sleep 3000
Report
client.SendText "{ESC}"
Report
client.Click "default","element 1",1
Report

Sub Report()
Dim logLine,outFile,status,errorMessage
logLine = client.GetResultValue ("logLine")
outFile = client.GetResultValue("outFile")
status = client.GetResultValue("status")
If StrComp (status,"True") = 0 then
Reporter.ReportEvent micPass,logLine,"",outFile
else
errorMessage = client.GetResultValue("errorMessage")
Reporter.ReportEvent micFail,errorMessage,outFile
end if
End Sub

在See Test中录制好过程，然后转化为QTP VB Script,直接在QTP中就可以运行了。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!