Hallo,
ich hab mich spasseshalber mal an einen Bot für das Spiel Curveball gemacht =)
Allerdings scheint mir die Funktion mit jedem Pixel auszulesen und zu überprüfen zu langsam...
Hat irgendwer Tipps für mich was ich machen könnte ? =)

http://www.albinoblacksheep.com/flash/curveball

Ich hab auch mal das Programm angehängt...


MfG WinApi

Sagmal gehts dir noch zu gut???

Ich hätte fast meinen PC neustarten müssen!!!

Habe bestimmt 5 Minuten gebraucht bis ich dein sch.. Programm beendet hatte

Oh tut mir wirklich leid =(
Ich habe noch keinen Notstop eingebaut...

-.-^^

Dann bau den bitte ein ... Vorher wage ich mich nichtmehr daran -.-^^

Zitat von Neutral General:

Sagmal gehts dir noch zu gut???

Ich hätte fast meinen PC neustarten müssen!!!

Habe bestimmt 5 Minuten gebraucht bis ich dein sch.. Programm beendet hatte

jup mir gings genauso ;-(

Ich möchte mich nochmals sehr entschuldigen

Mir geht es eigentlich nur um den Teil...

zusammenfalten · markieren

Delphi-Quellcode:

Function PixelSearch(Color:TColor;Objekt:Flaeche;Differenz:Integer):Boolean;
var x,y: Integer;
    Handle: HWND;
begin
MyCanvas:= TCanvas.Create;
MyCanvas.Handle:=GetDC(0);
for x := Objekt.VonX to Objekt.BisX do
 begin
  for y := Objekt.VonY to Objekt.BisY do
   begin
    if (MyCanvas.Pixels[x,y] < Color + Differenz) and (MyCanvas.Pixels[x,y] > Color - 50) then
     begin
     SetCursorPos(x,y);
     mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
     mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
     Result := True;
     Exit;
     end;
   end;
 end;

end;

Mit dem Pixel auslesen ist das einfach zu langsam =( Ich suche nur nach einer schnelleren Methode..^^

Hi,

Kopier alles auf ein Bitmap und benutze dann TBitmap.Scanline.

Dazu findest du auch hier im Forum genug glaube ich. Einfach mal nach Scanline suchen

Okay danke dir =)
Hoffe du kannst mir verzeihen =)

Kann ich

Wenn ich etwas nicht kann, dann auf irgendjemanden lange böse sein -.-^^ (Ist nicht immer ganz von Vorteil aber hat auch seine Vorteile^^)