Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Zerstoren

Пользователь


Сообщения: 56
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата Iska:
Вы можете создать url-ярлык, затем открыть его как обычный текстовый файл и тупо дописать две строки, например: »
почему-то иконку через тотал видно, а через проводник белый листок (я свои поставил значения, но разницы нет)

код

PHP код: Выделить весь код

Option Explicit

Const ForAppending 8

Dim strPath2UrlFile

strPath2UrlFile 
"C:\Users\Admin\Desktop\ярлык.url"

With WScript.CreateObject("WScript.Shell").CreateShortcut(strPath2UrlFile)
    .
TargetPath "http://yandex.ru"
    
.Save
    WScript
.Echo .FullName
End With

With WScript
.CreateObject("Scripting.FileSystemObject").OpenTextFile(strPath2UrlFileForAppending)
    .
WriteLine "IconFile=C:\Windows\system32\SHELL32.dll"
    
.WriteLine "IconIndex=27"
    
.WriteLine "HotKey=0"
End With

WScript
.Quit 0 



содержание url через блокнот

[{000214A0-0000-0000-C000-000000000046}]
Prop3=19,2
[InternetShortcut]
URL=http://yandex.ru
IDList=
IconFile=C:\Windows\system32\SHELL32.dll
IconIndex=27
HotKey=0

Последний раз редактировалось Zerstoren, 27-05-2017 в 19:32. Причина: дописал


Отправлено: 19:22, 27-05-2017 | #4