تقييم الموضوع :
  • 3 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] [محدث-7-1-1435هـ]الناسخ الديناميكي للصفحات الاولى للمواضيع مع مرفقاتها
#1
Heart 
















هذه النسخة التي اسميتها الـ Master مع مافيها من النواقص والاخطاء.
لكن ان شاء الله ان تكون خالصة لوجهه

ارجو ان يجد احد فائدة من هذا المثال كما ارجو من يجد اخطاء يسهل عليه اصلاحها ان يصلحها ويعيد رفعها للفائدة العامة.
للاسف لم اتمكن من نسخ صور الجيل الثالث لكن المرفقات بسيطة وهي شبيهة الى حد ما لمرفقات النسخة Mybb على كل حال احاول تطبيق مشروع اخر باستخدام اداة المستعرض لانها توفر جهد ووقت كبيرين.
وشكرا جزيلا لوقتكم

















Master_Forum_Burner_By_Saud_1434_AH.zip


اشكر جميع الاخوة الذي ساعدوني باي معلومة.
================================================
التحديث رقم 1
تم حل مشكلة عدم ربط الصفحات بالاستايل المحلي بعد تحميله
افتح فورم Mybb_Forum.vb وضمن الحدث bgw1_DoWork اضف بعد
إقتباس :'انتهاء خيار تحميل المرفقات
وقبل
إقتباس : lbl.Text = "تجهيز محتوى الصفحة للحفظ"


الكود التالي
كود :
''تحميل ملفات السكريبت  والستايل
            lbl.Text = "تحميل ملفات السكريبت والستايل انتظر"
            Dim mytextbox As New TextBox
            With mytextbox
                .Text = page
                .Multiline = True
                .WordWrap = False
                .ScrollBars = ScrollBars.Both
            End With

            Dim textbox3 As New TextBox
            With textbox3
                .Multiline = True
                .WordWrap = False
                .ScrollBars = ScrollBars.Both
            End With





            For Each line In mytextbox.Lines
                Dim wc As New Net.WebClient
                wc.Encoding = Encoding.Default


                '<script type="text/javascript" src="http://vb4arb.com/vb/jscripts/prototype.js?ver=1603"></script>
                Dim stregjs As String = "(<script type=.text/javascript. src=.)(.*\.js)"
                Dim reg As New Regex(stregjs)
                Dim ama As Match = reg.Match(line)
                ' Dim fn As String = "http://vb4arb.com/vb/"
                Dim fn As String = mybb_forum_furl
                lbl.Text = "تحميل ملفات السكريبت"
                If ama.Success Then
                    If ama.Groups(2).Value.ToString.StartsWith("http://") = False Then
                        textbox3.AppendText(fn & ama.Groups(2).Value & vbNewLine)
                        ' MsgBox(fn & ama.Groups(2).Value & vbNewLine & IO.Path.GetFileName(ama.Groups(2).Value))

                        If IO.File.Exists(mybb_forum_lbldir & "\vb\" & IO.Path.GetFileName(ama.Groups(2).Value)) = False Then
                            wc.DownloadFile(fn & ama.Groups(2).Value, mybb_forum_lbldir & "vb/" & IO.Path.GetFileName(ama.Groups(2).Value))

                        End If


                    Else
                        textbox3.AppendText(ama.Groups(2).Value & vbNewLine)
                        ' MsgBox(ama.Groups(2).Value & vbNewLine & IO.Path.GetFileName(ama.Groups(2).Value))

                        If IO.File.Exists(mybb_forum_lbldir & "\vb\" & IO.Path.GetFileName(ama.Groups(2).Value)) = False Then
                            wc.DownloadFile(ama.Groups(2).Value, mybb_forum_lbldir & "vb/" & IO.Path.GetFileName(ama.Groups(2).Value))

                        End If





                    End If
                    ' line = line.Replace(ama.Groups(2).Value, "vb/" & IO.Path.GetFileName(ama.Groups(2).Value))
                    mytextbox.Text = mytextbox.Text.Replace(ama.Groups(2).Value, "vb/" & IO.Path.GetFileName(ama.Groups(2).Value))



                End If



                '<link type="text/css" rel="stylesheet" href="http://vb4arb.com/vb/cache/themes/theme5/css3.css" />
                Dim stregcss As String = "(<link type=.text/css. rel=.stylesheet. href=.)(.*\.css)"
                Dim regcss As New Regex(stregcss)
                Dim amacss As Match = regcss.Match(line)
                lbl.Text = "تحميل ملفات الستايل"
                If amacss.Success Then
                    textbox3.AppendText(amacss.Groups(2).Value & vbNewLine)
                    'MsgBox(amacss.Groups(2).Value & vbNewLine & IO.Path.GetFileName(amacss.Groups(2).Value.ToString.Trim))

                    ' line = line.Replace(amacss.Groups(2).Value, "vb/" & IO.Path.GetFileName(amacss.Groups(2).Value))
                    mytextbox.Text = mytextbox.Text.Replace(amacss.Groups(2).Value, "vb/" & IO.Path.GetFileName(amacss.Groups(2).Value))



                    If IO.File.Exists(mybb_forum_lbldir & "\vb\" & IO.Path.GetFileName(amacss.Groups(2).Value)) = False Then
                        wc.DownloadFile(amacss.Groups(2).Value, mybb_forum_lbldir & "vb/" & IO.Path.GetFileName(amacss.Groups(2).Value))

                    End If


                End If


            Next






            'انتهاء تحميل ملفات السكريبت والستايل
ايضا لاتنسى اضافة كود اضافة مجلد vb ليكون مكان ملفات الستايل والسكريبتات
ثم استبدل كلمة page بـ mytextbox في كود حفظ محتوى الصفحة
كود :
IO.File.WriteAllText(mybb_forum_lbldir & Val(mybb_forum_last_thread_number).ToString("00000") & "_.htm", mytextbox.Text, Encoding.Default)
فيه اضافات لم اجرب الاستغناء عنها مثل textbox3
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
#2
السلام عليكم ورحمة الله وبركاته


ما شاء الله لا قوة إلا بالله

أسأل الله أن يزيدك من فضله




السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة: ali.alfoly , سعود
#3
السلام عليكم ورحمة الله

ما شاء الله عليك اخى سعود

جزاك الله خيرا حاجة مفيدة

وشغل متعوب عليه

ربنا يجعلها صدقة جارية لك
الرد }}}}
تم الشكر بواسطة: سعود
#4
(28-10-13, 02:40 AM)@@أبورائد@@ كتب : السلام عليكم ورحمة الله وبركاته


ما شاء الله لا قوة إلا بالله

أسأل الله أن يزيدك من فضله




السلام عليكم ورحمة الله وبركاته
اللهم امين واياك اخي الكريم .
(28-10-13, 03:20 AM)ali.alfoly كتب : السلام عليكم ورحمة الله

ما شاء الله عليك اخى سعود

جزاك الله خيرا حاجة مفيدة

وشغل متعوب عليه

ربنا يجعلها صدقة جارية لك

اللهم امين واياك اخي الكريم
-------------------------------------
ارجو ان اتم المشروع الاخر فانه ايضا لو تحقق ساعتبره الحل.
http://vb4arb.com/vb/showthread.php?tid=729
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
المشروع التالي مكمل لهذا لمشروع
http://vb4arb.com/vb/showthread.php?tid=747

طبعا لو حبيت تشوف اخر مواضيع وتريد تحميلها فقط فانت مخير بين امرين:
الامر الاول تنقر خيار التحقق.
الاخر تكتب رقم اخر موضوع سابق في خانة اقدم موضوع
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته

ما شاء الله لا قوة إلا بالله
بارك الله فيك أخي سعود

مشروع جميل جدا ومتميز بحق
ويضاف إلى قائمة إبداعاتك

شكرا جزيلا لك
الرد }}}}
تم الشكر بواسطة: سعود
#7
تم تحديث المثال والتحديث مذكور في المشاركة تحت الخط الاحمر
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: sooriaty03
#8
رجاء قم بالتعديل على مشروعك و ارفقه لنا كامل لأنني لا أتعامل مع .net و أود إستعمال برنامجك و شكرا لك أخي سعود
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة:
#9
إقتباس :لأنني لا أتعامل مع .net
اذا لن تستفيد من المشروع!
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#10
سأستفيد منه
أنا مجرد مبتدئ بهذه اللغة و سأحاول التعلم منه
هلا قلت لي ما دور البرنامج ؟ هل يقوم بنسخ المواضيع في حاسوبي أم ينقلها من منتدى vb4 الى vb أم مذا ؟
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [مشروع] مثال بسيط للبحث بتويتر عن كلمة او جملة (محدث تم اعتماد نوعين من الروابط) سعود 1 410 28-07-16, 04:44 AM
آخر رد: الماجيك مسعد
  [مشروع] ارجو التعديل على مشروع متصفح بسيط جدا(محدث * جاهز) سعود 3 254 30-06-16, 06:13 AM
آخر رد: سعود
  [مثال] (محدث) اداة كمبو بوكس دول العالم بمميزات رائعة ali.alfoly 15 4,690 03-06-16, 08:51 PM
آخر رد: محمد سالم المحترف
  [مشروع] الناسخ للمنتدى تحميل المثال سعود 6 1,272 28-06-15, 08:43 PM
آخر رد: kamikaz17
  [مشروع] الناسخ الديناميكي مطور ومحدث .. تفضل بمشاهدة الفيديو سعود 9 1,104 22-04-14, 07:46 AM
آخر رد: سعود
  [مشروع] مثال بسيط تكملة لمشروع الناسخ الديناميكي سعود 2 1,158 05-11-13, 01:56 PM
آخر رد: sooriaty03

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


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