怎么获取网页内容并操作网页 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么获取网页内容并操作网页

共有4815人关注过本帖树形打印复制链接主题：怎么获取网页内容并操作网页

fslfyc

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

加好友

发短信

等级：幼狐帖子：135 积分：1751 威望：0 精华：0 注册：2013/12/2 12:01:00

怎么获取网页内容并操作网页 发帖心情

Post By：2016/3/14 22:20:00 [只看该作者]

怎么上传附件

上传例子，怎么传

[此贴子已经被作者于2016/3/15 11:21:53编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/14 22:21:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

fslfyc

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

加好友

发短信

等级：幼狐帖子：135 积分：1751 威望：0 精华：0 注册：2013/12/2 12:01:00

Post By：2016/3/14 22:22:00 [只看该作者]

没有添加附件按钮

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/14 22:23:00 [只看该作者]

用IE浏览器，用兼容模式。

fslfyc

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

加好友

发短信

等级：幼狐帖子：135 积分：1751 威望：0 精华：0 注册：2013/12/2 12:01:00

Post By：2016/3/14 22:26:00 [只看该作者]

以下是引用大红袍在2016/3/14 22:23:00的发言：
用IE浏览器，用兼容模式。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

换IE可以了

请教红袍，为什么 InvokeMember("Click") 代码无效呢

用户名 yufeng2016

密码 1234567890

这么晚了麻烦你了

我希望能点击按钮能进入最近一期的touzhu页面

[此贴子已经被作者于2016/3/14 22:29:45编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/14 23:37:00 [只看该作者]

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").basecontrol
web.Navigate("http://wap.pceggs.com/play/pc28.aspx")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim lis As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("li") '获得当前页面的A标签HTML元素集合
Dim count As Integer = 0
For Each li As object In lis
    If li.GetAttribute("ClassName") = "kj_white_line" Then
        count += 1
        If count = 4 Then
            li.GetElementsByTagName("a")(0).InvokeMember("Click") '执行该标签的点击方法,实现
        End If
    End If
Next