[سعود]

وجدت كود يحفظ الصفحة بكاملها الا ان المرفق بصفحة مستقلة لذلك لم يحفظها
الكود التالي يتطلب مصدرين:

microsoft activex data object liberary
microsoft cdo for windows 2000 liberary

ثم الاستدعاءات

كود :

Imports ADODB
Imports CDO

ثم الروتين التالي

كود :

Public Sub SavePage(ByVal Url As String, ByVal FilePath As String)
        Dim iMessage As CDO.Message = New CDO.Message
        iMessage.CreateMHTMLBody(Url, _
        CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")
        Dim adodbstream As ADODB.Stream = New ADODB.Stream
        adodbstream.Type = ADODB.StreamTypeEnum.adTypeText
        adodbstream.Charset = "US-ASCII"
        adodbstream.Open()
        iMessage.DataSource.SaveToObject(adodbstream, "_Stream")
        adodbstream.SaveToFile(FilePath, _
                  ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
    End Sub

---

نسيت اقول ان الصيغة التي يحفظ بها هي mht

---

كود :

Dim a() As Byte = client.DownloadData("http://vb4arb.com/vb/attachment.php?aid=298")
IO.File.WriteAllBytes("a.zip", a)

جربت الكود هذا لكن باستخدام My.Computer.FileSystem.WriteAllBytes

لكن حين احاول فتح الملف المضغوط بيقول خطا!!
كيف نعرف الامتداد الحقيقي للمرفق؟