历史雅虎财经 API 再次出现在弗里茨身上？

多年来我一直成功地使用雅虎财经 API cookie/crumb 技术来获取历史股票报价。 2022年4月28日，它坏了，过度的词汇练习也未能修复它。

该技术是查找难以辨认的股票代码，因为返回的 cookie 的一部分可用于获取有关历史 Yahoo API 的连续使用的真实历史数据。我已经尝试过使用难以辨认和合法的股票符号。我使用的是 Excel 2019 VBA，调试似乎挂在“.waitForResponse (10)”指令上。它是循环的一部分，并且挂在第一个实例上。代码如下所示。它成功在 ws1.S10 上写入零，但在“Next Cook”指令之后无法执行任何操作。是雅虎再次故意破坏Finance API，还是微软“改进”了Excel？或者，更可能的是，我做了一些愚蠢的事情，比如打开电脑？谢谢！

Sub HistUp()

Dim resultFromYahoo, csv_rows() As String
Dim objRequest
Dim resultArray As Variant
Dim eagle, nColumns, cook, iRows, iCols As Integer
Dim CSV_Fields As Variant
Dim ticker, tickerURL, cookie, crumb As String
Dim HistQuote, HistDiv, DefaultKey As String
Dim Curr, StartPer As String
Dim fox, sheep, bear, elk, wolf, raccoon, snake As Integer
Dim julian, ricky, bubbles As Double
Dim crumbStartPos, crumbEndPos, Lastrow1, Lastrow2 As Long

Set wb = ThisWorkbook
Set ws1 = wb.Worksheets(1)
Set ws2 = wb.Worksheets(2)
Set ws3 = wb.Worksheets(3)
Set ws4 = wb.Worksheets(4)
Set ws5 = wb.Worksheets(5)

Application.EnableEvents = False
Application.DisplayAlerts = False
eagle = ActiveSheet.Index
wb.Worksheets("Warn").Select
wb.Worksheets("Warn").Range("A1").Select
DoEvents

'getCookieCrumb
For cook = 0 To 5  'ask for a valid crumb 6 times
    ws1.Range("S10") = cook
    Set objRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    With objRequest
        .Open "GET", "https://finance.yahoo.com/lookup?s=turpitude", False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
        .send
        .waitForResponse (10)
        cookie = Split(.getResponseHeader("Set-Cookie"), ";")(0)
        crumbStartPos = InStrRev(.ResponseText, """crumb"":""") + 9
        crumbEndPos = crumbStartPos + 11
        crumb = Mid(.ResponseText, crumbStartPos, crumbEndPos - crumbStartPos)
    End With
    
    If Len(crumb) = 11 Then 'a valid crumb is 11 characters long
        Exit For
    End If
Next cook

我也有同样的问题。看起来雅虎改变了雅虎财经 API。 当我注释掉该行时： cookie = Split(.getResponseHeader("Set-Cookie"), ";")(0) 该代码似乎像以前一样工作。

然后也注释掉 '.setRequestHeader“Cookie”，Cookie 当您发送请求时。我的其余代码：

'CONSTRUCT THE URL:
'interval=1d or 1wk or 1mo, events=dividends or events=history (prices) or events=splits
    WebRequestURL = "https://query1.finance.yahoo.com/v7/finance/download/" & StockSymbol & _
        "?period1=" & UnixStartDate & "&period2=" & UnixEndDate & _
        "&interval=" & UrlInterval & "&events=" & UrlEvents & "&crumb=" & Crumb

'FETCH THE DATA:
    With WebRequest
        .Open "GET", WebRequestURL, False
        '.setRequestHeader "Cookie", Cookie
        .Send
        .waitForResponse (10)
    End With