タイトル : Re^3: リンク先のアドレスを取得するには 投稿日 : 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 |