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


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

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

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/8 17:29:00 [显示全部帖子]

先顶!

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/8 17:50:00 [显示全部帖子]

不过,腻简陋,还是无法应用.

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/8 17:57:00 [显示全部帖子]

似这种弹窗式如何打到相关位置?

图片点击可在新窗口打开查看此主题相关图片如下:dcs.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/8 18:04:00 [显示全部帖子]

把Name及Password输入,确认

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/9 12:32:00 [显示全部帖子]

顶,学习!

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/9 13:37:00 [显示全部帖子]

请教老大:1楼例子如何得到网页代码?多谢!

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/9 14:39:00 [显示全部帖子]

e.Form.Controls("WebBrowser1").address="http://www.foxtable.com/bbs/index.asp"
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl

web.Navigate("http://www.foxtable.com/bbs/index.asp?boardid=2")  
e.Form.Controls("TextBox1").value = web.Document.Body.OuterHtml   '这句报错,请更正,多谢!


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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/9 17:28:00 [显示全部帖子]

以下是引用Bin在2013-5-9 14:44:00的发言:

你不可以直接就这样做.参考我定时器里面的代码 你立刻取值是无法获得值的.因为此时还未加载完成.
e.Form.Controls("WebBrowser1").address="http://www.foxtable.com/bbs/index.asp"
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl

web.Navigate("http://www.foxtable.com/bbs/index.asp?boardid=2")  
 
System.Threading.Thread.Sleep(30000)  '延迟執行30秒, 还是报错,为什么?

e.Form.Controls("TextBox1").value = web.Document.Body.OuterHtml   


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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/10 13:37:00 [显示全部帖子]

 我在最后处加了句获取网页代码,昨夜在家里的手提是可以得到的,在办公室却得不到,是否和系统有关?系统有可能阻止? 


                        Forms("窗口1").Controls("TextBox1").value = web.Document.Body.OuterHtml
                        Exit For
                    End If
                Next
                Isgo=False


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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12981 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/10 13:43:00 [显示全部帖子]

另昨天测试是可以下载文件的,今天不行,可能公司系统阻止了!

 回到顶部
总数 21 1 2 3 下一页