[silverlord]

انا احاول تحويل  page من string الىhtmlDocument
لكي يسهل علي التحكم بكودHTML

كود :

       Dim Web As New WebClient
       Dim PAGE As String = Web.DownloadString(URL)

هذا مثال بسيط يوضح كيف استطيع اتحكم بعناصر الصفحة ولكن بإستحدام كلاسWebrowser وهذا الكلاس غير عملي نهائياً لانه بطيء جداً وارغب بإستحدام هذا الكلاس بدلا عنه htmldocument

كود :

Private Sub fMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Try
           WebBrowser1.Navigate("http://site.com")

       Catch ex As Exception

       End Try

   End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

       For Each item As HtmlElement In WebBrowser1.Document.Links
           TextBox2.Text += item.InnerText + vbNewLine  + vbNewLine

       Next
   End Sub