分享一些VBA上新浪接口增加referer的方法

收藏关注

VBA SINA接口

修改前：

'url = "http://hq.sinajs.cn/list=" & codeCol ''SINA接口
'With CreateObject("Microsoft.XMLHTTP")
' .Open "GET", url, False
' .Send
' sTemp = .responseText
'End With

修改后：

url = "http://hq.sinajs.cn/list=" & codeCol

With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", url, False
.setRequestHeader "Referer", "http://finance.sina.com.cn"
.Send
sTemp = .responseText
End With

发表时间 2022-01-21 15:49

赞同来自: terrypang2

10 个回复

0

现在时不时的能刷出来一次，也是无语

2022-01-24 09:35 引用

0

@生身盛世诗书史

早日弃暗投明，选择LibreOffice+Python宏

还可以这样啊，多谢指点，我研究研究

2022-01-24 09:08 引用

1

生身盛世诗书史

赞同来自: huoex

早日弃暗投明，选择LibreOffice+Python宏

2022-01-21 16:33 引用

0

大家都用手动刷新就行了

2022-01-21 16:31 引用

0

@阿鲁哥

难搞，尽早准备其他方案冗余吧

人家诚心不让你用了，加个referer分分钟再给你禁掉

这个禁不掉的。

2022-01-21 16:21 引用

0

尽量不要搞自动刷新

设置N秒刷新一次,服务器也受不了。。

2022-01-21 16:21修改引用

0

又禁止了

2022-01-21 16:20 引用

0

已经禁了

2022-01-21 16:14 引用

0

欣财富自由之路

是的。已经不可以用了。

2022-01-21 16:09 引用

0

阿鲁哥 - 95后学生

难搞，尽早准备其他方案冗余吧

人家诚心不让你用了，加个referer分分钟再给你禁掉

2022-01-21 16:06 引用

要回复问题请先登录或注册