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


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

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

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


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
应要求.自动操作网页以及获取网页数据.详细例子放出来了!(更新使用事件实现以及详细中文注译讲解)  发帖心情 Post By:2013/5/8 17:20:00 [显示全部帖子]


狐表其实是可以添加事件的,技术不到家!图片点击可在新窗口打开查看 原来用的是C#对VB不是很熟悉,没办法.

代码有些冗余,本来想封装成函数的.时间有限就算了.狐友们自己补充吧.


以下内容只有回复后才可以浏览



[此贴子已经被作者于2013-9-10 10:41:20编辑过]

[本帖被加为精华]
 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/8 17:53:00 [显示全部帖子]

图片点击可在新窗口打开查看仅提供参考. 狐表其实还是有限制. 因为无法重写事件. 系列性操作只能用计时器.



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


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/8 17:58:00 [显示全部帖子]

打到相关位置?

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


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/9 12:21:00 [显示全部帖子]

顶起来.

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


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/9 12:31:00 [显示全部帖子]

以下是引用qq121454970在2013-5-9 12:29:00的发言:
开发版图片点击可在新窗口打开查看

下午上商业版例子.

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


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/9 14:08:00 [显示全部帖子]

以下是引用don在2013-5-9 13:37:00的发言:
请教老大:1楼例子如何得到网页代码?多谢!

想获得网页代码,
web.Document.Body.OuterHtml

想获得元素代码
元素.OuterHtml
例如web.Document.GetElementById("username").OuterHtml

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


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/9 14:44:00 [显示全部帖子]

以下是引用don在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   '这句报错,请更正,多谢!

你不可以直接就这样做.参考我定时器里面的代码 你立刻取值是无法获得值的.因为此时还未加载完成.

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


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/9 17:30:00 [显示全部帖子]

以下是引用don在2013-5-9 17:28: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   

睡眠线程没有任何意义在这里,你睡眠了这条线程,所有操作都停止了.也就不会继续加载数据了. 所以必须要计时器.否则你认为我为何要用计时器呢? 即时如果可以重写事件的话可以更高校 且 精确的控制.

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


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/10 9:24:00 [显示全部帖子]

以下是引用夕然在2013-5-10 9:20:00的发言:

不过,我下载的版本怎么点击之后没有任何反应呢?

打不开,但是点开始没反应? 有可能你删除了IE相关组件.

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


加好友 发短信
等级:贵宾 帖子:35437 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/10 14:06:00 [显示全部帖子]

以下是引用don在2013-5-10 13:43:00的发言:
另昨天测试是可以下载文件的,今天不行,可能公司系统阻止了!

注意看,该帖子文件名字已经更改了.需要稍微更改代码,才能找到对应的A标签了

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