Visual Basic Sistem Geri Yükleme Noktası Oluşturma

[beyic_baris]

Visual Basic ile nasıl sistem geri yükleme noktası oluşturacağımızı öğreneceğiz.

Forma 1 Textbox - 1 button - 1 progressbar ekliyoruz ve kodlamaya geçiyoruz...

Dim restPoint = GetObject("winmgmts:.rootdefault:Systemrestore")
        If restPoint IsNot Nothing Then

        End If
        Dim dl As String = TextBox1.Text
        ProgressBar1.Visible = True
        If restPoint.CreateRestorePoint(dl, 0, 100) = 0 Then

            MessageBox.Show("İşlem Tamamlandı!", "Tamam", MessageBoxButtons.OK, MessageBoxIcon.Information)

            ProgressBar1.Visible = False
        Else
            MessageBox.Show("İşlem Hatalı!", "Hata", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

end if

Alıntıdır.