菜鸟求助，帮帮忙！ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 菜鸟求助，帮帮忙！

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 424 人关注过本帖

标题：菜鸟求助，帮帮忙！

只看楼主加入收藏

wang20292

等　级：新手上路
帖　子：4
专家分：0
注　册：2010-4-16
结帖率：100%

楼主

已结贴√ 问题点数：10 回复次数：2

菜鸟求助，帮帮忙！

网页内容能提取出来，但原来链接却不能用了，高手帮忙改一下，谢谢了。

Private Sub Command7_Click()
        With WebBrowser1
        .Navigate "http://info.printing., False
        Do While Not .ReadyState = 4
            DoEvents
        Loop
        With .Document
            table = .getelementsbytagname("Table")(7).innerhtml
            .Open
            .Write "<HTML><table <TABLE align=""center"" bgcolor=""#ffffff"" border=""1"">" & table & "</table></html>"
            .Close
        End With
        Debug.Print table
    End With
End Sub

2010-04-25 11:32

风吹过b

等　级：贵宾
威　望：364
帖　子：4940
专家分：30047
注　册：2008-10-15

第 2 楼

得分:10

        With WebBrowser1
        .Navigate "http://info.printing., False
        Do While Not .ReadyState = 4
            DoEvents
        Loop
        With .Document
            table = .getelementsbytagname("Table")(7).innerhtml
            .Open
            '<head><base href='http://info.printing.'></head>
            '<head>    HTML文档头
            '<base href>  URL基准路径
            .Write "<HTML><head><base href='http://info.printing.'></head><table <TABLE align=""center"" bgcolor=""#ffffff"" border=""1"">" & table & "</table></html>"
            .Close
        End With
        Debug.Print table
    End With