Membuat Shortcut URL Dengan Visual Basic


  • SPYRO KiD
  • admin[~@t~]spyrozone[~d.t~]net
  • Thursday, September 15th, 2005
  • CopyLEFT (c) 2011++ www.spyrozone.net All Rights Reserved


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 Message Box 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\at\spyrozone.net

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

Gitu aja dech… :-P


//E.O.F