[sooriaty03]

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

تفضل أخي
هذا كود الدالة

كود :

Private Function AttachDownload(ByVal URL As String) As String
        Try
re:
            URL = "http://vb4arb.com/vb/" & URL
            'بدء اتصال جديد
            Dim Req As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
            Dim Res As Net.HttpWebResponse
            'محتوى الكوكيز
            Req.Headers.Add("cookie", "محتوى الكوكيز")
            Res = Req.GetResponse

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

            Res.Close()

            If Not FileName = Nothing AndAlso FileName.Trim <> "" Then
                'هذه الخطوة لفك ترميز اللغة
                Dim b() As Byte = (From C As Char In FileName.ToCharArray Select CByte(AscW(C))).ToArray
                FileName = System.Text.Encoding.UTF8.GetString(b)

                Dim client As New Net.WebClient
                client.Encoding = System.Text.Encoding.Default
                client.Headers.Add("cookie", "محتوى الكوكيز")

                client.DownloadFile(URL, "files\" & FileName)
                Return FileName
            Else
                'My.Computer.FileSystem.WriteAllText("log.txt", "File " & Id & " Not Found" & vbNewLine, True)
            End If
        Catch ex As Exception
            If ex.ToString.ToLower.Contains("not found") Then

            Else
                GoTo re
            End If
            MsgBox(ex.Message)
        End Try
        Return ""
End Function

وعدل الكود في المشاركة السابقة ليصبح على الشكل التالي

كود :

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)
            html = html.Replace(AttachLink, AttachDownload(AttachLink))
        Next

بالتوفيق