(09-02-21, 06:25 PM)ابو روضة كتب : [ -> ]أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.
(09-02-21, 06:43 PM)سعود كتب : [ -> ](09-02-21, 06:25 PM)ابو روضة كتب : [ -> ]أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.
اذا لم تستطع فقد يكون الموقع مشفر .هل ممكن رابط الصفحة اجرب
Imports System.Net
Public Class Form1
Private Sub getpost()
Dim h As New HtmlAgilityPack.HtmlWeb
Dim d As HtmlAgilityPack.HtmlDocument = h.Load("http://islamweb.net/ar/consult/index.php?page=Details&id=2446968", "Get")
For Each n As HtmlAgilityPack.HtmlNode In d.DocumentNode.SelectNodes("//div[@itemprop='text']")
TextBox1.Invoke(Sub() TextBox1.Text = d.DocumentNode.SelectSingleNode("//div[@itemprop='text']").InnerText)
Button1.Invoke(Sub() Button1.Text = "تم")
Button1.Invoke(Sub() Button1.Enabled = True)
Exit Sub
Exit For
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim th As New Threading.Thread(AddressOf getpost)
If th.IsAlive = False Then
Button1.Text = "إنتظر..."
Button1.Enabled = False
th.Start()
End If
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls
ServicePointManager.SecurityProtocol = DirectCast(3072, SecurityProtocolType)
End Sub
End Class
(09-02-21, 11:21 PM)سعود كتب : [ -> ]PHP كود :
Imports System.Net
Public Class Form1
Private Sub getpost()
Dim h As New HtmlAgilityPack.HtmlWeb
Dim d As HtmlAgilityPack.HtmlDocument = h.Load("http://islamweb.net/ar/consult/index.php?page=Details&id=2446968", "Get")
For Each n As HtmlAgilityPack.HtmlNode In d.DocumentNode.SelectNodes("//div[@itemprop='text']")
TextBox1.Invoke(Sub() TextBox1.Text = d.DocumentNode.SelectSingleNode("//div[@itemprop='text']").InnerText)
Button1.Invoke(Sub() Button1.Text = "تم")
Button1.Invoke(Sub() Button1.Enabled = True)
Exit Sub
Exit For
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim th As New Threading.Thread(AddressOf getpost)
If th.IsAlive = False Then
Button1.Text = "إنتظر..."
Button1.Enabled = False
th.Start()
End If
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls
ServicePointManager.SecurityProtocol = DirectCast(3072, SecurityProtocolType)
End Sub
End Class
