View previous topic :: View next topic |
Author |
Message |
selevo
Joined: 05 Jul 2009 Posts: 25
|
(Separately) Posted: Tue Aug 02, 2016 21:35 Post subject: Как создать ярлык для URL? |
|
|
Как создать URL?
Файл появляется если адресную строку в браузере перетянуть в тотал командер.
Долго это, перетаскивание...
http://cs636425.vk.me/v636425765/19958/7QSx3iyVe5Y.jpg
Хотелось бы по кнопке и вставке ссылки. _________________ Планету превратим в цветущий сад! |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Aug 03, 2016 07:16 Post subject: |
|
|
Почему в Общих? Для этого есть свой подфорум.
Вот такая кнопка у меня создаёт пустой URL:
Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\nircmd\nircmd.exe urlshortcut "~$clipboard$" .
?Введите базовое имя URL-файла
shell32.dll,263
Создать URL по адресу из буфера обмена | Похоже на баг NirCmd, но советую проверить. Если не пройдёт, покажу скрипт с именованием по заголовку (хотя с определением будет тоже не шибко быстро). _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Aug 03, 2016 13:28 Post subject: |
|
|
К "Создать TXT" тоже претензии типа "txt - это расширение текстового файла" ?
"Создать url" - не тоже самое, что "Cформировать url", это разные категории контекста. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Aug 03, 2016 18:25 Post subject: |
|
|
MVV
Я не про название темы, а про подсказку в кнопке.
К URL, кстати, тоже точку можно добавить. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Aug 03, 2016 18:46 Post subject: |
|
|
В общем, тут каждый останется при своём.
Я иначе не понял бы, что ещё на нашем форуме может подразумеваться кроме файла. Уж точно не авторегистрация домена с получением URL.
Заголовок исправят - и ладно, против никто не будет. Но и поднимать бучу из-за такой мелочи смысла не было. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10343 Location: Россия, Саратов
|
(Separately) Posted: Wed Aug 03, 2016 20:38 Post subject: |
|
|
Flasher wrote: | Похоже на баг NirCmd, но советую проверить. |
Проверял. Вышеприведенная кнопка действительно создаёт неработоспособный "ярлык" для URL нулевой длины.
Тема перенесена а "Автоматизацию", ссылки и заголовок приведены во вменяемое состояние. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Aug 04, 2016 10:10 Post subject: |
|
|
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 |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sun Aug 07, 2016 12:54; edited 1 time in total |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10343 Location: Россия, Саратов
|
(Separately) Posted: Sun Aug 07, 2016 09:23 Post subject: |
|
|
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
---------------------------
ОК
--------------------------- |
_________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Aug 07, 2016 11:04 Post subject: |
|
|
Avada
Первая проблема должна решаться, если в 20-й строке убрать ' : .Quit'. Хотя обычно он нужен для закрытия объекта. Предшествующий метод в описанных условиях, видимо, делает это за него.
Насчёт второй - не очень ясно. Там заглушка примитивная и должна работать в любых условиях. Пример из буфера можно? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004 Posts: 2586 Location: Большая деревня Москва
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Aug 07, 2016 11:41 Post subject: |
|
|
Вахмурка
Не-не. Это не то. У меня именно как показано на скриншоте - имя берётся из заголовка.
И противоположная панель чем не текущая? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004 Posts: 2586 Location: Большая деревня Москва
|
(Separately) Posted: Sun Aug 07, 2016 11:50 Post subject: |
|
|
Ну, тогда еще проще: 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 _________________ Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон) |
|
Back to top |
|
|
|