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

转载于:https://www.cnblogs.com/music378/p/6980388.html