(Resolvido) ajuda, resultado do webbrowser em uma label ou textbox (refresh)
Boa tarde, tive qeu reabrir o topico pois embora eu tenha conseguido colocar o texto do webbrowser na label infelizmente não estou conseguindo atualizar ela a cada suponha 6 segundos, segue abaixo o código que estou usando no VB, agradeço a ajuda
Public Class Form1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
WebBrowser1.Refresh()
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Me.WebBrowser1.Navigate("url do conteudo a ser pego")
Try
If Not IsNothing(WebBrowser1.Document) Then
Dim elementos = WebBrowser1.Document.GetElementsByTagName("span")
If (Not IsNothing(elementos) And elementos.Count > 0) Then
Dim i As Integer = 0
While (i < elementos.Count AndAlso Not elementos.Item(i).OuterHtml().Contains("texto_musica"))
i += 1
End While
If (i < elementos.Count) Then
resultado = elementos.Item(i).InnerText
Label1.Text = resultado
End If
End If
End If
Catch ex As Exception
End Try
Timer1.Enabled = True
Timer1.Interval = 3000
Timer1.Start()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
Dim resultado As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
Discussão (0)
Carregando comentários...