用vb.net编写一个获取网络时间的代码示例

在VB.NET中，你可以使用`System.Net.WebClient`类来获取网络时间。下面是一个简单的示例代码，它将从一个提供UTC时间的服务器获取当前的时间：

Imports System.Net

Public Class Form1
    Private Sub btnGetTime_Click(sender As Object, e As EventArgs) Handles btnGetTime.Click
        ' 创建WebClient实例
        Dim client As New WebClient()

        ' 定义URL，通常使用世界时服务器如worldtimeapi.org
        Dim url As String = "http://worldtimeapi.org/api/timezone/Europe/London"

        Try
            ' 发起GET请求并获取响应
            Dim response As String = client.DownloadString(url)

            ' 解析JSON响应获取当前时间
            Dim json As JObject = JObject.Parse(response)
            Dim currentTime As DateTime = json("datetime").ToObject(Of DateTime)

            ' 显示到文本框中
            txtNetworkTime.Text = currentTime.ToString("yyyy-MM-dd HH:mm:ss")
        Catch ex As Exception
            MessageBox.Show("获取网络时间出错: " & ex.Message)
        Finally
            ' 关闭WebClient
            If Not client Is Nothing Then
                client.Dispose()
            End If
        End Try
    End Sub
End Class

在这个例子中，当用户点击按钮时，程序会尝试连接到指定的URL，然后解析返回的JSON数据获取当前时间，并显示在名为txtNetworkTime的文本框中。