AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

CurveBall - Bot

Ein Thema von WinAPI · begonnen am 14. Jun 2008 · letzter Beitrag vom 14. Jun 2008
Antwort Antwort
WinAPI

Registriert seit: 7. Mai 2008
12 Beiträge
 
Delphi 7 Personal
 
#1

Re: CurveBall - Bot

  Alt 14. Jun 2008, 14:16
Ich möchte mich nochmals sehr entschuldigen

Mir geht es eigentlich nur um den Teil...

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..^^
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz