ブラウザ上のHTMLを変数に入れたいのですが。。。 (ID:123447)

名前

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

本文

度々申し訳ありません。
また分からないことが出てしまいました。（＞＜；）

IE = CreateObject("InternetExplorer.Application")
IE.Navigate(Url)
でインターネットエクスプローラーを開いて
その中の
下記のようなコードで<a href="JavaScript:mySubmit('10')">テスト</a>
というリンクをクリックして表示されたページの内容（htmlのテキスト部分）を
変数Html1に読み込みたいのですが、空っぽになってしまいます。
対象のページはJavascriptやhtmlが書かれています。

試しに
Dim a As String = "http://www.yahoo.com"
でやると正常に読み込まれるのですが、
この場合どこを修正したらできるでしょうか？
またなにかのアドバイスを頂けたら助かります。m(_ _"m)ペコリ

Dim a As String = "javascript:Submit('10')"
        With IE
            .Navigate(a)

Do While .Busy = True
            Loop
            Do While .document.ReadyState <> "complete"
            Loop

Dim Html1
            Dim body As Object
            Dim Doc As Object = CallByName(IE, "Document", CallType.Get)

Try
                body = CallByName(Doc, "body", CallType.Get)
                Html1 = CallByName(body, "innertext", CallType.Get)
            Finally
                If Not IsNothing(body) Then
                    Marshal.ReleaseComObject(body)
                End If
                body = Nothing
            End Try

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

戻る