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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么获取网页内容并操作网页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82262)

--  作者：fslfyc
--  发布时间：2016/3/14 22:20:00
--  怎么获取网页内容并操作网页
怎么上传附件
上传例子，怎么传

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

--  作者：大红袍
--  发布时间：2016/3/14 22:21:00
--

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

--  作者：fslfyc
--  发布时间：2016/3/14 22:22:00
--
没有添加附件按钮

--  作者：大红袍
--  发布时间：2016/3/14 22:23:00
--
用IE浏览器，用兼容模式。

--  作者：fslfyc
--  发布时间：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编辑过]

--  作者：大红袍
--  发布时间：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

--  作者：fslfyc
--  发布时间：2016/3/15 8:54:00
--
谢谢红袍，辛苦了

--  作者：fslfyc
--  发布时间：2016/3/15 11:20:00
--
请教红袍，怎么获取InvokeMember模拟点击后的页面内容？

--  作者：大红袍
--  发布时间：2016/3/15 11:33:00
--

一样像这样获取

Dim lis As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("li")

--  作者：fslfyc
--  发布时间：2016/3/15 11:42:00
--

看到前面帖子中这段代码的作用是什么？

此主题相关图片如下：qq图片20160315113856.png

do until

代码。。。。。

loop

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