- 日時： 2008/07/20 23:31
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[インターネット][][] *
* キーワード：ステータスバー,リンク,activeElement.href,AccessibleObjectFromEvent *
***********************************************************************************
タイトル ：リンク先のアドレスを取得するには
記事No ： 12715
投稿日 ： 2008/07/07(Mon) 06:44
投稿者 ： ととろ
ウェブブラウザコントロール上に表示されているページの、現在フォーカスがあるオブジェクト(または、マウスの下のオブジェクト)を取得するにはどうすればいいでしょうか？
> それなら、ステータスバーに表示されるリンクでいいのでしょうか？
はい、まさにそれを取得したいと思いまして。
(ステータスバーにリンクが表示されているということを今まで知りませんでした。)
-----------------------------------------------------------------------------------
記事No ： 12729
投稿日 ： 2008/07/07(Mon) 21:49
回答者 ： 花ちゃん
-----------------------------------------------------------------------------------
結果的に的外れの回答だったのですが、他にも使えるかなと思い。
Option Explicit
Private IE As SHDocVw.InternetExplorer
Private Sub Form_Load()
Set IE = New SHDocVw.InternetExplorer
IE.Navigate ("http://hanatyan.sakura.ne.jp/")
IE.Visible = True
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Dim myStatusText As String
myStatusText = IE.StatusText
If Left$(myStatusText, 4) = "http" Or Left$(myStatusText, 4) = "ftp" Then
Label1.Caption = IE.StatusText
Else
Label1.Caption = ""
End If
End Sub
|
IE のステータスバーに表示されるアドレスを取得(VB6.0)