22-10-19, 02:18 AM
22-10-19, 12:30 PM
اتفضل أخى وأضف الأدوات التالية
Button1
RichTextBox1
WebBrowser1
Label1
وأضف هذا الملف للمشروع
https://up.top4top.net/downloadf-1390ajbz91-rar.html
Button1
RichTextBox1
WebBrowser1
Label1
PHP كود :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(RichTextBox1.Text)
For Each w As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='bookmarkmenu']/div[1]/table/tbody/tr/td[2]/a[1]")
Label1.Text = (w.InnerText.Trim)
Next
Catch ex As Exception
End Try
End Sub
End Class
وأضف هذا الملف للمشروع
https://up.top4top.net/downloadf-1390ajbz91-rar.html
22-10-19, 02:31 PM
(22-10-19, 12:30 PM)ابو روضة كتب : [ -> ]اتفضل أخى وأضف الأدوات التالية
Button1
RichTextBox1
WebBrowser1
Label1
PHP كود :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(RichTextBox1.Text)
For Each w As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='bookmarkmenu']/div[1]/table/tbody/tr/td[2]/a[1]")
Label1.Text = (w.InnerText.Trim)
Next
Catch ex As Exception
End Try
End Sub
End Class
وأضف هذا الملف للمشروع
https://up.top4top.net/downloadf-1390ajbz91-rar.html
شكرا اخي ابو روضه ولكن كيف اضيف هذا الملف
22-10-19, 04:07 PM
ثم قم بإختياره
22-10-19, 04:36 PM