tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: リンク先のアドレスを取得するには
投稿日： 2008/07/07(Mon) 09:33
投稿者： 魔界の仮面弁士
MSHTML の DOM から取得する方法と、Active Accessibility を用いる方法とがあります。
前者は、既に花ちゃんさんが回答されているので、私は後者の案を。

Option Explicit

Private Declare Function GetCursorPos Lib "user32" _
    (ByRef lpPoint As Long) As Long

Private Declare Function AccessibleObjectFromPoint Lib "oleacc" _
    (ByVal x As Long, _
     ByVal y As Long, _
     ByRef ppoleAcc As Object, _
     ByRef pvarElement As Variant) As Long

Private Sub Form_Load()
    Timer1.Interval = 300
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim xy(1) As Long
    GetCursorPos xy(0)
    
    Dim objAccessible As Object
    Dim v As Variant
    AccessibleObjectFromPoint xy(0), xy(1), objAccessible, v
    
    Dim sName As String, sValue As String
    On Error Resume Next
    sName = objAccessible.accName(v)
    sValue = objAccessible.accValue(v)
    On Error GoTo 0

    Label1.Caption = sName
    Label2.Caption = sValue
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。