11 lines
457 B
VB.net
11 lines
457 B
VB.net
Imports System.Net
|
|
Dim client As WebClient = New WebClient()
|
|
Dim content As String = client.DownloadString("http://tycho.usno.navy.mil/cgi-bin/timer.pl")
|
|
Dim lines() As String = Split(content, vbLf) 'may need vbCrLf
|
|
For Each line In lines
|
|
If line.Contains("UTC") Then
|
|
Dim time As String() = line.Substring(4).Split(vbTab)
|
|
Console.WriteLine(time(0))
|
|
End If
|
|
Next
|