Bild auf dem Bildschirm suchen (Der Index war außerhalb des Arraybereichs)

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Takafusa.

    Bild auf dem Bildschirm suchen (Der Index war außerhalb des Arraybereichs)

    Guten Abend liebe Gemeinde,

    ich habe ein Problem und weiß noch nicht ganz wie ich es euch vermitteln kann, da ich selbst nicht weiß, wo es liegt.
    Ich habe eine Methode gefunden um Bilder auf dem Desktop zu suchen und dessen Koordinaten zu finden. Auf der Arbeit erleichtert das den Workflow ungemein, aber das ist ja nun erstmal egal.

    Folgende Funktion:


    VB.NET-Quellcode

    1. Private Function FindImageOnScreen(ByVal bmpMatch As Bitmap, ByVal ExactMatch As Boolean) As Rectangle
    3. Dim ScreenBmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
    4. Using g As Graphics = Graphics.FromImage(ScreenBmp)
    5. g.CopyFromScreen(Screen.PrimaryScreen.Bounds.Location, Point.Empty, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
    6. End Using
    8. Dim ImgBmd As BitmapData = bmpMatch.LockBits(New Rectangle(0, 0, bmpMatch.Width, bmpMatch.Height), ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb)
    9. Dim ScreenBmd As BitmapData = ScreenBmp.LockBits(Screen.PrimaryScreen.Bounds, ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb)
    11. Dim ImgByts((Math.Abs(ImgBmd.Stride) * bmpMatch.Height) - 1) As Byte
    12. Dim ScreenByts((Math.Abs(ScreenBmd.Stride) * ScreenBmp.Height) - 1) As Byte
    13. Marshal.Copy(ImgBmd.Scan0, ImgByts, 0, ImgByts.Length)
    14. Marshal.Copy(ScreenBmd.Scan0, ScreenByts, 0, ScreenByts.Length)
    16. Dim FoundMatch As Boolean = False
    17. Dim rct As Rectangle = Rectangle.Empty
    18. Dim sindx, iindx As Integer
    19. Dim spc, ipc As Integer
    20. Dim skpx As Integer = CInt((bmpMatch.Width - 1) / 10)
    21. If skpx < 1 Or ExactMatch Then skpx = 1
    22. Dim skpy As Integer = CInt((bmpMatch.Height - 1) / 10)
    23. If skpy < 1 Or ExactMatch Then skpy = 1
    24. For si As Integer = 0 To ScreenByts.Length - 1 Step 3
    26. FoundMatch = True
    27. For iy As Integer = 0 To ImgBmd.Height - 1 Step skpy
    28. For ix As Integer = 0 To ImgBmd.Width - 1 Step skpx
    29. sindx = (iy * ScreenBmd.Stride) + (ix * 3) + si
    30. iindx = (iy * ImgBmd.Stride) + (ix * 3)
    32. spc = Color.FromArgb(ScreenByts(sindx + 2), ScreenByts(sindx + 1), ScreenByts(sindx)).ToArgb
    33. ipc = Color.FromArgb(ImgByts(iindx + 2), ImgByts(iindx + 1), ImgByts(iindx)).ToArgb
    34. If spc <> ipc Then
    35. FoundMatch = False
    37. iy = ImgBmd.Height - 1
    38. ix = ImgBmd.Width - 1
    39. End If
    40. Next
    41. Next
    42. If FoundMatch Then
    44. Dim r As Double = si / (ScreenBmp.Width * 3)
    45. Dim c As Double = ScreenBmp.Width * (r Mod 1)
    46. If r Mod 1 >= 0.5 Then r -= 1
    47. rct.X = CInt(c)
    48. rct.Y = CInt(r)
    49. rct.Width = bmpMatch.Width
    50. rct.Height = bmpMatch.Height
    51. Exit For
    52. End If
    53. Next
    55. bmpMatch.UnlockBits(ImgBmd)
    56. ScreenBmp.UnlockBits(ScreenBmd)
    57. ScreenBmp.Dispose()
    58. Return rct
    60. End Function



    Folgender Aufruf:

    VB.NET-Quellcode

    1. Dim ImgToFind As New Bitmap(My.Computer.FileSystem.CurrentDirectory & "\Images\Test.png")
    2. Dim rect As Rectangle = FindImageOnScreen(ImgToFind, False)
    4. If rect <> Rectangle.Empty Then
    5. MsgBox("Bild gefunden")
    6. Else
    7. MsgBox("Bild nicht gefunden")
    8. End If



    Klappt bei mir BESTENS. Innerhalb von 200ms hat er das Bild, egal wo es auf meinem Bildschirm ist.
    Habe es also meinem Kollegen gesendet, er macht nichts anders, ruft die Funktion auf.. Zack:


    System.IndexOutOfRangeException: Der Index war außerhalb des Arraybereichs.
    bei Test.FindImageOnScreen(Bitmap bmpMatch, Boolean ExactMatch)


    Es ist leider nicht möglich auf seinem PC VS zu installieren, da er dafür keine Rechte hat.
    Ich habe also hinter alle möglichen Zeilen eine Funktion eingebaut um in eine Textdatei zu schreiben:


    VB.NET-Quellcode

    1. Private Function FindImageOnScreen(ByVal bmpMatch As Bitmap, ByVal ExactMatch As Boolean) As Rectangle
    3. logerrors("Geht noch 0")
    4. Dim ScreenBmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
    5. logerrors("Geht noch 1")
    6. Using g As Graphics = Graphics.FromImage(ScreenBmp)
    7. g.CopyFromScreen(Screen.PrimaryScreen.Bounds.Location, Point.Empty, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
    8. logerrors("Geht noch 2")
    9. End Using
    11. Dim ImgBmd As BitmapData = bmpMatch.LockBits(New Rectangle(0, 0, bmpMatch.Width, bmpMatch.Height), ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb)
    12. logerrors("Geht noch 3")
    13. Dim ScreenBmd As BitmapData = ScreenBmp.LockBits(Screen.PrimaryScreen.Bounds, ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb)
    14. logerrors("Geht noch 4")
    16. Dim ImgByts((Math.Abs(ImgBmd.Stride) * bmpMatch.Height) - 1) As Byte
    17. logerrors("Geht noch 5")
    18. Dim ScreenByts((Math.Abs(ScreenBmd.Stride) * ScreenBmp.Height) - 1) As Byte
    19. logerrors("Geht noch 6")
    20. Marshal.Copy(ImgBmd.Scan0, ImgByts, 0, ImgByts.Length)
    21. logerrors("Geht noch 7")
    22. Marshal.Copy(ScreenBmd.Scan0, ScreenByts, 0, ScreenByts.Length)
    24. Dim FoundMatch As Boolean = False
    25. logerrors("Geht noch 8")
    26. Dim rct As Rectangle = Rectangle.Empty
    27. logerrors("Geht noch 9")
    28. Dim sindx, iindx As Integer
    29. logerrors("Geht noch 10")
    30. Dim spc, ipc As Integer
    31. logerrors("Geht noch 11")
    32. Dim skpx As Integer = CInt((bmpMatch.Width - 1) / 10)
    33. logerrors("Geht noch 12")
    34. If skpx < 1 Or ExactMatch Then skpx = 1
    35. logerrors("Geht noch 13")
    36. Dim skpy As Integer = CInt((bmpMatch.Height - 1) / 10)
    37. logerrors("Geht noch 14")
    38. If skpy < 1 Or ExactMatch Then skpy = 1
    39. logerrors("Geht noch 15")
    40. For si As Integer = 0 To ScreenByts.Length - 1 Step 3
    42. FoundMatch = True
    43. For iy As Integer = 0 To ImgBmd.Height - 1 Step skpy
    44. For ix As Integer = 0 To ImgBmd.Width - 1 Step skpx
    45. sindx = (iy * ScreenBmd.Stride) + (ix * 3) + si
    46. iindx = (iy * ImgBmd.Stride) + (ix * 3)
    48. spc = Color.FromArgb(ScreenByts(sindx + 2), ScreenByts(sindx + 1), ScreenByts(sindx)).ToArgb
    49. ipc = Color.FromArgb(ImgByts(iindx + 2), ImgByts(iindx + 1), ImgByts(iindx)).ToArgb
    50. If spc <> ipc Then
    51. FoundMatch = False
    53. iy = ImgBmd.Height - 1
    54. ix = ImgBmd.Width - 1
    55. End If
    56. Next
    57. Next
    58. If FoundMatch Then
    60. Dim r As Double = si / (ScreenBmp.Width * 3)
    61. Dim c As Double = ScreenBmp.Width * (r Mod 1)
    62. If r Mod 1 >= 0.5 Then r -= 1
    63. rct.X = CInt(c)
    64. rct.Y = CInt(r)
    65. rct.Width = bmpMatch.Width
    66. rct.Height = bmpMatch.Height
    67. Exit For
    68. End If
    69. Next
    71. logerrors("Geht noch 20")
    72. bmpMatch.UnlockBits(ImgBmd)
    73. ScreenBmp.UnlockBits(ScreenBmd)
    74. ScreenBmp.Dispose()
    75. Return rct
    77. End Function



    Fazit: Er kommt bis "Geht noch 15"..

    Habt ihr eine Idee warum? Er hat nichts anders gemacht als ich. Was kann ich noch zum Debuggen tun, ohne VS zu verwenden?

    Vielen Dank im Voraus..
    Mit freundlichen Grüßen,
    xored

    EDIT: Wenn ich die For-Schleifen in einen Try-Block packe, kommt natürlich kein Fehler mehr, er sagt aber natürlich, er habe den Button nicht gefunden..

    *Topic verschoben*


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    So aus dem Bauch:
    statt Step 3 das hier mal versucht?

    For si As Integer = 0 To ScreenByts.Length - 1 Step 1
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    xored schrieb:

    VB.NET-Quellcode

    1. Dim skpx As Integer = CInt((bmpMatch.Width - 1) / 10)
    machst Du Integer-Division:

    VB.NET-Quellcode

    1. Dim skpx As Integer = (bmpMatch.Width - 1) \ 10)
    Die vielen logerrors() kannst Du ersatzlos löschen, die verwirren nur.
    Lerne zu debuggen:
    Debuggen, Fehler finden und beseitigen
    Hat @mrMo sogar in seiner Signatur. Danke.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich hatte ja geschrieben, dass VS bei ihm KEINE Option ist, was debuggen auf dem normalen Weg schwierig macht :)
    Ich danke euch, ich teste es am Sonntag.

    Schönes Wochenende!
    xored


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

    Hey, sorry für die späte Resonanz hier.
    Um das ganze abzuschließen.. Ich kann mir nicht erklären, warum der Code nur bei mir ging. Hatte nun mehrere Testpersonen gehabt, aber bei keinem wurde das Bild dann gefunden.
    Dank euch gabs zwar keinen Fehler mehr, aber er fand das Bild einfach nicht mehr. Schade, weil die Methode halt ca. 80% schneller ist, als die, welche ich jetzt nutze:


    VB.NET-Quellcode

    1. Private Declare Function SetCursorPos Lib "user32" (ByVal x As Integer, ByVal y As Integer) As Integer
    3. Public Sub CaptureScreen()
    4. Using g As Graphics = Graphics.FromImage(bmpScreen)
    5. g.CopyFromScreen(0, 0, 0, 0, bmpScreen.Size)
    6. End Using
    7. Me.Refresh()
    8. End Sub
    10. Public Sub FindImageMethode2(ByVal ImageToFind As String, ByVal MoveMouseAndClick As Boolean)
    11. Private bmpScreen As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
    12. Public ImageFound As Boolean
    13. Dim bmpTarget As Bitmap = New Bitmap(ImageToFind)
    14. CaptureScreen()
    16. Try
    17. Dim clrScreen, clrTarget, clrUL, clrUR, clrLL, clrLR As Color
    18. Dim Found As Boolean
    19. clrUL = bmpTarget.GetPixel(0, 0)
    20. clrUR = bmpTarget.GetPixel(bmpTarget.Width - 1, 0)
    21. clrLL = bmpTarget.GetPixel(0, bmpTarget.Height - 1)
    22. clrLR = bmpTarget.GetPixel(bmpTarget.Width - 1, bmpTarget.Height - 1)
    24. For x = 0 To bmpScreen.Width - bmpTarget.Width
    25. For y = 0 To bmpScreen.Height - bmpTarget.Height
    26. clrScreen = bmpScreen.GetPixel(x, y)
    27. If clrScreen = clrUL Then
    28. clrScreen = bmpScreen.GetPixel(x + bmpTarget.Width - 1, y)
    29. If clrScreen = clrUR Then
    30. clrScreen = bmpScreen.GetPixel(x, y + bmpTarget.Height - 1)
    31. If clrScreen = clrLL Then
    32. clrScreen = bmpScreen.GetPixel(x + bmpTarget.Width - 1, y + bmpTarget.Height - 1)
    33. If clrScreen = clrLR Then
    34. Dim w1 As Integer
    35. Found = True
    36. If bmpTarget.Width > bmpTarget.Height Then w1 = bmpTarget.Height Else w1 = bmpTarget.Width
    37. For x1 = 1 To w1 - 2 Step 5
    38. clrTarget = bmpTarget.GetPixel(x1, x1)
    39. clrScreen = bmpScreen.GetPixel(x + x1, y + x1)
    40. If clrTarget <> clrScreen Then
    41. Found = False
    42. Exit For
    43. End If
    44. Next
    45. If Found Then
    47. If x = -1 Then
    48. ImageFound = False
    49. Else
    50. ImageFound = True
    52. End If
    54. If (MoveMouseAndClick = True) Then
    56. SetCursorPos(x + 20, y + 20) ' Habe die + 20 jeweils hinzugefügt, weil das bei mir dann passte, sonst sucht er ja die linke obere Ecke. Man kann hier natürlich auch die Mitte berechnen
    57. End If
    58. Exit Sub
    59. End If
    60. End If
    61. End If
    62. End If
    63. End If
    64. Next
    65. Next
    66. Catch ex As Exception
    67. msgbox(ex.ToString)
    68. End Try
    70. ImageFound = False
    71. End Sub


    Ist auch nicht von mir, wer hätte es gedacht, habs lediglich um die Funktion erweitert, dass man dort direkt seine Maus hinbewegen lassen kann.
    Gruß, xored


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @xored Was soll das:

    VB.NET-Quellcode

    1. If clrScreen = clrUL Then
    2. clrScreen = bmpScreen.GetPixel(x + bmpTarget.Width - 1, y)
    3. If clrScreen = clrUR Then
    Wie ist es möglich, dass die Zeile hier 3 erreicht wird?
    Niemals! Deswegen ist er wohl so schnell.
    Bewerte unter diesem Aspekt Deinen Code.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    xored schrieb:

    Es ist leider nicht möglich auf seinem PC VS zu installieren, da er dafür keine Rechte hat.


    In diesem Fall kannste aber trotzdem an die Exception mit Fehlerzeile kommen. Teste das mal:

    VB.NET-Quellcode

    1. Try
    2. Dim i As Integer = Integer.MaxValue
    3. i += 1
    4. Catch ex As Exception
    5. Dim stackTrace As New StackTrace(ex, True)
    6. Dim stackFrame As StackFrame = stackTrace.GetFrame(0)
    7. MessageBox.Show(String.Format("Exception: {1}{0}In File: {2}{0}In Line: {3}", Environment.NewLine, ex.Message, stackFrame.GetFileName(), stackFrame.GetFileLineNumber()))
    8. End Try

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Takafusa“ ()

Facebook
Telefonspende