求助~Win7下开了Aero特效时PixelGetColor运行变慢

kisiboo

之前一直在xp写编写的，完全木有问题，今天拿到Win7下运行一看，卡了半天不动，一检查，居然是PixelGetColor卡了。
网上有说ahk的这个函数也有这种问题，但是人家有个UDF可以解决(FastPixelGetColor函数)，不知道au3的有木有捏？
出问题的代码如下

Func GETCUBEPIXEL()
        For $i=0 To $col-1
                For $j=0 To $row-1
                        $color=PixelGetColor(($baseX+$i*$pixelSP),($baseY+$j*$pixelSP))
                        If $color=0xEDEDED or $color=0xF7F7F7 Then
                                $color=0xFFFFFF
                        EndIf
                        $cube[$i][$j]=$color;
                        ConsoleWrite(StringFormat("%X",$cube[$i][$j]) & "(" & $j & "," & $i & ")_")
                Next
                ConsoleWrite(@CRLF)
        Next
EndFunc

正常情况下一运行就输出颜色矩阵了，结果Win7Aero下是一个一个输出的- -各种囧
求高手指导啊~~~~