pixel rengine gore clik gonderme

[Lord_Ares]

arkadaşlar internette bulunan flash oyun var. bu oyunda siyah arkafonun içinde beyaz kutular var
bu kutuların uzerine mouser ile tıklayarak topluyorsunuz.Kutular rast gele yerlerde çıkıyor. yapmak istediğim şey bu sayfa içinde dolaşarak beyaz kutuları bulup mouse click göndermek. bunu nasıl yaparım fikri olan varmı.
benim ilk aklıma gelen webbrowserda açtığım sayfanın genişlik ve yuksekliğini pixel olarak bulmak. daha sonra mouse move komutu ile bu kordinatlara mouse gezdirmek ve mousun bulunduğu konumda 5 pixellik bir alanın rengini almak. eğer gelen renk beyaz ise mouse cilick gondermek.

fakat bu dedimi nasıl yaparım kod hakında fikri olan varmı..

[qamyoncu]

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
var
i,j:integer;
begin
for i:=webbrowser1.Left to (webbrowser1.width+webbrowser1.left) do
  begin
    for j:=webbrowser1.Top to (webbrowser1.top+webbrowser1.Height) do
      begin
        if (form1.Canvas.Pixels[i,j]=clwhite) then
          begin
             setcursorpos(Form1.left+i,form1.Top+j);
             SendMessage(Form1.Handle,WM_LBUTTONDOWN,0,0);
          end;
      end;
  end;
end;

end.

Ancak sonsuz bir döngüde, döngüden çıkarmak sana kalmış, umarım işine yarar, kolay gelsin..

[Lord_Ares]

allah razı olsun senden hocam. çoook teşekkurler.