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

最新推荐文章于 2024-11-16 20:25:46 发布

天涯飘雪

最新推荐文章于 2024-11-16 20:25:46 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： SeeTest 文章标签： report vb c# c

本文链接：https://blog.youkuaiyun.com/jiguanghoverli/article/details/7735946

SeeTest 专栏收录该内容

4 篇文章

订阅专栏

本文介绍如何在SeeTest中录制自动化测试流程，并将其转化为QTP的VBScript脚本，以便在QTP环境中直接执行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Set client = DotNetFactory.CreateInstance("experitestClient.Client", "E:\\InstallSoftware\\SeeTest\\ExperitestStudio\\clients\\C#\\imageClient.dll")
client.Connect "127.0.0.1", 8888
client.SetProjectBaseDirectory "C:\\Users\\TEMP\\workspace\\tuangou"
client.SetApplicationTitle "adb:M9W1B08AKDUHXO2991"
Report
client.Click "default", "element 0", 0, 1
Report
client.Sleep 15000
Report
client.Click "default", "element 8", 0, 1, 0, 0
Report
client.Sleep 3000
Report
client.Click "default", "element 2", 0, 1, 167, 0
Report
client.Sleep 3000
Report
client.Click "default", "element 8", 0, 1, 0, 0
Report
client.Sleep 3000
Report
client.Click "default", "element 3", 0, 1
Report
client.Sleep 3000
Report
client.Click "default", "element 8", 0, 1, 0, 0
Report
client.Sleep 3000
Report
client.Click "default", "element 4", 0, 1, 157, 0
Report
client.Sleep 3000
Report
client.Click "default", "element 8", 0, 1, 0, 0
Report
client.Sleep 3000
Report
client.Click "default", "element 7", 0, 1, 141, 0
Report
client.Sleep 3000
Report
client.SendText "{ESC}"
Report
client.Click "default", "element 1", 0, 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, logLine, errorMessage, outFile
end if
End Sub

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