Keskustelu: Ohjelmointikysymykset: [VB6] HWND Hiiren sijainnista

Freeze [11.09.2008 11:56:52]

Onko mahdollista saada ikkunan hanska hiiren sijainnista? Jos on niin voisiko joku valaista linkkiä esimerkkiin tai kertoa metodin ;) Kuukkelilta on kysytty ja myös muut paikat on katseltu tuloksetta.

Kiitos

Grez [11.09.2008 12:42:54]

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
    ByVal yPoint As Long) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type

Function GetWindowOnCursor() as Long
    Dim CursorLoc As POINTAPI
    ' Get the cursor's coordinates.
    GetCursorPos CursorLoc
    GetWindowOnCursor = WindowFromPoint(CursorLoc.x, CursorLoc.y)
End Function

Sitä en tiedä, miten tuon kahvan (handle) saisi muutettua hanskaksi (glove) :D

Muokkasin muuten ekasta sivusta, joka tuli vastaan 5 sekunnin Googletuksella ( get window at cursor ), että sikäli kannattaa ehkä kehittää vähän noita googletustaitoja jos kerran silläkin olit yrittänyt etsiä.

JussiR [01.10.2008 15:37:39]

Hakusanoilla RuneScape + macro + visual basic source..

JussiR [05.10.2008 11:13:32]

Jaa löysin näköjään omalta sivulta tälläsen millä voi valita ikkunan vetämällä tähtäimen kuvan ikkunan päälle :D

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long , ByVal yPoint As Long) As Long

Dim SelWnd As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Sub CrosshairPic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MousePointer = 99
Me.MouseIcon = CrosshairPic.Picture
CrosshairPic.Visible = False
End Sub

Private Sub CrosshairPic_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mousexy As POINTAPI
GetCursorPos mousexy

SelWnd = WindowFromPoint(mousexy.X, mousexy.Y)
CrosshairPic.Visible = True
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen