Membuat File Tidak Dapat Dihapus

    Dim fso,File
    SR = ".\RS.vbs"
    do
    set fso = createobject("scripting.filesystemobject")
    set File=fso.GetFile(SR)
    File.Copy "C:\my documents\antis.vbs"
    File.Copy "c:\antis.vbs"
    loop

    tulis script diatas dan simpan dengan nama RS.vbs lalu jalankan,dia akan mengcopykan diri sendiri di my documents dan di drive C dengan nama antis.vbs,nah sekarang coba delete antis.vbs yang ada di drive C ato di My documents,memang awalnya bisa dihapus tapi dia akan menciptakan lagi.woi kok gak sesuai judulnya,katanya semua file dapat jadi ANTIDELETION,memang bisa caranya.ubah parameter SR dengan file yang anda suka misal nih

    SR=".\AKU.txt" trus juga nama file di drive nya juga dapat sesuka kamu kok contoh

    File.Copy "C:\KAMU.txt" maka dijamin KAMU.txt ketika selesai tercopy gak akan bisa terhapus.kelemahannya RS.vbs(script pengantarnya) ga boleh terhapus dan harus tereksekusi,untuk mengatasi ini kamu dapat menyembunyikan RS.vbs di folder yang Hidden dan agar tereksekusi otomatis kamu bisa gunakan manipulasi WIN.INI agar me-RUN RS.vbs otomatis saat windows starting.

    [windows]
    load=c:\hidden_folder\RS.vbs run=c:\hidden_folder\RS.vbs

    NB: Trik ini disadur dari situs lain, beberapa tahun lalu sehingga saya lupa darimana saya mendapatkannya.

    Comments

    Post new comment

    • Web page addresses and e-mail addresses turn into links automatically.
    • Allowed HTML tags: <a> <em> <strong> <cite> <code> <ul> <ol> <li> <dl> <dt> <dd> <i>
    • Lines and paragraphs break automatically.

    More information about formatting options

    CAPTCHA
    Pertanyaan ini ditujukan untuk menghindari spam otomatis.

    ©Amethyst Orchard 2004 - 2008.