منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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


اولاً



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



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

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

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

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

---