Foxtable(狐表)用户栏目专家坐堂 → 应要求.自动操作网页以及获取网页数据.详细例子放出来了!(更新使用事件实现以及详细中文注译讲解)


  共有281170人关注过本帖树形打印复制链接

主题:应要求.自动操作网页以及获取网页数据.详细例子放出来了!(更新使用事件实现以及详细中文注译讲解)

帅哥哟,离线,有人找我吗?
飞狐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:289 威望:0 精华:0 注册:2012/9/5 10:06:00
  发帖心情 Post By:2013/5/9 13:04:00 [显示全部帖子]

顶起,学习

 回到顶部
帅哥哟,离线,有人找我吗?
飞狐
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:289 威望:0 精华:0 注册:2012/9/5 10:06:00
  发帖心情 Post By:2013/5/15 15:54:00 [显示全部帖子]

Bin老师:

            Case "刷新"

                Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("a")

                For i As Integer = 0 To hec.Count-1

                    If hec(i).OuterHtml.Contains("刷新") Then

                        hec(i).InvokeMember("click")

                        'lb=""

                        Exit For

                    End If

                Next


想用这段代码 自动去点击 网页上每个列表后的"刷新"链接,页面显示如下:


列表名称1               刷新 修改

列表名称1               刷新 修改

列表名称1               刷新 修改

列表名称1               刷新 修改

列表名称1               刷新 修改



 回到顶部
帅哥哟,离线,有人找我吗?
飞狐
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:289 威望:0 精华:0 注册:2012/9/5 10:06:00
  发帖心情 Post By:2013/5/15 16:00:00 [显示全部帖子]

还没写完就怎么就发出去了,接上>>

列表名称1               刷新 修改
列表名称2               刷新 修改
列表名称3               刷新 修改
列表名称4               刷新 修改
列表名称5               刷新 修改
列表名称6               刷新 修改
列表名称7               刷新 修改

1 2 3 4 5 6 下一页

想通过修改楼上代码,设定间隔时间,去点击"刷新",当点击一个"刷新"后,还会出现只带一个确定按钮的刷新成功信息,每页有20条列表,翻页又怎么处理呢?




 回到顶部
帅哥哟,离线,有人找我吗?
飞狐
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:289 威望:0 精华:0 注册:2012/9/5 10:06:00
  发帖心情 Post By:2013/5/15 16:13:00 [显示全部帖子]

现在用这个代码,只能刷新第一页第一个"刷新",而且一直都只"刷新"第一个

Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.Window.Frames(3).Document.GetElementsByTagName("a")

                For i As Integer = 0 To hec.Count-1
                   ' If hec(i).OuterHtml.Contains("刷新") Then
                        for j as integer = 0 to 想得到网页上"a" 的"刷新"集合数(不知道如何写,如果翻页是不是还得嵌套for呢?)
                        hec(j).InvokeMember("click")
                                System.Threading.Thread.Sleep(300000)
                        next

                        Exit For
                    'End If
                Next
点击"刷新"后,会弹出提示刷新成功信息,如何得到这个弹出窗口,并点击上面的的确定按钮.




 回到顶部
帅哥哟,离线,有人找我吗?
飞狐
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:289 威望:0 精华:0 注册:2012/9/5 10:06:00
  发帖心情 Post By:2013/5/15 16:44:00 [显示全部帖子]

exit for 去掉还是只能点击第一条,msgbox看了hec.count 为9,没有往下走了

 回到顶部
帅哥哟,离线,有人找我吗?
飞狐
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:289 威望:0 精华:0 注册:2012/9/5 10:06:00
  发帖心情 Post By:2013/5/15 16:51:00 [显示全部帖子]

是的,点击了确定后回到原来的页面自动刷新还是跳转了,有这个动作,现在就不知道怎么办了?

 回到顶部
帅哥哟,离线,有人找我吗?
飞狐
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:289 威望:0 精华:0 注册:2012/9/5 10:06:00
  发帖心情 Post By:2013/5/24 12:39:00 [显示全部帖子]

bin老师:
Web.Document.All.Item("id").value="录入时间"  
Web.Doc.All.Item("id").value="录入时间"

这个是在网上找的,select控件里面,选择后能触发选择的事件,请问如何改代码,在fox里才能用呢?

 回到顶部