Merhaba arkadaşlar. aşağıdaki kodda koordinatlarını verdiğim yerdeki renk kodlarını okuyor. ama bir oyun acınca hala masaustundeki kodları okuyor yada hicbir renk kodu okumuyor. bense actığım oyundada bu renk kodlarını okumasını sağlamak istiyorum. yada direk yolda belirtebiliriz yani şu penceredeki koordinatlardan renk kodlarını oku tarzı..

Kod:
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Declare Function GetDesktopWindow Lib "User32" () As Long Private Declare Function GetWindowDC Lib "User32" (ByVal hWnd As Long) As Long Private Declare Function GetForegroundWindow Lib "User32" () As Long Private Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long Private Type POINTAPI X As Long Y As Long End Type Dim desktophdc As Long Dim desktophandle As Long Dim beyaz As Long Dim farekoordinat As POINTAPI Private Sub Command1_Click() beyaz = RGB(200, 200, 200) desktophandle = GetDesktopWindow If desktophandle 0 Then desktophdc = GetWindowDC(desktophandle) If desktophdc 0 Then Timer1.Enabled = True Else MsgBox ("desktophdc bulunamadi") End If Else MsgBox ("desktophandle bulunamadi") End If End Sub Private Sub yakala() pix5 = Point(500, 500) pix1 = GetPixel(desktophdc, 200, 200) pix2 = GetPixel(desktophdc, 200, 400) pix3 = GetPixel(desktophdc, 200, 600) pix4 = Point(200, 400) Label1 = pix1 Label2 = pix2 Label3 = pix3 Label4 = pix4 Call GetCursorPos(farekoordinat) If pix1 >= "14000000" And GetPixel(desktophdc, 200, 400) >= "14000000" And GetPixel(desktophdc, 200, 600) >= beyaz Then Text1.Text = "tamam" 'farekoordinat.x & "x" & farekoordinat.y & ": " & GetPixel(desktophdc, farekoordinat.x, farekoordinat.y) End If End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Call yakala End Sub

__________________