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


فكيف يتم هذا الله يكرمكم
الرد
تم الشكر بواسطة:
#2
بسيطه اخي سااشرحها لك كتابة واذا لم توضح لك الطريقة سااعمل مشروع لتوضيح الفكرة بشكل صحيح


اولاً



انسخ جميع روابط مواضيعك وضعها في مستند txt + في المشروع اضف ازرار على عدد مواضيعك + اضف اداة الويب متصفح



لا سااعمل لك مشروع مفتوح ثواني افضل
الرد
تم الشكر بواسطة: ابو روضة
#3
تفضل عملت لك مشروع مفتوح للفكره مع الاكواد بسيطه

https://www.upload.ee/download/9160206/9...______.zip
الرد
تم الشكر بواسطة: ابو روضة , elgokr , elgokr , ابراهيم ايبو
#4
تسلمو أخوتى ربنا يكرمكم
انا عملت المشروع بعد المحاولات لكن اريده ان يتوقف حينما ينتهى من جميع مواضيعى
لآنه يظل يكرر مرة أخرى وهذا هو المشروع

https://up.top4top.net/downloadf-1040t44111-zip.html

(06-11-18, 09:38 PM)rmnr كتب : فقط لأسهل عليك العملية

هذا الكود يعطيك عدد الصفحات لموضوع ما،
ويعطيك أيضاً رابط كل صفحة
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

   Dim url As String = "http://vb4arb.com/vb/showthread.php?tid=4271"
   Dim wc As New WebClient With {.Encoding = Encoding.UTF8}
   Dim html As String = wc.DownloadString(url)

   Dim pagesCount As Integer = Val(Regex.Match(html, "<span\sclass=""pages"">الصفحات\s\((.+?)\).+?</span>").Groups(1).Value)
   If pagesCount = 0 Then pagesCount = 1

   MsgBox("عدد الصفحات: " & pagesCount)

   For pn = 1 To pagesCount ' لاحظ بدأ بالرقم واحد وليس صفر
       Dim pagelink As String = url & "&page=" & pn
       MsgBox("رابط الصفحة رقم: " & pn & vbNewLine & pagelink)
   Next

End Sub

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

(06-11-18, 09:39 PM)dasktop كتب : تفضل عملت لك مشروع مفتوح للفكره مع الاكواد بسيطه

https://www.upload.ee/download/9160206/9...______.zip

تسلم أخى لكنى اريد تصفحهم شاهد مشروعى لتفهم ماذا اقصد

شكرا لكم إخوتى تم الحل بفضل الله من أفكاركم 
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التعديل علي حلقة تكرارية محمد اسماعيل 4 246 06-02-18, 12:19 PM
آخر رد: محمد اسماعيل
  [VB.NET] عمل outlook macro لفتح ملف pdf hprogrammer 0 208 06-04-17, 03:12 PM
آخر رد: hprogrammer
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 5 1,152 23-12-16, 03:16 PM
آخر رد: silverlight
  [سؤال] اريد كود لفتح رابط في المتصفح الافتراضي bidaya 16 1,325 27-08-16, 08:22 PM
آخر رد: bidaya
  [سؤال] يف اعمل حلقة تكرار للضغط على هذا الزر ابو روضة 12 1,670 22-08-16, 09:09 AM
آخر رد: أبو عمر
  [نقاش] كيفية تدوير الارصدة لفتح سنة مالية جديدة محمود بكرى 2 1,699 25-06-16, 02:49 PM
آخر رد: محمود بكرى
Exclamation [سؤال] طريقة لفتح اغنيه لجميع المستخدمن بنفس الوقت CLARO 7 692 14-05-16, 12:18 AM
آخر رد: سعود
  [VB.NET] كيفية عمل حلقة تكرارية للداتا جريد فيو على الليست فيووالليست بوكس الماجيك مسعد 8 1,362 04-04-16, 09:01 PM
آخر رد: الماجيك مسعد
Lightbulb [نقاش] كيفية عمل حلقة دائمة لا تنتهي الا بامر معين Mohammad Khader 15 1,741 13-03-16, 11:17 AM
آخر رد: hassan
  اخواني بالمنتدى السلام عليكم كيف اقوم بأعطاء قيمة اضافية بداتا جيرد فيو اذا تحقق شرط moh61 0 488 25-09-15, 10:46 PM
آخر رد: moh61

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


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