Dim wsh As Object
Dim Shortcut As Object
سپس بایستی شی wsh را ایجاد نمائید :
Set wsh = CreateObject("wscript.shell")
سپس بایستی شی Shortcut را ایجاد نمائید :
Set Shortcut = wsh.CreateShortcut("c:YourProgram.lnk")
مسیری که در کد فوق داده شده محل ساخت شورتکات می باشد .
سپس بایستی پارامترهای شی Shortcut را تنظیم کنید :
Shortcut.TargetPath = "C:Program FilesTestYourProgram.exe"
Shortcut.IconLocation = "C:Program FilesTestYourIcon.ico"
Shortcut.WorkingDirectory = "C:Program FilesTest"
Shortcut.Description = "Your Description"
پارامتر TargetPath برنامه مرتبط با شورتکات را نشان می دهد .
در پایان بایستی شورتکات را ذخیره کنید :
Shortcut.Save
نکته : برای ایجاد شورتکات در دسکتاپ یا در Startup ، بایستی متغیری از نوع SpecialForders ایجاد نمائید :
Dim sf As Object
Set sf = wsh.SpecialFolders
سپس محل ساخت شورتکات را بصورت sf("AllUsersDesktop") & YourPath و یا sf("AllUsersStartup") & YourPath بدهید .
منبع
http://sheidaian.persianblog.com
سلام .
مرسی از اینکه بهم سر زدید . خسته نباشید.
:) سلام. با تبادل لینک موافقم ;) راستش من دنبال یه هکر میگردم که بتونه یه سایت رو هک کنه... سایت متعلق به چند نفر فرانسویه. اگه کسه رو می‌شناسی که واقعا می‌تونه سایت رو هک کنه، ممنون میشم بهب معرفی کنی. موفق باشی عزیز :)