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