Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionpour récupérer le contenu réel qui est affiché sur une page WEB
Malheureusement, ce n'est pas ce que je recherche.
Merci quand même.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://www.nyse.com/about/listed/lc_ny_name_A.html?ListedComp=All") End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim Str As String = "" For rt As Integer = 77 To 96 Str &= WebBrowser1.Document.Links(rt).OuterText & vbCrLf Next MsgBox(Str) End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim Rt As Integer Dim Str As String = "" For Rt = 0 To WebBrowser1.Document.Links.Count - 1 Try If WebBrowser1.Document.Links(Rt).OuterText.Contains("NYSE Technologies Global Market Data") Then Exit For Catch ex As Exception End Try Next For i As Integer = Rt + 1 To Rt + 20 Str &= WebBrowser1.Document.Links(i).OuterText & vbCrLf Next MsgBox(Str) End Sub