タイトル : Re^3: WebBrowserで表示中のHTMLのプロパティ取得について 投稿日 : 2006/03/23(Thu) 16:09 投稿者 : 魔界の仮面弁士
> 頂いたヒントより以下の記述で似たような数値は得られるのですが > wk_len = object_IE.Document.body.innerhtml.length 方向性が違います。innerHTML 等からだと、DOMで解析された結果になってしまうため、 元のソースとは、異なる値になってしまいます。 > 全体のサイズを求めるプロパティの記述がわかるといいのですが。 Option Strict Off / エラー処理なしの手抜きサンプル。 Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, _ ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent _ ) Handles AxWebBrowser1.DocumentComplete Dim Doc As Object = e.pDisp.Document Dim PF As System.Runtime.InteropServices.UCOMIPersistFile Dim FileName As String = "C:\A.HTML" PF = Doc PF.Save(FileName, False) System.Runtime.InteropServices.Marshal.ReleaseComObject(Doc) Dim Message As String Message = CStr(e.uRL) & vbCrLf & CStr(FileLen(FileName)) System.IO.File.Delete(FileName) MessageBox.Show(Message) End Sub |