[sooriaty03]

السلام عليكم ورحمة الله وبركاته

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

هذا كود المرفقات

كود :

<a href="[align=left]attachment.php?aid=304[/align]" target="_blank">SaveAttachment.zip</a>

نأتي لصيغة الـ Regex

كود :

attachment\.php\?aid=[0-9]{1,}" target="_blank">

ثانيا بعد وضع قاعدة Regex ، نقوم بعمل حلقة تكرارية للبحث في كامل الكود بالكود التالي

كود :

Dim Reg As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("attachment\.php\?aid=[0-9]{1,}"" target=""_blank"">")
For Each Reg0 As System.Text.RegularExpressions.Match In Reg.Matches(html)
'
'
'
'
Next

ثالثا/ داخل الحلقة التكرارية نقوم باستخلاص الروابط - إن وجدت - طبعا نحن لا يهمنا إلا النص التالي

كود :

attachment.php?aid=304

وطريقة استخلاصه تكون بهذا الكود

كود :

Dim AttachLink As String = html.Substring(Reg0.Index, Reg0.Length).Split("""")(0)

الآن نقوم بتحميل المرفق بعد إضافة إليه النص http://vb4arb.com/vb/

وأخيرا نأتي إلى استبدال الرابط داخل صفحة الانترنت برابط المرفق على الجهاز
على فرض أننا قمنا بتسمية المرفق s.zip فنكتب

كود :

html = html.Replace(AttachLink, "s.zip")

فيصبح الكود النهائي

كود :

Dim Reg As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("attachment\.php\?aid=[0-9]{1,}"" target=""_blank"">")
        For Each Reg0 As System.Text.RegularExpressions.Match In Reg.Matches(html)
            Dim AttachLink As String = html.Substring(Reg0.Index, Reg0.Length).Split("""")(0)
            'تنزيل المرفق
            AttachDownload(AttachLink)
            html = html.Replace(AttachLink, "s.zip")
        Next