tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルホームページの保存をしたい
記事No11373
投稿日: 2008/02/09(Sat) 15:34
投稿者Do_Shirouto
いつも教えて頂き有難う御座います。
また教えて頂きたいのですが、
下記で開いたホームーページをそのまま保存したいのですが、
'-------------------------------------
Private Sub Command1_Click()
With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "http://www.?????.co.jp/"
End With
End Sub
'-------------------------------------
どなたかご指導のほど宜しくお願い申し上げます。

[ツリー表示へ]
タイトルRe: ホームページの保存をしたい
記事No11374
投稿日: 2008/02/09(Sat) 19:11
投稿者花ちゃん
ここのサイトに記載されている方法ではだめだったのでしょうか?

No.132 又は No.169

[ツリー表示へ]
タイトルRe^2: ホームページの保存をしたい
記事No11375
投稿日: 2008/02/10(Sun) 10:23
投稿者Do_Shirouto
> ここのサイトに記載されている方法ではだめだったのでしょうか?
>
> No.132 又は No.169
花ちゃんさん有難う御座いました
なぜか 私のVBには
プロジェクト→コンポーネント→で Microsoft Internet Transfer Control 6.0
が入っていないので、試す事が出来ませんでした。
どこかダウンロードできる所が無いか探して試して見ます。
有難う御座いました。

[ツリー表示へ]
タイトルRe^3: ホームページの保存をしたい
記事No11377
投稿日: 2008/02/10(Sun) 11:09
投稿者花ちゃん
> なぜか 私のVBには
> プロジェクト→コンポーネント→で Microsoft Internet Transfer Control 6.0
> が入っていないので、試す事が出来ませんでした。

VB6.0 のエディション は、?
MSINET.OCX が入っているか? C:\Windows\System32 フォルダ内を見て下さい。

[ツリー表示へ]
タイトルRe^4: ホームページの保存をしたい
記事No11379
投稿日: 2008/02/10(Sun) 14:17
投稿者Do_Shirouto
> > なぜか 私のVBには
> > プロジェクト→コンポーネント→で Microsoft Internet Transfer Control 6.0
> > が入っていないので、試す事が出来ませんでした。
>
> VB6.0 のエディション は、?
> MSINET.OCX が入っているか? C:\Windows\System32 フォルダ内を見て下さい。
有難う御座います。
Learning Editionです。
netで検索した所そのような情報がありましたので、
調べたところ C:\Windows\System32\MSINET.OCX はありませんでした。

[ツリー表示へ]
タイトルRe^5: ホームページの保存をしたい
記事No11380
投稿日: 2008/02/10(Sun) 15:11
投稿者花ちゃん
> Learning Editionです。

No.169 の方を使って見て下さい。

又は、VB のProfessional Edition 以上を使うとか。

[ツリー表示へ]
タイトルRe^6: ホームページの保存をしたい
記事No11381
投稿日: 2008/02/10(Sun) 18:37
投稿者Do_Shirouto
> > Learning Editionです。
>
> No.169 の方を使って見て下さい。
>
> 又は、VB のProfessional Edition 以上を使うとか。
花ちゃんさん色々有難う御座いました。
MSINET.Ocxなどダウンロードしても上手くいかず。
(Inet1.がフォームに張り付かない)
そのかわりサンプルソフトが見つかり、
コードの内容は私には理解できませんが、
下記でやってみます。
'-----------------------------------
Private Sub Command1_Click()
Dim FilePath As String
FilePath = "E:\Sample6.mht"

With CreateObject("InternetExplorer.Application")
    .Visible = False
    .Navigate "URL"
End With
      
    Dim O As Object
    Set O = CreateObject("CDO.Message")
    O.CreateMHTMLBody "URL"
    O.GetStream().SaveToFile FilePath
    End
    
End Sub
'------------------------------------------------
ただ上書き保存が出来ないようです。
本当に有難う御座いました。

[ツリー表示へ]