� Back

� WWW.SPYROZONE.TK �

 

[087]. Membuat Shortcut URL Dengan Visual Basic

    

  

------------------------------------------------------

Author  : SPYRO KiD

Contact : spyro_zone@Yahoo.COM ==> www.spyrozone.tk

CopyLEFT (c) 2006 www.spyrozone.tk All Rights Reserved

� 15/09/2005  18:30:36 WIB

------------------------------------------------------

 

//---------- 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.tk Pelajari sendiri yach.. kalo ada pertanyaan lansung ajah ke Spyro_Zone@Yahoo.com 

   
       
//------- 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.tk"
Links.Save
Shell.Run("spyro.URL")
End if
   

//------- Penutup --------//

       
Gitu aja dech... :P

   

/* ------------------------------|EOF|------------------------------ */

 

   � Back

� WWW.SPYROZONE.TK �