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


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

主题：[求助]
帅哥哟，离线，有人找我吗？
9602084
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3406 威望：0 精华：0 注册：2013/5/17 10:55:00 		  发帖心情 Post By：2016/8/4 14:42:00 [只看该作者]

这个网页打开后，在浏览器上看到的源码是这样的：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<html>
<head>
<title>
打印港区招教报名表</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="C#">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<link href="../../inc/styleks.css" type="text/css" rel="stylesheet">
</head>
<frameset rows="*,0,100" border="0" framespacing="0" frameborder="0">
<FRAME name="main" id="print" src="Exampb.aspx?id=66&zczw=" scrolling="auto" noresize>
<FRAME name="preMain" id="preMain" src="UntitledFrame-2" scrolling="auto" noresize>
<FRAME name="foot" id="foot" src="foot.aspx?id=66" scrolling=no>
<NOFRAMES>
<P>This page requires frames, but your browser does not support them.</P>
</NOFRAMES>
</frameset>
</html>

是不是跟这个有关？
 回到顶部
帅哥哟，离线，有人找我吗？
9602084
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3406 威望：0 精华：0 注册：2013/5/17 10:55:00 		  发帖心情 Post By：2016/8/4 14:43:00 [只看该作者]

在这个源码里，就没有table

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)
 回到顶部
帅哥哟，离线，有人找我吗？
9602084
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3406 威望：0 精华：0 注册：2013/5/17 10:55:00 		  发帖心情 Post By：2016/8/4 14:55:00 [只看该作者]

红袍老师，不行呀，要不我把登录信息发给您，您打开网页看看？

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


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

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

 

我测试没问题。
 回到顶部
帅哥哟，离线，有人找我吗？
9602084
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3406 威望：0 精华：0 注册：2013/5/17 10:55:00 		  发帖心情 Post By：2016/8/4 15:36:00 [只看该作者]

红袍老师，真的不行呀！
这段代码 
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
是不是要放在
Dim web = e.form.controls("webbrowser1").basecontrol
的后面？
 回到顶部
帅哥哟，离线，有人找我吗？
9602084
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3406 威望：0 精华：0 注册：2013/5/17 10:55:00 		  发帖心情 Post By：2016/8/4 15:36:00 [只看该作者]

webbrowser1里能正常显示页面内容
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)
 回到顶部
帅哥哟，离线，有人找我吗？
9602084
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3406 威望：0 精华：0 注册：2013/5/17 10:55:00 		  发帖心情 Post By：2016/8/4 15:52:00 [只看该作者]

不行

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


加好友 发短信
等级：小狐 帖子：341 积分：3406 威望：0 精华：0 注册：2013/5/17 10:55:00 		  发帖心情 Post By：2016/8/4 15:54:00 [只看该作者]

msgbox(ts.count)
显示为0
 回到顶部
总数 37 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询