Come mi avete suggerito ho provato il codice così
e funziona bene:
Grazie millecodice:Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim sourceString As String = New System.Net.WebClient().DownloadString("http://tycho.usno.navy.mil/cgi-bin/timer.pl") Dim gs, ns As String Dim nn As Integer gs = sourceString.Substring(0, 200) nn = InStrRev(gs, ",") ns = Mid(gs, (nn + 2), 8) TextBox1.Text = ns End Sub

Rispondi quotando