GetPixel

Har du husket at lave en

Declare Function GetCursorPos Lib \"user32\"

GetCursorPos() is a Windows procedure, not a Visual Basic procedure

/per

Du skal faktisk også huske at skrive

[ccc](lpPoint As POINTAPI) As Long

/per

hmm...hoejrup jeg ved ikke hvad du snakker om ;) (se koden)
Det er jo osse getpixel som var problemet men nu har jeg selv fundet en løsning :)
Her kommer koden hvis andre for brug/har for den:

\'-------modul---------
Public Declare Function WindowFromPoint Lib \"user32\" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function GetCursorPos Lib \"user32\" (lpPoint As POINTAPI) As Long
Public Declare Function GetPixel Lib \"gdi32\" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetWindowDC Lib \"user32\" (ByVal wnd As Long) As Long
Public Declare Function GetWindowRect Lib \"user32.dll\" (ByVal hwnd As Long, lpRect As RECT) As Long

Public Type POINTAPI
x As Long
y As Long
End Type

Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type


\'--------form---------
Private Sub Timer1_Timer()
Dim tmpval As Long
Dim r As RECT
Dim retval As Long

Dim P As POINTAPI
k$ = GetCursorPos(P)
j$ = WindowFromPoint(P.x, P.y)

wnd = GetForegroundWindow
dc = GetWindowDC(wnd)


retval = GetWindowRect((WindowFromPoint(P.x, P.y)), r)
Label5.Caption = \"hwnd_W: \" & (r.Right - r.Left)
Label6.Caption = \"hwnd_H: \" & (r.Bottom - r.Top)
Label7.Caption = \"hwnd musX: \" & P.x - r.Left
Label8.Caption = \"hwnd musY: \" & P.y - r.Top

Label4.Caption = \"hDC: \" & GetWindowDC(WindowFromPoint(P.x, P.y))
tmpval = GetPixel(GetWindowDC(WindowFromPoint(P.x, P.y)), (P.x - r.Left), (P.y - r.Top))

Label1.Caption = k$
Label2.Caption = j$
Label3.Caption = tmpval

End Sub

Den retunerer rpg værdien for ethvert område i skærmen nu

Kristian Mortensen

->Jeg snupper lige pointene igen :)