Sistem Geri Yükleme Notası Oluşturma - VB

ads

ads

Visual basic ile sistem geri yükleme noktası oluşturma programı yapımını göreceğiz:

Gerekli  Araçlarımız:

1 textbox 

1 buton

1 progressbar

Bu araçlarımızı  form 1 e ekliyoruz ve kodlamasını aşağıdaki gibi yapıyoruz.

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

ads