المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
15-04-19, 10:19 PM
(آخر تعديل لهذه المشاركة : 17-04-19, 03:07 AM {2} بواسطة ابو روضة.)
السلام عليكم إخوتى
كيف أقرأ هذه الصفحات التى جلبتها فى الليست بوكس فى أداة RichTextBox بدلا من قرائتها على
اداة الويب براوزر يعنى أريد قراءة المقالات التى جلبتها داخل الليست بوكس فى الريتش بوكس..
فداخل الليست بوكس روابط لمقالات على موقع اريد قرائتها فى الريتش بوكس
المشاركات : 141
المواضيع 47
الإنتساب : Jul 2018
السمعة :
25
الشكر: 195
تم شكره 207 مرات في 96 مشاركات
16-04-19, 09:31 AM
(آخر تعديل لهذه المشاركة : 16-04-19, 09:39 AM {2} بواسطة DK-x.)
اعتذر عن التاخير
جهزته لك من البارحه بس قطع عندي النت ولليوم حتى رجع
=اعتذر عن التاخير جهزته لك من البارحه بس قطع عندي النت ولليوم حتى رجع
https://up.top4top.net/downloadf-12018tgte1-rar.html
هم يسرقون والقانون كتب لنا...
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
16-04-19, 02:04 PM
(آخر تعديل لهذه المشاركة : 09-02-21, 04:53 PM {2} بواسطة ابو روضة.)
(16-04-19, 09:31 AM)DK-x كتب : اعتذر عن التاخير
جهزته لك من البارحه بس قطع عندي النت ولليوم حتى رجع
=اعتذر عن التاخير جهزته لك من البارحه بس قطع عندي النت ولليوم حتى رجع
https://up.top4top.net/downloadf-12018tgte1-rar.html
تسلم أخى ربنا يكرمك ويبار فيك لكن لم أعرف طريقة تشغيله أو كيف يتم التعامل معه
فلو نبذة بسيطة الله يكرمك
المشاركات : 141
المواضيع 47
الإنتساب : Jul 2018
السمعة :
25
الشكر: 195
تم شكره 207 مرات في 96 مشاركات
المشروع مجهز لموقع عمرو خالد
انت بس اكتب الرابط واضغط Start
هم يسرقون والقانون كتب لنا...
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
16-04-19, 06:55 PM
(آخر تعديل لهذه المشاركة : 17-04-19, 03:05 AM {2} بواسطة ابو روضة.)
(16-04-19, 06:29 PM)DK-x كتب : المشروع مجهز لموقع عمرو خالد
انت بس اكتب الرابط واضغط Start
شكرا لك أخى لكنه لم يفعل أى شيئ مما اريده
فأنا اريد قراءة المقالات التى جلبتها داخل الليست بوكس فى الريتش بوكس
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
(09-02-21, 06:25 PM)ابو روضة كتب : أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.
اذا لم تستطع فقد يكون الموقع مشفر .
هل ممكن رابط الصفحة اجرب
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
09-02-21, 08:20 PM
(آخر تعديل لهذه المشاركة : 09-02-21, 08:22 PM {2} بواسطة ابو روضة.)
(09-02-21, 06:43 PM)سعود كتب : (09-02-21, 06:25 PM)ابو روضة كتب : أتمنى فعلا إيجاد حل لهذا الموضوع لآنى نسيتو واحتجته اليوم.
اذا لم تستطع فقد يكون الموقع مشفر .
هل ممكن رابط الصفحة اجرب
أتفضل أخى سعود ربنا يكرمك...
أريد قرائة المقال هذا داخل الريتش بدل ما بقرأه داخل الويب براوزر يعنى استخلاص المقال فقط.
وعموما هى أى صفحة بها مقال مفيد أريد استخلاص المقال النصى منها لآن أوقات المواقع
لا تقبل بالويب براوزر لانه قديم وهذا هو الغرض من الموضوع.
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
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
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
(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
يا سلام عليك أخى سعود " رجل المواقف الصعبة حقاً "
بس مش عارف ليه ظهرت لى هكذا ؟
|