[ابو روضة]

السلام عليكم إخوتى

كيف أقرأ هذه الصفحات التى جلبتها فى الليست بوكس فى أداة RichTextBox بدلا من قرائتها على

اداة الويب براوزر يعنى  أريد قراءة المقالات التى جلبتها داخل الليست بوكس فى الريتش بوكس..

فداخل الليست بوكس روابط لمقالات على موقع اريد قرائتها فى الريتش بوكس

[DK-x]

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

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

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

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

[ابو روضة]

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

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

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

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

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

تسلم أخى ربنا يكرمك ويبار فيك لكن لم أعرف طريقة تشغيله أو كيف يتم التعامل معه 

فلو نبذة بسيطة الله يكرمك

[DK-x]

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

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

[ابو روضة]

(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)ابو روضة كتب :

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

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

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

أتفضل أخى سعود  ربنا يكرمك...

https://islamweb.net/ar/consult/index.ph...id=2446968

أريد قرائة المقال هذا داخل الريتش بدل ما بقرأه داخل الويب براوزر يعنى استخلاص المقال فقط.

وعموما هى أى صفحة بها مقال مفيد أريد استخلاص المقال النصى منها لآن أوقات المواقع

لا تقبل بالويب براوزر لانه قديم وهذا هو الغرض من الموضوع.

[سعود]

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 


[ابو روضة]

(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 


يا سلام عليك أخى سعود " رجل المواقف الصعبة حقاً "
بس مش عارف ليه ظهرت لى هكذا ؟