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


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

主题：应要求.自动操作网页以及获取网页数据.详细例子放出来了!(更新使用事件实现以及详细中文注译讲解)
帅哥哟，离线，有人找我吗？
Bin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：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


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

图片点击可在新窗口打开查看仅提供参考. 狐表其实还是有限制. 因为无法重写事件. 系列性操作只能用计时器.
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

打到相关位置?

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


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

顶起来.

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：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


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：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


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：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


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：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


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：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


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

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

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

 回到顶部
总数 30 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08008 秒, 7 次数据查询