تحميل المواضيع والمرفقات وتعديل رابط المرفق بالموضوع
هل يمكن عمل ذلك بمسار واحد
يعني يبدا بالمواضيع وقبل الانتقال لموضوع تالي يفحص هل يوجد مرفق ام لا
وقد كتب الاخ ابورائد كود:
وهو يعمل بمثال مستقل لكن لما اضفته للمثال اللي عندي استغربت ماحدث!!!
طيب اخواني الان اعمل على دمج النوعين نسخ الصفحات وتحميل المرفقات لكن اريد فهم السطور التالية:
ياليت شرح مفصل لها
هل يمكن عمل ذلك بمسار واحد
يعني يبدا بالمواضيع وقبل الانتقال لموضوع تالي يفحص هل يوجد مرفق ام لا
وقد كتب الاخ ابورائد كود:
كود :
Dim htmlString = WebBrowser1.DocumentText
Dim i1 As Integer = htmlString.IndexOf("attachment.php?aid=")
Dim attachmentURL As String = "http://vb4arb.com/vb/" & htmlString.Substring(i1, htmlString.IndexOf("""", i1) - i1)
i1 = htmlString.IndexOf(">", i1) + 1
Dim i2 As Integer = htmlString.IndexOf("<", i1)
Dim attachmentFilename As String = htmlString.Substring(i1, i2 - i1)
' MsgBox(attachmentURL)
MsgBox(attachmentFilename)وهو يعمل بمثال مستقل لكن لما اضفته للمثال اللي عندي استغربت ماحدث!!!
طيب اخواني الان اعمل على دمج النوعين نسخ الصفحات وتحميل المرفقات لكن اريد فهم السطور التالية:
كود :
Dim FileName As String = Res.Headers("Content-Disposition")
If InStr(FileName, "filename") Then FileName = Strings.Right(FileName, FileName.Length - InStr(FileName, "=")) Else FileName = ""
FileName = Replace(FileName, """", "")ياليت شرح مفصل لها
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
