Private Declare Function GetDC Lib "user32.dll" (ByVal HWND As Long) As Long
Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal nXPos As Long, ByVal nYPos As Long) As Long
Function NoktaSiyahmi(gelenRenkDegeriLongTurunden)
End Function IF LongToRGB( gelenRenkDegeriLongTurunden, "R") = 0 AND &_ LongToRGB( gelenRenkDegeriLongTurunden , "G") = 0 AND &_ LongToRGB( gelenRenkDegeriLongTurunden , "B") = 0 THEN NoktaSiyahmi = True Else NoktaSiyahmi = False End If End Function
Dim stdout Dim renk Dim Xdeger, Ydeger Xdeger = 505 Ydeger = 458 renk = GetPixel(GetDC(stdout), Xdeger, Ydeger)
If NoktaSiyahmi(renk) = True Then SendKeys ("2")
Dim stdout Dim renk Dim Xdeger, Ydeger Xdeger = 505 Ydeger = 458 renk = GetPixel(GetDC(stdout), Xdeger, Ydeger) If NoktaSiyahmi(renk) = True Then SendKeys ("2") End Sub
yapmayın arkadaşlar elbette vardır bilen birisi...