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

タイトル Re: Webページの取得
投稿日: 2010/06/29(Tue) 20:50
投稿者魔界の仮面弁士
> 上記の4と5を手動では無くてソフトで取得したいのですが、

3,4,5 ではなく、4,5だけなのですね?

3 までは出来ているのであれば、あとはこんな感じ。

 ' #4
 Private Sub Command4_Click()
  WebBrowser1.Navigate2 "javascript:sendRequest2('JA4DND')"
 End Sub

 ' #5
 Private Sub Command5_Click()
  Dim tbl As Object, row As Object, cell As Object
  Set tbl = WebBrowser1.Document.getElementById("thegrid")
  For Each row In tbl.rows
   For Each cell In row.cells
    Debug.Print Tab(cell.cellIndex * 8);
    If cell.tagName = "TH" Then
     Debug.Print cell.innerText;
    Else
     Debug.Print cell.currentStyle.backgroundColor;
    End If
   Next
   Debug.Print
  Next
 End Sub



=== 出力結果の例 ===
       6m      10m     12m     15m     17m     20m     30m     40m     80m     160m
PH     red     red     red     green   red     green   #eee    red     red     red
CW     #eee    red     green   green   green   green   green   green   green   green
RTTY   #eee    #eee    #eee    #eee    #eee    green   #eee    #eee    #eee    #eee

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

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