QTP图片验证/图片比较/二进制流对比法

　　图片验证主要是文件对比，其中我们可以利用二进制的方法读取图片信息，然后进行对比，达到对比的效果，本例子利用fso对象的文件流的方法实现，代码如下：

　　Public Function CompareFiles (FilePath1, FilePath2)

　　Dim FS, File1, File2

　　Set FS = CreateObject("scrīpting.FileSystemObject")

　　If FS.GetFile(FilePath1).Size <> FS.GetFile(FilePath2).Size Then

　　CompareFiles = True

　　Exit Function

　　End If

　　Set File1 = FS.GetFile(FilePath1).OpenAsTextStream(1, 0)

　　Set File2 = FS.GetFile(FilePath2).OpenAsTextStream(1, 0)

　　CompareFiles = False

　　Do While File1.AtEndOfStream = False

　　Str1 = File1.Read(1000)

　　Str2 = File2.Read(1000)

　　CompareFiles = StrComp(Str1, Str2, 0)

　　If CompareFiles <> 0 Then

　　CompareFiles = True

　　Exit Do

　　End If

　　Loop

　　File1.Close()

　　File2.Close()

　　End Function

　　返回值：

　　如果两个文件相同，该功能将返回 0 或 False，否则将返回 True。

　　示例：

　　File1 = "C:\1.jpg"

　　File2 = "C:\2.jpg"

　　If CompareFiles(File1, File2) = False Then

　　MsgBox "Files are identical."

　　Else

　　MsgBox "Files are different."

　　End If

　　以上内容为大家介绍了自动化测试中的QTP图片验证/图片比较/二进制流对比法，本文由多测师亲自撰写，希望对大家有所帮助。了解更多自动化测试相关知识：https://www.aichudan.com/xwzx/