[求助]如何提取网页标题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何提取网页标题

共有1625人关注过本帖树形打印复制链接主题：[求助]如何提取网页标题

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/8 17:34:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49278

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/8 18:00:00 [显示全部帖子]

Dim page As Integer

Dim web As new windows.forms.webbrowser

web.ScriptErrorsSuppressed = True

For page = 232621561 To 232621562

Dim txb1 As String = "http://weidian.eallcn.com/" & page

web.Navigate(txb1)

Do Until web.ReadyState = 4

Application.DoEvents

Loop

output.show( web.Document.getElementsByTagName("title")(0).InnerText)

web.Dispose()

GC.Collect()

主题：[求助]如何提取网页标题