- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]HttpClient获取数据是不是有问题？（已解决，新浪股piao数据接口） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178786)
-- 发布时间：2022/7/20 20:31:00
-- [求助]HttpClient获取数据是不是有问题？（已解决，新浪股piao数据接口）
蓝老师好！
昨天看到HttpClient获取TXT文件bug的帖子，是不是HttpClient获取数据也有问题？
1、老师写的这段代码看不出问题，但是运行时提示403错误：
Dim htc As New HttpClient("http://hq.sinajs.cn/list=sh600519") htc.Headers.Add("Referer", "http://finance.sina.com.cn") \'向服务端附加头部信息 Dim ret As String = htc.GetData() msgbox(ret)  此主题相关图片如下：截屏图片 (2).jpg 2、我用Postman测试请求网址、头部信息验证，是可以正常获取数据的： 此主题相关图片如下：截屏图片 (1).jpg |
[此贴子已经被作者于2022/7/23 10:25:07编辑过]
-- 发布时间：2022/7/21 9:50:00
--
已反馈
-- 发布时间：2022/7/23 10:23:00
--
谢谢！2022-7-23版本可以正常下载网页数据了~
Dim htc As New HttpClient("http://hq.sinajs.cn/list=sh600519,sh600009")
htc.Headers.Add("Referer", "http://finance.sina.com.cn")
htc.Resp
Dim ret As String = htc.GetData()
msgbox(ret)
这个结果中数据用逗号隔开了，顺序号从0开始，分别表示：
1：”****，股票名字；
2：”24.600″，今日开盘价；
3：”24.580″，昨日收盘价；
4：”23.600″，当前价格；
5：”24.960″，今日最高价；
6：”23.380″，今日最低价；
7：”23.570″，竞买价，即“买一”报价；
8：”23.600″，竞卖价，即“卖一”报价；
9：”114780276″，成交的股票数，由于股票交易以一百股为基本单位，所以在使用时，通常把该值除以一百；
10：”2744729637.030″，成交金额，单位为“元”，为了一目了然，通常以“万元”为成交金额的单位，所以通常把该值除以一万；
11：”8480″，“买一”申请8480股，即85手；
12：”23.570″，“买一”报价；
13：”27800″，“买二””
14：”23.560″，“买二”
15：”30900″，“买三”
16：”23.550″，“买三”
17：”11000″，“买四”
18：”23.540″，“买四”
19：”31840″，“买五”
20：”23.530″，“买五”
21：”199000″，“卖一”申报199000股，即1990手；
22："23.600"，“卖一”报价
23：”2700，“卖二”申报
24: ”23.610″，“卖二”报价
25：”58300，“卖三”申报
26: ”23.620″，“卖三”报价
27：”51200，“卖四”申报
28: ”23.630″，“卖四”报价
29：”4400，“卖五”申报
30: ”23.640″，“卖五”报价
31：”2021-02-10″，日期；
此主题相关图片如下：截屏图片.jpg
[此贴子已经被作者于2022/7/23 10:40:13编辑过]