What am I doing wrong?

Loading

Code:

---

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

---

Closing

Code:

---

Call ReleaseDC(0, ProcessDC)

---

Timer

Code:

---

  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?

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

Quote:

---

Originally Posted by Negative0

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?

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

Quote:

---

Originally Posted by Negative0

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.

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

Quote:

---

Originally Posted by Negative0

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.

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.

Quote:

---

Originally Posted by werido

Code:

---

  On Error Resume Next

---

---

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