ImagePut #2 - New HBitmap vs Old HBitmap

#include ImageEqual.ahk

errors := 0
Loop 1000 {
QPC(1)

hBitmap := ImagePutHBitmap("xd.png", 0xFFFFFFFF)

old += QPC()
if !ImageEqual(hBitmap, "xd.png")
   errors+=1
DllCall("DeleteObject", "ptr", hBitmap)

QPC(1)

hBitmap := ImagePutHBitmap("xd.png")

new += QPC()
if !ImageEqual(hBitmap, "xd.png")
   errors+=1
}
DllCall("DeleteObject", "ptr", hBitmap)

if (old > new)
   winner := "New Version wins by " old - new " and is " Abs(old - new)/new*100 "% faster."
else
   winner := "Old Version wins by " new - old " and is " Abs(old - new)/old*100 "% faster."

MsgBox % "Old Version:`t" old "`nNew Version:`t" new "`n" winner
MsgBox % "Number of errors:`t" errors
return

Esc:: ExitApp

QPC( R := 0 ) {    ; By SKAN,  http://goo.gl/nf7O4G,  CD:01/Sep/2014 | MD:01/Sep/2014
  Static P := 0,  F := 0,     Q := DllCall( "QueryPerformanceFrequency", "Int64P",F )
Return ! DllCall( "QueryPerformanceCounter","Int64P",Q ) + ( R ? (P:=Q)/F : (Q-P)/F )
}