寻求VB.NET获取股票收盘价的代码及GetWebResponse未识别问题解决方案

问题分析 #

原代码存在两个核心问题：

1. GetWebResponse 是自定义方法，VB.NET 没有内置该方法，因此编译器无法识别；
2. Google Finance 的历史数据接口已停用，无法返回有效数据。

下面提供基于 Yahoo Finance 公开接口 的可用代码，使用 VB.NET 标准的 HttpClient 类实现网络请求。

完整可用代码 #

首先导入必要的命名空间：

Imports System.Net.Http
Imports System.Collections.Generic
Imports System.Globalization
Imports System.Threading.Tasks

实现获取收盘价的方法（注：Yahoo Finance 公开接口可能随平台调整，若失效需参考最新官方文档）：

' 类级别声明单例HttpClient，避免重复创建资源
Private Shared ReadOnly _httpClient As New HttpClient()

' 获取指定股票的历史收盘价（异步方法，避免阻塞主线程）
Private Async Function GetStockClosingPricesAsync(ByVal symbol As String, ByVal startDate As Date, ByVal endDate As Date) As Task(Of List(Of Decimal))
    Dim prices As New List(Of Decimal)()
    
    ' 将日期转换为Unix时间戳（秒级）
    Dim epochStart As New Date(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
    Dim period1 As Long = CLng((startDate.ToUniversalTime() - epochStart).TotalSeconds)
    Dim period2 As Long = CLng((endDate.ToUniversalTime() - epochStart).TotalSeconds)
    
    ' 构建Yahoo Finance历史数据CSV请求URL
    Dim url As String = $"https://query1.finance.yahoo.com/v7/finance/download/{symbol}?period1={period1}&period2={period2}&interval=1d&events=history&includeAdjustedClose=true"
    
    Try
        ' 发送GET请求并获取响应内容
        Dim response As HttpResponseMessage = Await _httpClient.GetAsync(url)
        response.EnsureSuccessStatusCode() ' 验证请求状态，失败则抛出异常
        Dim csvContent As String = Await response.Content.ReadAsStringAsync()
        
        ' 分割CSV行，跳过表头
        Dim lines() As String = csvContent.Split({vbCr, vbLf}, StringSplitOptions.RemoveEmptyEntries)
        For i As Integer = 1 To lines.Length - 1
            Dim line As String = lines(i)
            If String.IsNullOrEmpty(line) Then Continue For
            
            ' Yahoo CSV列格式：Date,Open,High,Low,Close,Adj Close,Volume
            Dim columns() As String = line.Split(","c)
            If columns.Length >= 5 Then
                ' 解析第5列（索引4）为收盘价，用Decimal保证金融计算精度
                If Decimal.TryParse(columns(4), NumberStyles.Float, CultureInfo.InvariantCulture, Dim outPrice As Decimal) Then
                    prices.Add(outPrice)
                End If
            End If
        Next i
    Catch ex As HttpRequestException
        ' 处理网络请求异常（如接口不可用、无网络）
        Console.WriteLine($"网络请求错误：{ex.Message}")
    Catch ex As FormatException
        ' 处理CSV数据解析异常
        Console.WriteLine($"数据解析错误：{ex.Message}")
    End Try
    
    Return prices
End Function

使用示例 #

在需要调用的地方通过异步方式执行：

' 示例：获取AAPL在2024年1月1日至2024年6月1日的收盘价
Dim prices As List(Of Decimal) = Await GetStockClosingPricesAsync("AAPL", New Date(2024, 1, 1), New Date(2024, 6, 1))
For Each price In prices
    Console.WriteLine(price.ToString("C", CultureInfo.CurrentCulture))
Next

关键说明 #

• 用 HttpClient 替代自定义 GetWebResponse：这是.NET官方推荐的网络请求类，支持异步操作，性能更稳定；
• 替换为Yahoo有效接口：当前使用的是Yahoo公开的CSV下载端点，返回结构化历史数据；
• 用 Decimal 存储价格：相比原代码的 Single 精度更高，避免金融计算的精度损失；
• 异步设计：避免阻塞主线程，适合UI应用或高并发场景；
• 异常处理：捕获网络请求和数据解析的常见异常，提升代码健壮性。

内容的提问来源于stack exchange，提问作者Khawar