Webページのソース取得についての質問です。 (ID:82679)

名前

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

本文 宜しくお願いします。 以下のソースで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