Pixel suchen mit VB.NET

[Requi]

Ich versuche mich gerade an einer Pixelsuch Funktion, die vom Screen einen angegeben Pixel sucht und die X und Y Koordinaten zurück gibt.

Da ich was schnelles brauche, sind mir 1540 ms zu langsam. Und das in einem 2.Thread.
Ohne 2. Thread sind es bis zu 2100 ms.

Hätte da jemand was relativ schnelles, denn der Bot muss schnell hinterher kommen, bevor er sich verklickt.

Was ich habe:

 Spoiler

Public Sub PixelSearch(ByVal A As Integer, ByVal R As Integer, ByVal G As Integer, ByVal B As Integer)
        Dim bmp As New Bitmap(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height)
        Using graph As Graphics = Graphics.FromImage(bmp)
            graph.CopyFromScreen(0, 0, 0, 0, New Size(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height))
        End Using
        For x = 0 To bmp.Width - 1
            For y = 0 To bmp.Height - 1
                If bmp.GetPixel(x, y) = Color.FromArgb(A, R, G, B) Then

                End If
            Next
        Next
    End Sub

MfG

[tolio]

[snow]

Du hast hier halt ne Laufzeit von O(height * width), was recht langsam ist.
Was du evtl. versuchen könntest, wäre das aufsplitten des Bildes und dann z.B. erst die linke Hälfte abzusuchen. Wenn da nichts dabei ist, suchst du die obere Hälfte der rechten Hälfte ab, wenn da nichts dabei ist, die linke Hälfte der unteren Hälfte der rechten Seite, wenn da nichts dabei ist die linke Hälfte der rechten Hälfte der unteren Hälfte der rechten Seite usw.

Irgendwas in die Richtung müsstest du machen, dass deine Laufzeit eher in Richtung logarithmisch geht.

[Requi]

Das ist gerade das Problem.
Ich weiß, dass es so dreckslahm ist, weil es höhe * weite durchläufe macht.
Bei mir wären das:
1600x900=
1.440.000 Durchläufe.

Ich schau mir mal das von tolio an und schau was ich damit anfangen kann.

EDIT: Habs mir jetzt mal angeschaut, aber verstehe es nicht wirklich.
Was zum Beispiel ist der PaintEventArgs. Ich meine es ist das Bild, das übergeben werden soll. Aber das mache ich ja schon während der Beispiel Sub.

Und was genau macht denn die Sub am Ende.
Was genau muss ich machen (Pseudo-Code reicht mir), damit er mir einen Pixel aus der Bitmap sucht. Soweit ich es verstanden habe, speichert LockBits die Bitmap im Speicher und ist festgesetzt dort, bis man sie wieder unlocked, oder einen Restart macht.

Das war es erstmal mit meinen Fragen

[nkkk]

Originally Posted by snow911

Du hast hier halt ne Laufzeit von O(height * width), was recht langsam ist.
Was du evtl. versuchen könntest, wäre das aufsplitten des Bildes und dann z.B. erst die linke Hälfte abzusuchen. Wenn da nichts dabei ist, suchst du die obere Hälfte der rechten Hälfte ab, wenn da nichts dabei ist, die linke Hälfte der unteren Hälfte der rechten Seite, wenn da nichts dabei ist die linke Hälfte der rechten Hälfte der unteren Hälfte der rechten Seite usw.

Irgendwas in die Richtung müsstest du machen, dass deine Laufzeit eher in Richtung logarithmisch geht.

auch mit der methode wird die laufzeit nicht logaritmisch werden.

@te:
naja zum einen rufst du Color.FromArgb(A, R, G, B) innerhelb der schleife auf, besser währe es ausserhalb damit es nur einmal aufgerufen wird.

zum zweiten ist bmp.GetPixel auch nicht wirklich schnell, in C# würde man unsafe benutzen, in VB geht das nicht. ist es wohl das beste das ganze mit Marshall.Copy in ein array zu kopieren. In dem zusammenhalb benutzt du auch die methode von tolio.

naja die erste und letzte iele bruchst du nicht. du bauchst nur

    ' Create a new bitmap. 
    Dim bmp As New Bitmap("c:\fakePhoto.jpg")

    ' Lock the bitmap's bits.   
    Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)
    Dim bmpData As System.Drawing.Imaging.BitmapData = bmp.LockBits(rect, _
        Drawing.Imaging.ImageLockMode.ReadWrite, bmp.PixelFormat)

    ' Get the address of the first line. 
    Dim ptr As IntPtr = bmpData.Scan0

    ' Declare an array to hold the bytes of the bitmap. 
    ' This code is specific to a bitmap with 24 bits per pixels. 
    Dim bytes As Integer = Math.Abs(bmpData.Stride) * bmp.Height
    Dim rgbValues(bytes - 1) As Byte 

    ' Copy the RGB values into the array.
    System.Runtime.InteropServices.Marshal.Copy(ptr, rgbValues, 0, bytes)

    ' Set every third value to 255. A 24bpp image will look red. 
    For counter As Integer = 2 To rgbValues.Length - 1 Step 3
        rgbValues(counter) = 255
    Next 

    ' Unlock the bits.
    bmp.UnlockBits(bmpData)

rgbValues ist der inhalt des bildes als byte array, dh es hat die grösse 3*höhe*breite (3 da jedes pixel aus 3 bytes (rgb) besteht).

und anstatt jetzt jedes dritte pixel auf 255 zu setzten, überprufst du eben in der schleife ob es die gewünschte farbe ist.

[dready]

Das ist eine relativ klassische Frage

Wenn du dich mit dem ganzen nähe auseinandersetzen willst sieh dir mal Sortier und Such Algorhytmen an.

Grundlegendes um etwas mehr Perfomance rauszubekommen wurde ja schon genannt.

Deine Problemstellung hier ist das du eine "große" Datenmenge hast und nach etwas bestimmten suchst.

Ansätze für soetwas sind z.b. :

1. Zerleg die Datenmenge in kleinere Mengen, intressante Ergebnisse erreicht man z.b. wenn man die Gesammtmenge in 10 kleinere Ausschnitte zerlegt und diese mit einer zufälligen Reihenfolge abarbeitet. Die Maximal Zeit bleibt die selbe aber die Wahrscheinlichkeit das der Algo früher ein Treffer hat erhöht sich.

2. Benutze Muster bei der Erkennung, es ist recht unwahrscheinlich das es nur einen Pixel mit der gesuchten Farbe gibt, durchsuche also zuerst nur jeden 2. Pixel, erst wenn das nicht zum erfolg führt die restlichen.
(Hier kann man sich austoben, ist auch ein relativ intressantes Projekt, Bsp. Bau ein Programm das Zufällige Muster für die Suche wählt, lass sie jeweils x-Stunden auf dein Ziel los, und gib danach dem Muster einen Score wie gut er abgeschnitten hat, war durchaus beeindruckt was für gute Muster man finden kann, einziger Nachteil man bekommt nicht mit warum genau ein Muster sehr gut ist.)


3. Nutze die heutige Hardware, ist dein Problem erstmal in kleine Teilprobleme zerlegt, gibt es keinen Grund es nicht auszunutzen, heutzutage hat praktisch jeder Dual oder Quadcore Cpus, gut umgesetzt kann es imens Zeit einsparen.

['Heaven.]

LINQ ist dazu noch schneller als For und For Each schleifen + If Abfragen

[dready]

schleifen sollten schneller sein als LINQ oder hab ich da was falsch im kopf ?

[Requi]

Könnte mir kurz jemand erklären was genau LINQ ist?

['Heaven.]

Originally Posted by dready

schleifen sollten schneller sein als LINQ oder hab ich da was falsch im kopf ?

Nachdem LINQ geladen ist ist es wesentlich schneller soweit ich weiß