Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/3 15:19:00 [显示全部帖子]


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/4 9:43:00 [显示全部帖子]

 看不到表结构无法提取。你把网页另存为html打包发上来看看。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/4 10:53:00 [显示全部帖子]

直接上传上来就好了。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/4 11:41:00 [显示全部帖子]

1、不需要你的登陆信息啊;

 

2、任何浏览器,都可以查看源码、另存为的啊


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/4 12:39:00 [显示全部帖子]

你给的网页,没有电话号码那些东西

 

参考到代码

 

Dim web = e.form.controls("webbrowser1").basecontrol
Dim ts = web.document.GetElementsByTagName("table")

msgbox(ts(2).GetElementsByTagName("tr")(3).GetElementsByTagName("TD")(1).innerText)
msgbox(ts(2).GetElementsByTagName("tr")(5).GetElementsByTagName("TD")(1).innerText)
msgbox(ts(2).GetElementsByTagName("tr")(6).GetElementsByTagName("TD")(1).innerText)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/4 13:02:00 [显示全部帖子]

运行代码

 

Dim web = e.form.controls("webbrowser1").basecontrol
Dim ts = web.document.GetElementsByTagName("table")

msgbox(ts(3).GetElementsByTagName("tr")(1).GetElementsByTagName("TD")(3).innerText)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/4 14:31:00 [显示全部帖子]

1、那你webbrowser要打开到那个页面;

 

2、15楼的代码写到一个按钮里面去;

 

我测试没问题。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/4 14:48:00 [显示全部帖子]

Dim g As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
g.Address = url
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
 
msgbox(2)

Dim web = e.form.controls("webbrowser1").basecontrol
Dim ts = web.document.GetElementsByTagName("table")

msgbox(ts(3).GetElementsByTagName("tr")(1).GetElementsByTagName("TD")(3).innerText)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/4 15:07:00 [显示全部帖子]

认认真真看23楼,地址替换成对应的地址。

 

我测试没问题。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/4 15:49:00 [显示全部帖子]

正常显示内容以后,再做一个按钮,运行下面的代码,行不行?

 

Dim web = e.form.controls("webbrowser1").basecontrol
Dim ts = web.document.GetElementsByTagName("table")

msgbox(ts(3).GetElementsByTagName("tr")(1).GetElementsByTagName("TD")(3).innerText)


 回到顶部
总数 14 1 2 下一页