(16-04-19, 09:31 AM)DK-x كتب :

اعتذر عن التاخير

جهزته لك من البارحه بس قطع عندي النت ولليوم حتى رجع

=اعتذر عن التاخير   جهزته لك من البارحه بس قطع عندي النت ولليوم حتى رجع

https://up.top4top.net/downloadf-12018tgte1-rar.html

(16-04-19, 06:29 PM)DK-x كتب :

المشروع مجهز لموقع عمرو خالد

انت بس اكتب الرابط واضغط Start

(09-02-21, 06:25 PM)ابو روضة كتب :

أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.

هل ممكن رابط الصفحة اجرب

(09-02-21, 06:43 PM)سعود كتب :

(09-02-21, 06:25 PM)ابو روضة كتب :

أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.

اذا لم تستطع فقد يكون الموقع مشفر .

هل ممكن رابط الصفحة اجرب

(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