多测师是一家拥有先进的教学理念,强大的师资团队,业内好评甚多的接口自动化测试培训机构!

17727591462

联系电话

您现在所在位置:接口自动化测试培训 > 新闻资讯

QTP抓图并生成唯一名称保存到本地-自动化测试

更新时间:2022-05-26 09:33:39 作者:多测师 浏览:66

  方法概述:

  首先,生成唯一的文件名;

  其次,将这个文件名用变量传递给抓图生成的这个。bmp文件。

  现在想想这个问题是不是很简单,嘿嘿。

  以下为脚本代码:还是以QTP自带的这个flight4a。exe程序为例,希望本文起到抛砖引玉作用。

QTP抓图并生成唯一名称保存到本地-自动化测试

  代码:

  Function Rand(k,n) 'k为随机数的最大值, n的作用为传值.

  randomize

  n=int((k-1)*rnd+1)

  Rand=n

  End Function

  '产生以"cheers"开头,后边均为数字的唯一值.格式为:cheers090412212100

  Sub UniqueID(a)

  Y=split(date,"-")

  Y(1)=right("0"&Y(1),2)

  Y(2)=right("0"&Y(2),2)

  Y1=Y(1)&Y(2)

  T=split(time,":")

  T1=T(1)&T(2)

  n=rand(9,n)

  a="cheers"&Y1&T1&n

  End Sub

  Dialog("Login").WinEdit("Agent Name:").Set "cheerslee"

  Dialog("Login").WinEdit("Password:").SetSecure "49e93b35b292190e081ad0ce13cf2b8519acfc2d"

  Dialog("Login").WinButton("OK").Click

  Window("Flight Reservation").ActiveX("MaskEdBox").Type "090418"

  call UniqueID(a)

  Window("Flight Reservation").ActiveX("MaskEdBox").CaptureBitmap "D:\temp\qtp\"&a&".bmp", True

  如果要以当前运行脚本的名称为抓图文件名保存,可参考如下脚本:

  a=environment.Value("TestName")

  desktop.CaptureBitmap "D:\temp\qtp\"&a&".bmp",Ture

  以上内容为大家介绍了自动化测试中的QTP抓图并生成唯一名称保存到本地,本文由多测师亲自撰写,希望对大家有所帮助。了解更多自动化测试相关知识:https://www.aichudan.com/xwzx/

联系电话

17727591462

返回顶部