从互联网获取更新的 BTC 值

Question

我正在尝试在 VB.Net 中获取来自互联网的更新后的 BTC 值。

我在普通的私人潜艇中使用这种方法。

Dim btcvalue As String = "https://blockchain.info/tobtc?currency=USD&value=1"
    Try
                Dim reply As String = client.DownloadString(btcvalue)
                TextBox1.Text = reply
          Catch
    End Try

结果是一无所获。我试图用 Internet Explorer 浏览 blockchain.info，但实际上它没有连接。似乎该站点正在阻止该浏览器，该浏览器默认由 vb.net 使用。 我可以从另一个站点获得相同的值，但区块链更容易从那个 url 中提取，因为我直接提取了字符串而没有添加更多代码。我用来从原始 pastebin 页面中提取字符串的相同代码可以代替。 Internet Explorer 可以正常连接到 pastebin 站点。

例如，如何从 google 获取精确的字符串（btc 值）？

Answer 1

在调试时，您很可能希望添加一些适当的异常处理。 仅在您绝对确定要忽略错误（在任何情况下都可以记录错误）时在生产代码中使用空的 Catch 块，并且始终按显式类型处理最可能出现的异常。

如果您在代码中添加一些异常处理：

Dim btcvalue As String = "https://blockchain.info/tobtc?currency=USD&value=1"
Try
    Dim reply As String = client.DownloadString(btcvalue)
    TextBox1.Text = reply

Catch webEx As WebException
    MessageBox.Show(webEx.Message)
    Exit Sub    
End Try

您应该会看到错误消息：

“请求中止：无法创建 SSL/TLS 安全通道。”

当您尝试访问 Https 网址时，您很可能希望使用 ServicePointManager.SecurityProtocol 属性指定安全策略：

ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
Using client As New WebClient

    Dim btcvalue As String = "https://blockchain.info/tobtc?currency=USD&value=1"
    Try
        Dim reply As String = client.DownloadString(btcvalue)
        TextBox1.Text = reply

    Catch webEx As WebException
        MessageBox.Show(webEx.Message)
        Exit Sub    
    End Try

End Using

您经常需要指定User Agent。但是，对于这个请求，您似乎不必这样做，但如果您这样做，它似乎必须是一个代理，它指的是比 IE 更现代的浏览器。例如：

client.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) " &
                                 "AppleWebKit/537.36 (KHTML, like Gecko) " &
                                 "Chrome/42.0.2311.135 Safari/537.36 Edge/12.246")