compare img files

'
'x=Browser("Tesco Internet Phone -_2").Page("Tesco Internet Phone -").Image("Generating...").Check (CheckPoint("Generating..._2"))
'print x


'Systemutil.Run "iexplore.exe","https://www.tescointernetphone.com/register/?reset=true",,,3
browser("title:=Tesco Internet Phone - .*").page("title:=Tesco Internet Phone -.*").image("alt:=Generating...").CaptureBitmap "c:\bm\testx.bmp",True



For j=1 to 20
browser("title:=Tesco Internet Phone - .*").page("title:=Tesco Internet Phone -.*").webelement("innerhtml:=Click here","index:=1").Click
wait(5)
browser("title:=Tesco Internet Phone - .*").page("title:=Tesco Internet Phone -.*").image("alt:=Generating...").CaptureBitmap "c:\bm\testx.bmp",True
wait(5)
fileAct = "c:\bm\testx.bmp"
For i= 1 to 150

fileExp ="C:\bm\test"&i&".bmp"

'fileExp="c:\bm\test2.bmp"
set oCompareUtil = CreateObject("Mercury.FileCompare")
if oCompareUtil.IsEqualBin(fileExp, fileAct, 0, 1) then
print i&"found"
print fileExp
msgbox i
Exit for
else
'print i&"doesnt match"
end if
set oCompareUtil = Nothing
Next
Next


'browser("title:=Tesco Internet Phone - .*").page("title:=Tesco Internet Phone -.*").image("alt:=Generating...").CaptureBitmap "c:\bm\test2.bmp",True

'
'For i=1 to 150
'browser("title:=Tesco Internet Phone - .*").page("title:=Tesco Internet Phone -.*").image("alt:=Generating...").CaptureBitmap "c:\bm\test"&i&".bmp",True
'
'browser("title:=Tesco Internet Phone - .*").page("title:=Tesco Internet Phone -.*").webelement("innerhtml:=Click here","index:=1").Click
'wait(5)
'Next
'