إقتباس :بعد ذلك قم بتنزيل الملحق Tamper Data

(11-10-13, 05:17 PM)سعود كتب : خلاص اخواني فهمت الطريقة لكن فيه غموض وهو المثال الي حملت كان فيه تكرار للسطر

كود :

Req.Headers.Add("cookie", "mybb[lastvisit]=1381408914; mybb[lastactive]=1381409606; loginattempts=1; mybb[announcements]=0; mybbuser=محذوف; sid=محذوف")

وهنا

كود :

client.Headers.Add("cookie", "mybb[lastvisit]=1381408914; mybb[lastactive]=1381409606; loginattempts=1; mybb[announcements]=0; mybbuser=محذوف; sid=محذوف")

---

يعني مهو لازم تحميل الاداة المذكورة هنا:

إقتباس :بعد ذلك قم بتنزيل الملحق Tamper Data

(11-10-13, 06:56 PM)سعود كتب : تحميل المواضيع والمرفقات وتعديل رابط المرفق بالموضوع
هل يمكن عمل ذلك بمسار واحد

يعني يبدا بالمواضيع وقبل الانتقال لموضوع تالي يفحص هل يوجد مرفق ام لا
وقد كتب الاخ ابورائد كود:

كود :

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, """", "")

ياليت شرح مفصل لها