- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 用内置的 WinForm.WebBrowser 却看不到数据， 求解？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93907)
-- 发布时间：2016/12/10 1:11:00
-- 用内置的 WinForm.WebBrowser 却看不到数据， 求解？？
http://data.eastmoney.com/zjlx/603701.html
为何用电脑浏览器能看到这组数据， 用内置的 WinForm.WebBrowser 却看不到数据， 求解？？
此主题相关图片如下：n1644$}nra}1n~(8ga251a.png
此主题相关图片如下：~6ce1i47o(~b~{jc(f_qnh.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
[此贴子已经被作者于2016/12/10 1:12:23编辑过]
-- 发布时间：2016/12/10 9:15:00
--
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=646656&ID=93782&skin=1
-- 发布时间：2016/12/10 10:18:00
--
用了那个方法，遍历所有行的时候就是类似本版提的问题，抓不到数据
[此贴子已经被作者于2016/12/10 10:18:45编辑过]
-- 发布时间：2016/12/10 10:32:00
--
那就没有办法了。可能别人的网站做了什么控制避免给别人偷取数据
-- 发布时间：2016/12/10 23:36:00
--
url:
http://nufm.dfcfw.com/EM_Finance2014NumericApplication/JS.aspx?type=CT&cmd=6037011&sty=CTBFTA&st=z&sr=&p=&ps=&cb=&js=var tab_data=({data:[(x)]})&token=70f12f2f4f091e459a279469fe49eca5
返回值：
var
tab_data=({data:["1,603701,德宏股份,65.69,-2.33%,-420.14,16,0,-1140199,-114.02,-1.90%,7617028,-10678241,-306.12,-5.09%,27033153,-30599430,-356.63,-5.93%,25355709,-17588019,776.77,12.91%,-6.98%,2016-12-09
15:00:00"]})
-- 发布时间：2016/12/11 0:53:00
--
附件为窗体文件
以下内容为程序代码:
1 Dim code As String
2 code=e.Form.Controls("TextBox1").text
3 Dim u As String
4 u="http://nufm.dfcfw.com/EM_Finance2014NumericApplication/JS.aspx?type=CT&cmd=" & code & "1&sty=CTBFTA&st=z&&js=(x)&token=70f12f2f4f091e459a279469fe49eca5"
5
6 Dim web As new System.Windows.Forms.WebBrowser
7 web.Navigate(u)
8 Do Until web.ReadyState = 4
9 Application.DoEvents
10 Loop
11
12 Dim str As String
13 str=web.DocumentText
14 str=str.Trim("""")
15
16 Dim V() As String
17 V = str.split(",")
18 str=V(2) & "[" & V(1) & "]＜Table＞＜tr＞＜td＞类型＜/td＞＜td＞流入＜/td＞＜td＞流出＜/td＞＜/tr＞"
19 str=str & "＜tr＞＜td＞超大单＜/td＞＜td＞" & (V(7)/10000) & "万元＜/td＞＜td＞" & (V(8)/10000) & "万元＜/td＞＜/tr＞"
20 str=str & "＜tr＞＜td＞大单＜/td＞＜td＞" & (V(11)/10000) & "万元＜/td＞＜td＞" & (V(12)/10000) & "万元＜/td＞＜/tr＞"
21 str=str & "＜tr＞＜td＞中单＜/td＞＜td＞" & (V(15)/10000) & "万元＜/td＞＜td＞" & (V(16)/10000) & "万元＜/td＞＜/tr＞"
22 str=str & "＜tr＞＜td＞小单＜/td＞＜td＞" & (V(19)/10000) & "万元＜/td＞＜td＞" & (V(20)/10000) & "万元＜/td＞＜/tr＞"
23 str=str & "＜/table＞"
24 str=str & V(24)
25 e.Form.Controls("WebBrowser1").BaseControl.DocumentText=str
1 Dim code As String
2 code=e.Form.Controls("TextBox1").text
3 Dim u As String
4 u="http://nufm.dfcfw.com/EM_Finance2014NumericApplication/JS.aspx?type=CT&cmd=" & code & "1&sty=CTBFTA&st=z&&js=(x)&token=70f12f2f4f091e459a279469fe49eca5"
5
6 Dim web As new System.Windows.Forms.WebBrowser
7 web.Navigate(u)
8 Do Until web.ReadyState = 4
9 Application.DoEvents
10 Loop
11
12 Dim str As String
13 str=web.DocumentText
14 str=str.Trim("""")
15
16 Dim V() As String
17 V = str.split(",")
18 str=V(2) & "[" & V(1) & "]＜Table＞＜tr＞＜td＞类型＜/td＞＜td＞流入＜/td＞＜td＞流出＜/td＞＜/tr＞"
19 str=str & "＜tr＞＜td＞超大单＜/td＞＜td＞" & (V(7)/10000) & "万元＜/td＞＜td＞" & (V(8)/10000) & "万元＜/td＞＜/tr＞"
20 str=str & "＜tr＞＜td＞大单＜/td＞＜td＞" & (V(11)/10000) & "万元＜/td＞＜td＞" & (V(12)/10000) & "万元＜/td＞＜/tr＞"
21 str=str & "＜tr＞＜td＞中单＜/td＞＜td＞" & (V(15)/10000) & "万元＜/td＞＜td＞" & (V(16)/10000) & "万元＜/td＞＜/tr＞"
22 str=str & "＜tr＞＜td＞小单＜/td＞＜td＞" & (V(19)/10000) & "万元＜/td＞＜td＞" & (V(20)/10000) & "万元＜/td＞＜/tr＞"
23 str=str & "＜/table＞"
24 str=str & V(24)
25 e.Form.Controls("WebBrowser1").BaseControl.DocumentText=str
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:web.rar |
[此贴子已经被作者于2016/12/11 0:55:32编辑过]
-- 发布时间：2016/12/11 9:03:00
--
如果是取数据，用2楼，或者5楼的方法。
如果，你需要在窗口里面显示网页，那就必须用嵌入ie浏览器的方式了
| 下载信息 [文件大小：328.0 KB 下载次数：13] | |
 点击浏览该文件:嵌入ie_测试.table |