| 投稿日 | ： 2003/04/02(Wed) 13:41 |
| 投稿者 | ： しんじ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 再帰的に取得しなくて良いのですか？ |
引数が抜けていたので訂正します。
気持ち悪いので。。。
Private Sub GetHTMLText(ByVal ie AS Object)
'-----------------------------------------------------------
'--
'-- HTML文書文字列取得
'--
'-----------------------------------------------------------
'--更新履歴：
'--
'-- 2003/4/2 作成
'-----------------------------------------------------------
Dim strLogBuf As String
'--ieオブジェクト：HDocVw.WebBrowser.Documentオブジェクトを参照
If ie Is Nothing Then
Exit Sub
End If
If ie.frames.length = 0 Then
strLogBuf = ie.documentElement.outerText
Debug.Print strLogBuf
m_InsidentLog = m_InsidentLog + strLogBuf
Else
Dim n As Long
For n = 0 To ie.frames.length - 1
GetHTMLText (ie.frames.Item(n).Document)
Next
End If
End Sub