I currently found a piece of code on a website but i can't get it to work it always reports fail. Pls help.

Private Function FindImage(Image1 As Bitmap, Image2 As Bitmap) As Point

        For y = 0 To Image1.Height - Image2.Height - 1

            For x = 0 To Image1.Width - Image2.Width - 1

                ix = 0
                iy = 0
                cnt = 0

                While iy < Image2.Height And ix < Image2.Width And Image1.GetPixel(x + ix, y + iy) = Image2.GetPixel(ix, iy)

                    cnt += 1
                    ix += 1

                    If ix = Image2.Width Then

                        ix = 0
                        iy += 1

                    End If

                End While

                If cnt = Image2.Width * Image2.Height Then

                    Return New Point(ix, iy)
                    Exit Function

                End If



        Return New Point(-1, -1)

    End Function

For a start what images are you passing in to the method, are they the same image and the same size or is image2 and smaller image taken from image1?

Image 2 is smaller, both bitmaps, one is a screenshot other is a premade bitmap, i need to locate something on the screen.

Depending on how the smaller image was made you may not get a match comparing pixel by pixel. I have found that even using a (supposedly) lossless crop on jpg source files there are differences in at least one pixel. However, if your source files are bitmaps you should find the following of use (pbx1 & 2 are PictureBox controls). Please note the complete lack of error checking (like if bmp2 is wider or taller than bmp1).

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        pbx1.Image = Image.FromFile("e:\temp\pic1.bmp")
        pbx2.Image = Image.FromFile("e:\temp\pic2.bmp")

        Dim bmp1 As New Bitmap(pbx1.Image)
        Dim bmp2 As New Bitmap(pbx2.Image)

        For y As Integer = 0 To bmp1.Size.Height - bmp2.Size.Height - 1
            For x As Integer = 0 To bmp1.Size.Width - bmp2.Size.Width - 1
                If CompareImage(bmp1, bmp2, x, y) Then
                    MsgBox("found at (" & x & "," & y & ")")
                    Exit Sub
                End If

        MsgBox("not found")

    End Sub

    Function CompareImage(bmp1 As Bitmap, bmp2 As Bitmap, sx As Integer, sy As Integer) As Boolean

        'compare the rectangle from bmp1 starting at (x,y) with the bitmap bmp2

        For y As Integer = 0 To bmp2.Height - 1
            For x As Integer = 0 To bmp2.Width - 1
                If Not bmp2.GetPixel(x, y).Equals(bmp1.GetPixel(x + sx, y + sy)) Then Return False

        Return True

    End Function

End Class
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.