تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قراءة صفحات الانترنت على RichTextBox
#1
السلام عليكم إخوتى
كيف أقرأ هذه الصفحات التى جلبتها فى الليست بوكس فى أداة RichTextBox بدلا من قرائتها على
اداة الويب براوزر يعنى  أريد قراءة المقالات التى جلبتها داخل الليست بوكس فى الريتش بوكس..
فداخل الليست بوكس روابط لمقالات على موقع اريد قرائتها فى الريتش بوكس



الرد }}}
تم الشكر بواسطة:
#2
اعتذر عن التاخير

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

=اعتذر عن التاخير   جهزته لك من البارحه بس قطع عندي النت ولليوم حتى رجع
https://up.top4top.net/downloadf-12018tgte1-rar.html
هم يسرقون والقانون كتب لنا...

الرد }}}
تم الشكر بواسطة: ابو روضة , elgokr , عمور2016
#3
(16-04-19, 09:31 AM)DK-x كتب :
اعتذر عن التاخير

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

=اعتذر عن التاخير   جهزته لك من البارحه بس قطع عندي النت ولليوم حتى رجع
https://up.top4top.net/downloadf-12018tgte1-rar.html


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

فلو نبذة بسيطة الله يكرمك
الرد }}}
تم الشكر بواسطة: DK-x , elgokr , elgokr
#4
المشروع مجهز لموقع عمرو خالد
انت بس اكتب الرابط واضغط Start
هم يسرقون والقانون كتب لنا...

الرد }}}
تم الشكر بواسطة: ابو روضة , elgokr
#5
(16-04-19, 06:29 PM)DK-x كتب :
المشروع مجهز لموقع عمرو خالد
انت بس اكتب الرابط واضغط Start

شكرا لك أخى لكنه لم يفعل أى شيئ مما اريده

فأنا اريد قراءة المقالات التى جلبتها داخل الليست بوكس فى الريتش بوكس
الرد }}}
تم الشكر بواسطة: elgokr
#6
أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.
الرد }}}
تم الشكر بواسطة:
#7
(09-02-21, 06:25 PM)ابو روضة كتب :
أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.

اذا لم تستطع فقد يكون الموقع مشفر .
هل ممكن رابط الصفحة اجربSmile
الرد }}}
تم الشكر بواسطة: ابو روضة
#8
(09-02-21, 06:43 PM)سعود كتب :
(09-02-21, 06:25 PM)ابو روضة كتب :
أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.

اذا لم تستطع فقد يكون الموقع مشفر .
هل ممكن رابط الصفحة اجربSmile


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

أريد قرائة المقال هذا داخل الريتش بدل ما بقرأه داخل الويب براوزر يعنى استخلاص المقال فقط.
وعموما هى أى صفحة بها مقال مفيد أريد استخلاص المقال النصى منها لآن أوقات المواقع
لا تقبل بالويب براوزر لانه قديم وهذا هو الغرض من الموضوع.
الرد }}}
تم الشكر بواسطة:
#9
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.ObjectAs System.EventArgsHandles 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.ObjectAs System.EventArgsHandles MyBase.Load
        ServicePointManager
.SecurityProtocol SecurityProtocolType.Ssl3
        ServicePointManager
.SecurityProtocol SecurityProtocolType.Tls
        ServicePointManager
.SecurityProtocol DirectCast(3072SecurityProtocolType)
 
   End Sub
End 
Class 
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة
#10
(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.ObjectAs System.EventArgsHandles 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.ObjectAs System.EventArgsHandles MyBase.Load
        ServicePointManager
.SecurityProtocol SecurityProtocolType.Ssl3
        ServicePointManager
.SecurityProtocol SecurityProtocolType.Tls
        ServicePointManager
.SecurityProtocol DirectCast(3072SecurityProtocolType)
 
   End Sub
End 
Class 


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

الرد }}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أستفسار عن قراءة الاسطر altoki939 6 113 27-03-24, 10:07 AM
آخر رد: altoki939
  مشكله فى جهاز قراءة الباركود خالد كامل1 1 351 03-11-23, 06:42 AM
آخر رد: Taha Okla
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
  [سؤال] تشغيل راديو عن طريق الانترنت أبوسعود 5 716 01-07-23, 10:34 PM
آخر رد: asmarsou
  مساعدة في تكرار صفحات الطبع Reportview نيمو 0 397 20-06-23, 09:14 PM
آخر رد: نيمو
  ربط جهازين عن طريق الانترنت (public ip) mom22jo 5 1,968 15-05-23, 12:25 AM
آخر رد: ابو محمد محمد محمد
  تنزيل ملف من موقع علي الانترنت ؟ Abdh111 12 1,282 04-05-23, 07:22 PM
آخر رد: ramy alfoly
  [VB.NET] مشكله في قراءة ملصقات الباركود CoderMM 6 1,808 15-03-23, 06:27 PM
آخر رد: المتألق9
  ازالة كلمة بين الاقواس في Richtextbox Basil Abdallah 4 783 19-09-22, 04:48 PM
آخر رد: Basil Abdallah
  قراءة البريد الالكتروني باستخدام الفيجوال بازيك صبري زينوبي 0 378 24-08-22, 05:47 PM
آخر رد: صبري زينوبي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم