[ابو روضة]

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

اريد وضع صفحتى الشخصية الخاصة بالمنتدى هنا التى يوجد بها جميع مواضيعى

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

فكيف يتم هذا الله يكرمكم

[dasktop]

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


اولاً



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



لا سااعمل لك مشروع مفتوح ثواني افضل

[dasktop]

تفضل عملت لك مشروع مفتوح للفكره مع الاكواد بسيطه

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

[ابو روضة]

تسلمو أخوتى ربنا يكرمكم
انا عملت المشروع بعد المحاولات لكن اريده ان يتوقف حينما ينتهى من جميع مواضيعى
لآنه يظل يكرر مرة أخرى وهذا هو المشروع

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

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

---

شكرا لكم إخوتى تم الحل بفضل الله من أفكاركم