FreeBasic
Главная
Вход
Регистрация
Среда, 16.10.2024, 06:54Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Установка ярлыка на рабочий стол с помощью vbs скрипта
haavДата: Понедельник, 03.12.2012, 07:47 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1366
Репутация: 49
Статус: Offline
Установка ярлыка на рабочий стол с помощью vbs скрипта


Code

#Include "windows.bi"
#include "win\shlobj.bi"
#Include "win\imagehlp.bi"

Dim As ZString*512 path
Dim As String _
program = "Notepad.exe", _
label = "Notepad.lnk"
Dim As  LPITEMIDLIST lpci
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,@lpci)
SHGetPathFromIDList(lpci,@path)
Open Path+"\temp.vbs" For Output As #1
If Err>0 Then
  MessageBox(0,"Ошибка не могу создать файл скрипта","ERROR",MB_ICONERROR)
Else
  Print #1, !"Set oWS = WScript.CreateObject(\"WScript.Shell\")"
  Print #1, !"sLinkFile = \"" & path & "\" & label & """"
  Print #1, "Set oLink = oWS.CreateShortcut(sLinkFile)"
  Print #1, "oLink.TargetPath = " & """" & program & """"
  Print #1, "oLink.Save"
  Close #1
  shell("WScript.exe" " "+path+"\temp.vbs")
  Kill(Path+"\temp.vbs")
EndIf


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
  • Страница 1 из 1
  • 1
Поиск: