Pixelgetcolor sehr langsam

Hallo Leute ich bin gerade dabei ein kleines Ambilight zu basteln und brauche dafür ein codeschnipsel, dass mir den linken und rechten Bildschirmrand analysiert und darraus einen Mittelwert berechnet. Diese Mittelwerte sollen dann per serielle Schnittstelle an ein kleine Mikrocontroller board gesendet werden.
Ich habe mal ein kleines Codeschnipsel für den linken Rand geschrieben und naja das dauer einfach vieeeeelll zu lange:

#include <array.au3>
Dim $farbe[31][101]

$time = TimerInit()

For $i = 0 To 30
For $p = 0 To 100
$farbe[$i][$p] = PixelGetColor($i*10, $p*10)
;ToolTip($i & $p)
Next
Next
MsgBox(0,"llalal", timerdiff($time))

Das dauer bei mir 104! sekunden
Das muss doppelt ablaufen und dann mit ca 20fps, gibts mit Autoit da eine Möglichkeit oder muss ich auf was anderes umsteigen?

Danke schonmal

Abend, ist es denn nötig so viele Pixel abzufragen? im Normalfall spiegelt das Ambilight doch immer den Rand des Bildes wieder d.h. du kannst doch Pro Bildseite also Links, Rechts, Oben und ggf Unten zb 20 Abfragen machen mit einem Abstand von 100 Pixeln oder so, so detailgenau gibt das Ambilight doch die Seitenränder überhaupt nicht wieder, ist zumindest bei unserem Phillips Tv nicht der Fall dass jeder Pixel auf dem Ambilight abgebildet wird^^

Gruß Marvin

waaas ?!
Ich habe einen Pc von 2010 mit quadcore und 4ghz pro KERN und 8gb Ram
hat jemand ne Ahnung wieso das bei mir soo langsam ist?

edit:
Das im Code ist ja auch der linke Bildrand und später soll der Farbdurchschnitt aus all diesen Pixeln dann berechnet werden.

ja es liegt definitiv an aero, wenn ich auf windows standart design umschalte, braucht das script nurnoch 60msec hat jemand ne Idee wie das auch mit Win7 schnell läuft?

wow danke für das Script
kommt leider nicht ganz an das Getpixel script ran Das aus dem 1. Beitrag etwas optimiert dauer bei mir ca 2ms und deins 80ms aber trotzdem danke