Σημείο επαναφοράς

0
inShare

0

Αφού κάνουμε μια σημαντική αλλαγή στον υπολογιστή μας, μετά από πολύ κόπο, θα θέλαμε να δημιουργήσουμε ένα σημείο επαναφοράς για να μην χαθεί η αλλαγή μας.
Στο παρακάτω βίντεο θα δούμε πως μπορούμε με μια μικρή εφαρμογή να δημιουργούμε σημεία επαναφοράς όποτε και όσα θέλουμε. Ο κώδικας του αρχείου που χρησιμοποιούμε είναι αυτός:
[blockquote]
If WScript.Arguments.Count = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else
GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint InputBox("Εισάγετε μια περιγραφή για το σημείο που θα ορίσετε επαναφορά συστήματος","Δημιουργία σημείου επαναφοράς συστήματος  - pcsteps.gr"), 0, 100
End If

[/blockquote]
Η εφαρμογή υπάρχει και έτοιμη για λήψη από εδώ

{rokbox title=|Δημιουργία σημείου επαναφοράς συστήματος :: Δημιουργήστε σημείο επαναφοράς συστήματος με ένα κλικ | thumb=|images/stories/tutorials/watch_video_web.png| size=|960 600| album=|demo|}http://www.youtube.com/watch?v=3ShWF2XPYJg{/rokbox}