tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル javascript 内のソース取得
投稿日: 2012/06/01(Fri) 11:31
投稿者nobu
何時も拝見しています。
VB6 SP6、WinXpです。

投稿制限により http: と一部を全角で書いています。

WebBrowser1.Navigate "hhttp://www.clublog.org/expeditions/3B7C"
にての表示完了を待ってから
        WebBrowser1.Navigate "javascript:sendRequest2('JA1')"

Open strPath & "allexpeditions\sot_JA_3B7C.txt" For Output As #f_o2

  Dim tbl As Object, row As Object, cell As Object
    Set tbl = WebBrowser1.Document.getElementById("thegrid")
       Print #f_o2, Left$("3B7C" & Space(10), 10) & " : "
        For Each row In tbl.rows
            For Each cell In row.cells
                Print #f_o2, Tab(cell.cellIndex * 8);
                If cell.tagName = "TH" Then
                    Print #f_o2, cell.innerText;
                Else
                    Print #f_o2, cell.currentStyle.backgroundColor;
                End If
            Next
                Print #f_o2, ""
        Next
   Close #f_o2
...にて表示された内容の保存は出来ました。

次に
WebBrowser1.Navigate "hhttp://www.clublog.org/expeditions/3B7C"
にて表示完了を待ってから
    WebBrowser1.Navigate "javascript:getPropagation('dxcc','JA1')"
にては一部を下記に変更して試していますが
10m 809QSOs などや棒グラフの値の取得が出来ないでいます。

    Set tbl = WebBrowser1.Document.getElementById("propagationChart")

表示されている内容のテーブルの値やソースは
どうように書けば取得出来るかご指導をしていただけると幸いです。

なお、表示されたグラフのソース内容の確認は
[Google Chrome] にて Propagation を表示し、
表示が完了したらマウスの右クリック、[要素を検証]をクリックして、
左側の [Elements] に表示されているものを見ています。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。