[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2007/08/07(Tue) 15:29
投稿者名：大魔神
Ｅメール：
ＵＲＬ　：
タイトル：URLからソースコード取得
こんにちは、初めまして。

過去ログなどを調べさせて頂きましたが、キーワードに何を入れて良いやら・・・。
それで、一通り見ましたが質問させて下さい。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim GetURL As String

GetURL = Text1.Text
Text2.Text = Inet1.OpenURL(GetURL)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

↑これで自分の目的の事は出来ると思うのですが、拡張子がHTMLなどの場合は問題なく結果を得ることが出来るのですが、困った事に拡張子がHTML以外（PHPやCGI）などを指定した場合、最後まで取得できずに途中でソースが切れてしまいます。　どの拡張子でも同じ結果を得たいのですが自分の頭では無理みたいなのでご教授お願いします。

投稿時間：2007/08/07(Tue) 16:36
投稿者名：大吉末吉
Ｅメール：
ＵＲＬ　：
タイトル：Re: URLからソースコード取得
> ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
> Dim GetURL As String
>
> GetURL = Text1.Text
> Text2.Text = Inet1.OpenURL(GetURL)
> ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
>
> ↑これで自分の目的の事は出来ると思うのですが、拡張子がHTMLなどの場合は問題なく結果を得ることが出来るのですが、困った事に拡張子がHTML以外（PHPやCGI）などを指定した場合、最後まで取得できずに途中でソースが切れてしまいます。　
> どの拡張子でも同じ結果を得たいのですが自分の頭では無理みたいなのでご教授お願いします。

MSの技術情報を「OpenURL Inet」で検索すると、こういうのが見つかりますが・・・

「Visual Basic 6.0 SP4: Inet コントロールの OpenUrl メソッドが完全なファイルを返さない」
（http://support.microsoft.com/kb/232194/ja）

サービスパックは当ててますよね・・・

投稿時間：2007/08/07(Tue) 18:07
投稿者名：大魔神
Ｅメール：
ＵＲＬ　：
タイトル：解決です。
おおおぉぉ！
サービスパック当ててなかったです（泣
即座にDLして確認した所、見事に解決していました。

大吉末吉さん有り難うございました。