Webページのソース取得についての質問です。

解決

---

宜しくお願いします。

以下のソースでWebのソースを取得しています。
ですが、
たとえば、指定したURLが間違っていたり、
何らかの問題で表示されない場合や
他のURLにジャンプしたりすると
固まったまま帰ってきません。

どのようにしたら、エラーが出るなり、
ジャンプしたURLのソースが取得できるなど
良い方法がありますでしょうか

どうぞ宜しくお願い致します。

Sub Command1_Click()
 Dim http As Object
 Dim ReturnedData, GetURL As String
  
 GetURL = "http://www.yahoo.co.jp/"

    Set http = CreateObject("Microsoft.XMLhttp")
    http.Open "GET", GetURL, False
    http.Send

    ReturnedData = http.ResponseText
    Set http = Nothing
    
    If ReturnedData <> "" Then
    Text1.Text=ReturnedData
End Sub

編集 削除

---

すいません
URLの間違いや、表示されないときはエラーがでました。
URLがジャンプしたときに固まります。
たとえば、ヤフーオークションでログインしてないのに
ショートカットでウォッチリストのページに飛んだとき
ログインのページにジャンプするときなど・・・

いい対処法ありましたら、お願いします。

編集 削除

---

自己解決 

先に、非表示＆転送前アドレスでIEを起動させ 
表示後のアドレスを取得して判断するようにしました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。