VB 2008 Pixel search Problem

[yuri1983]

Hallo Leute,
ich habe folgenden Code:

    Sub test()
        Dim farbe As Integer = &H3B5100
        'Dim farbe2 As Integer = &HA72800
        'Dim farbe3 As Integer = &H6D3700
        'Dim farbe4 As Integer = &H831000
        'Dim farbe5 As Integer = &H8F2E00
        'Dim farbe6 As Integer = &HB33200
        'Dim farbe7 As Integer = &HAD3306

        Dim b As New Bitmap(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(b)
        g.CopyFromScreen(0, 0, 0, 0, New Size(b.Width, b.Height))

        For i = 0 To (b.Width - 1)
            For j = 0 To (b.Height - 1)
                Dim col As Integer = (b.GetPixel(i, j).ToArgb) And &HFFFFFF
                If col = farbe Then
                    SetCursorPos(i, j)
                    System.Threading.Thread.Sleep(2000)
                    'Mausklick(Windows.Forms.MouseButtons.Left)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe2 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe3 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe4 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe5 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe6 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe7 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                End If
            Next
        Next
    End Sub

Ich benutze diesen code,
um bei einen flashgame die Felder zu ernten,
da es auf Dauer sehr mühsam wird dauernd zu klicken.
Der Wunsch auf so ein Programm Kamm von meiner Frau,
und Frauen was abschlagen

Er macht auch alles soweit ganz gut,
nur lässt er ziemlich viele große Lücken,
wo er nichts macht.

Wie ihr sehen könnt,
habe ich schon versucht mit mehrere Farben zu hantieren,
aber er lässt immer die gleichen Felder aus.

Verschiebe ich aber das Bild vom Spiel weiter nach oben,
dann macht er diese Felder.

Ich hoffe es kann mir einer helfen,
da ich nicht so begabt auf diesem Gebiet bin.