VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： 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

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

リンク先のアドレスを取得するには

ととろ

No.12715

Re: リンク先のアドレスを取得するには - 花ちゃん 08/07/07-07:43 No.12716
Re: リンク先のアドレスを取得するには - 魔界の仮面弁士 08/07/07-09:33 No.12717
- Re^2: リンク先のアドレスを取得するには - ととろ 08/07/07-20:57 No.12728
  - Re^3: リンク先のアドレスを取得するには - 花ちゃん 08/07/07-21:49 No.12729
    - Re^4: リンク先のアドレスを取得するには - ととろ 08/07/07-23:59 No.12730
      - Re^5: リンク先のアドレスを取得するには - 魔界の仮面弁士 08/07/08-01:27 No.12731
        
        【解決】Re^6: リンク先のアドレスを取得するには - ととろ 08/07/08-03:13 No.12732

タイトル	： Re^3: リンク先のアドレスを取得するには
投稿日	： 2008/07/07(Mon) 21:49
投稿者	：花ちゃん

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