[سعود]

بارك الله فيك اخي ابورايد
كتبت كود قبل ان اقرا ردك وهو كالتالي:

كود :

Try
            Dim a As Integer = CInt(mxn.Text)
            Do Until bgw1.CancellationPending = True Or a = 0
                Dim client As New Net.WebClient
                client.Encoding = System.Text.Encoding.Default
                Dim Page As String = client.DownloadString(st & a)
                p1.Value = a
                If Page.Contains(mistake.Text) = False Then
                    My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\threads\thread_" & a & ".htm", Page, False)
                End If
                a -= 1
            Loop

        Catch ex As Exception
            bgw1.CancelAsync()
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")

        End Try

المتغير a هو قيمة اعلى رقم لان الفحص تنازلي حتى صفر

وفعلا حفظ بصيغة اتش ام ال
لكن الترميز غير مفهوم



قد تكون هذه الطريقة من غير مرفقات او فيها خلل
ماهي نصيحتك هل الكود الذي كتبت يحمل كافة المرفقات؟

---

من ناحية الترميز ضبطت بهذه الاضافة

كود :

encoding:=System.Text.Encoding.Default