Skip to content

contoh vb script untuk membuat shortcut

April 29, 2009

set WshShell = WScript.CreateObject(“WScript.Shell”)
strDesktop = WshShell.SpecialFolders(“Desktop”)
set oShellLink = WshShell.createShortcut(strDesktop &”\Dik Regedit.lnk”)
oShellLink.TargetPath = “C:\Windows\regedit.exe”
oShellLink.WindowStyle = 1
oShellLink.Hotkey = “CTRL+SHIFT+F”
oShellLink.IconLocation = “C:\Windows\regedit.exe, 0”
oShellLink.Description = “Shortcut Script”
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save

From → VB 6 Programming

2 Comments
  1. Simpan dengan extensi ‘vbs’..

  2. Anonymous permalink

    Hi Iam Prabhu from chennai,joined today in this forum…🙂

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: