起動しているＩＥのHTMLソースをファイル保存したい (ID:122376)

名前

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

本文

IPersistFile インターフェイスを利用するのが簡単かと。

'--------
Option Strict On
Imports System.IO
Imports System.Runtime.InteropServices
Module Module1

Sub Main()
    '結果を出力するフォルダ
    Dim WorkFolder As String = "C:\TextFiles\"
    Directory.CreateDirectory(WorkFolder)

'現在起動中の InternetExplorer を列挙する
    Dim Shell As Object = CreateObject("Shell.Application")
    Dim Windows As Object = CallByName(Shell, "Windows", CallType.Method)
    For I As Integer = 0 To CInt(CallByName(Windows, "Count", CallType.Get)) - 1
      Dim Exp As Object = CallByName(Windows, "Item", CallType.Get, I)
      Dim Doc As Object = CallByName(Exp, "Document", CallType.Get)
      'HTMLを表示している場合のみ処理する
      If Doc.GetType().Name Like "HTMLDocument*" Then
        Dim FileName As String = Now.ToString("yyyy-MM-dd_HH;mm;ss_fffffff") & ".html"
        Dim FilePath As String = Path.Combine(WorkFolder, FileName)

'IPersistFileインターフェイスにて保存
        Dim PF As UCOMIPersistFile = DirectCast(Doc, UCOMIPersistFile)
        PF.Save(FilePath, False)
      End If
      Marshal.ReleaseComObject(Doc)
      Marshal.ReleaseComObject(Exp)
    Next
    Marshal.ReleaseComObject(Windows)

'フォルダを開く
    CallByName(Shell, "Open", CallType.Method, WorkFolder)
    Marshal.ReleaseComObject(Shell)
  End Sub

End Module

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

戻る