What am I doing wrong?

[werido]

Loading

      ProcessHandle = FindWindow(vbNullString, "Google - Mozilla Firefox")
        ProcessDC = GetDC(0)

Closing

 Call ReleaseDC(0, ProcessDC)

Timer

   On Error Resume Next
        Dim X As Long, Y As Long, PixelColor As Long
        Dim CursorPosition As Point
        Call GetCursorPos(CursorPosition)
        For X = CursorPosition.X - 20 To CursorPosition.X + 20
            For Y = CursorPosition.Y - 20 To CursorPosition.Y + 20
                PixelColor = GetPixel(ProcessDC, X, Y)
                If (PixelColor = RGB(255, 0, 0)) Then
     MessageBox.Show("") 'to see if it finds the color
 Exit Sub
                           End If
            Next Y
        Next X

Theres no MessageBox that pops up, what's wrong?

[Negative0]

Put your debugging skills to work. What is PixelColor when you call GetPixel? What do you expect it to be?

[werido]

Put your debugging skills to work. What is PixelColor when you call GetPixel? What do you expect it to be?

Should X/Y be integer?

[Negative0]

Yes X and Y should be integers and your GetPixel declaration should have them as integers.

[werido]

Yes X and Y should be integers and your GetPixel declaration should have them as integers.

I changed it to integer, and it still doesnt work.

[Negative0]

I'll ask again: What is PixelColor when you call GetPixel? What do you expect it to be?

[werido]

I'll ask again: What is PixelColor when you call GetPixel? What do you expect it to be?

I expect GetPixel to find a color in the window.

[Negative0]

Get pixel simply returns the color at a given pixel. You should be able to test that it is working by giving pixel coordinates where you know what the color is and check that GetPixel is returning the value you expect.

[JuggaloBrotha]

   On Error Resume Next

Bad!! bad, bad, bad, bad!!!!!!!!!!!!