Как создать ярлык для URL?
Select messages from
# through # FAQ
[/[Print]\]
Goto page 1, 2, 3, 4  Next  :| |:
Total Commander -> Автоматизация Total Commander

#1: Как создать ярлык для URL? Author: selevo PostPosted: Tue Aug 02, 2016 21:35
    —
Как создать URL?

Файл появляется если адресную строку в браузере перетянуть в тотал командер.
Долго это, перетаскивание...

http://cs636425.vk.me/v636425765/19958/7QSx3iyVe5Y.jpg


Хотелось бы по кнопке и вставке ссылки.

#2:  Author: FlasherLocation: Москва PostPosted: Wed Aug 03, 2016 07:16
    —
Почему в Общих? Для этого есть свой подфорум.

Вот такая кнопка у меня создаёт пустой URL:
Code:
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\nircmd\nircmd.exe urlshortcut "~$clipboard$" .
?Введите базовое имя URL-файла
shell32.dll,263
Создать URL по адресу из буфера обмена
Похоже на баг NirCmd, но советую проверить. Если не пройдёт, покажу скрипт с именованием по заголовку (хотя с определением будет тоже не шибко быстро).

#3:  Author: MVVLocation: Ростов-Дон PostPosted: Wed Aug 03, 2016 12:42
    —
Давайте называть вещи своими именами. Не URL, а ярлык для URL. Создать URL - это вообще из другой области науки и техники. А URL-файлы - это банальные INI-файлы, которые можно создать хоть батником, если не заморачиваться с путём к иконке.

#4:  Author: FlasherLocation: Москва PostPosted: Wed Aug 03, 2016 13:28
    —
К "Создать TXT" тоже претензии типа "txt - это расширение текстового файла" ?
"Создать url" - не тоже самое, что "Cформировать url", это разные категории контекста.

#5:  Author: MVVLocation: Ростов-Дон PostPosted: Wed Aug 03, 2016 18:19
    —
В случае с TXT путаницы меньше, т.к. TXT само по себе означает преимущественно текстовый файл (хотя я бы и тут писал подробнее или хотя бы с точкой спереди). А в случае URL я из названия темы совершенно не понял, о чём она.

#6:  Author: FlasherLocation: Москва PostPosted: Wed Aug 03, 2016 18:25
    —
MVV
Я не про название темы, а про подсказку в кнопке.
К URL, кстати, тоже точку можно добавить.

#7:  Author: MVVLocation: Ростов-Дон PostPosted: Wed Aug 03, 2016 18:32
    —
А я вообще про всю тему, начиная с её заголовка. То, что точку можно добавить, ясности не добавляет.

#8:  Author: FlasherLocation: Москва PostPosted: Wed Aug 03, 2016 18:46
    —
В общем, тут каждый останется при своём.
Я иначе не понял бы, что ещё на нашем форуме может подразумеваться кроме файла. Уж точно не авторегистрация домена с получением URL.

Заголовок исправят - и ладно, против никто не будет. Но и поднимать бучу из-за такой мелочи смысла не было.

#9:  Author: AvadaLocation: Россия, Саратов PostPosted: Wed Aug 03, 2016 20:38
    —
Flasher wrote:
Похоже на баг NirCmd, но советую проверить.

Проверял. Вышеприведенная кнопка действительно создаёт неработоспособный "ярлык" для URL нулевой длины.

Тема перенесена а "Автоматизацию", ссылки и заголовок приведены во вменяемое состояние.

#10:  Author: FlasherLocation: Москва PostPosted: Thu Aug 04, 2016 10:10
    —
Avada
Хорошо. Тогда выкладываю:
Code:
'============================== VBS ===============================
' Cоздать URL-ярлык в активном каталоге со ссылкой из буфера обмена
' Условие: поле "Путь запуска:" должно быть пустым
'==================================================================
Dim WSH : Set WSH = CreateObject("WScript.Shell")
R = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
On Error Resume Next
A = WSH.RegRead(R): If A > 0 Or Err.Number <> 0 Then WSH.RegWrite R, 0, "REG_DWORD"
URL = Trim(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"))
If A > 0 Then WSH.RegWrite R, A, "REG_DWORD"
On Error Goto 0 : Test = Left(URL, 4)
If Test = "" Or (Test <> "www." And Test <> "http") Then MsgBox "Буфер " &_
"обмена не содержит гиперссылки!", 4144, " Создание URL-ярлыка" : WScript.Quit
R = Array("''","-"," -",",","_","_","_")
S = Array("""","|", ":",";","\","/","?")
With WScript.CreateObject("InternetExplorer.Application", "IE_")
  .Visible = 0 : .Silent = 1 : .AddressBar = 0
  .MenuBar = 0 : .ToolBar = 0 : .StatusBar = 0 : .Navigate(URL)
  While IsEmpty(Title) Or Left(Title, 4) = "http" WScript.Sleep 20 :Wend
  .Stop : .ExecWB 45, 2 : FN = Title & ".url"
End With : For i = 0 To 6 : FN = Replace(FN, S(i), R(i)) : Next
With WSH.CreateShortcut(FN) .TargetPath = URL : .Save :End With
WSH.SendKeys "^r": Sub IE_TitleChange(T) Title = Trim(T) :End Sub


Last edited by Flasher on Sun Aug 07, 2016 12:54; edited 1 time in total

#11:  Author: AvadaLocation: Россия, Саратов PostPosted: Sun Aug 07, 2016 09:23
    —
Flasher
Обычно после некоторого периода задумчивости выдаётся следующее:
Code:
---------------------------
Windows Script Host
---------------------------
Сценарий:   C:\Totalcmd\Addons\Scripts\Url.vbs
Строка:   20
Символ:   27
Ошибка:   Неопознанная ошибка
Код:   80004005
Источник:    (null)

---------------------------
ОК   
---------------------------
Пару раз за всё время сработало нормально, но от чего это зависело, я так понять и не смог. Это на 32-битных версиях TC 8.52a и 9.0 Beta 8 в Win7 x64. А вот из 64-битного TC работает. (Предполагаю, что и в 32-битной ОС тоже.)
Правда, в TC x64 свой глюк. Если в буфере нет искомой информации, выдаётся не нормальное предупреждение, а вот это:
Code:
---------------------------
Windows Script Host
---------------------------
Сценарий:   C:\Totalcmd\Addons\Scripts\Url.vbs
Строка:   18
Символ:   50
Ошибка:   Несоответствие типа: 'Navigate'
Код:   800A000D
Источник:    Ошибка выполнения Microsoft VBScript

---------------------------
ОК   
---------------------------

#12:  Author: FlasherLocation: Москва PostPosted: Sun Aug 07, 2016 11:04
    —
Avada
Первая проблема должна решаться, если в 20-й строке убрать ' : .Quit'. Хотя обычно он нужен для закрытия объекта. Предшествующий метод в описанных условиях, видимо, делает это за него.
Насчёт второй - не очень ясно. Там заглушка примитивная и должна работать в любых условиях. Пример из буфера можно?

#13:  Author: ВахмуркаLocation: Большая деревня Москва PostPosted: Sun Aug 07, 2016 11:33
    —
Скрипт PowerPro:
 CreateURL.txt
Параметры %P, %T. Если в буфере содержится корректный путь, то создается ссылка на него, иначе - на противоположную панель. Файл создается в текущей панели

#14:  Author: FlasherLocation: Москва PostPosted: Sun Aug 07, 2016 11:41
    —
Вахмурка
Не-не. Это не то. У меня именно как показано на скриншоте - имя берётся из заголовка.
И противоположная панель чем не текущая?

#15:  Author: ВахмуркаLocation: Большая деревня Москва PostPosted: Sun Aug 07, 2016 11:50
    —
Ну, тогда еще проще:
Code:
args Path
local Name = input("Enter file name (no extension):")

if(not Name)
   quit

local Target = "http://" ++ browserDomain

local fh = file.open(Path ++ "\" ++ Name ++ ".url", "w")

if(fh <= 0) do
   messagebox("ok error", "File not opened", "FILE plugin error #1")
   quit
endif   

fh.writeline("[InternetShortcut]")
fh.writeline("URL=" ++ Target)
fh.close
Параметр %P



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page 1, 2, 3, 4  Next  :| |:
Page 1 of 4

Powered by phpBB © 2001, 2005 phpBB Group