Как создать ярлык для URL?

[selevo]

Как создать URL?

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

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


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

[Flasher]

Почему в Общих? Для этого есть свой подфорум.

Вот такая кнопка у меня создаёт пустой URL:

Код: Выделить всё

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\nircmd\nircmd.exe urlshortcut "~$clipboard$" .
?Введите базовое имя URL-файла
shell32.dll,263
Создать URL по адресу из буфера обмена

Похоже на баг NirCmd, но советую проверить. Если не пройдёт, покажу скрипт с именованием по заголовку (хотя с определением будет тоже не шибко быстро).

[MVV]

Давайте называть вещи своими именами. Не URL, а ярлык для URL. Создать URL - это вообще из другой области науки и техники. А URL-файлы - это банальные INI-файлы, которые можно создать хоть батником, если не заморачиваться с путём к иконке.

[Flasher]

К "Создать TXT" тоже претензии типа "txt - это расширение текстового файла" ?
"Создать url" - не тоже самое, что "Cформировать url", это разные категории контекста.

[MVV]

В случае с TXT путаницы меньше, т.к. TXT само по себе означает преимущественно текстовый файл (хотя я бы и тут писал подробнее или хотя бы с точкой спереди). А в случае URL я из названия темы совершенно не понял, о чём она.

[Flasher]

MVV
Я не про название темы, а про подсказку в кнопке.
К URL, кстати, тоже точку можно добавить.

[MVV]

А я вообще про всю тему, начиная с её заголовка. То, что точку можно добавить, ясности не добавляет.

[Flasher]

В общем, тут каждый останется при своём.
Я иначе не понял бы, что ещё на нашем форуме может подразумеваться кроме файла. Уж точно не авторегистрация домена с получением URL.

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

[Avada]

Похоже на баг NirCmd, но советую проверить.

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

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

[Flasher]

Avada
Хорошо. Тогда выкладываю:

Код: Выделить всё

'============================== 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

[Avada]

Flasher
Обычно после некоторого периода задумчивости выдаётся следующее:

Код: Выделить всё

---------------------------
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 свой глюк. Если в буфере нет искомой информации, выдаётся не нормальное предупреждение, а вот это:

Код: Выделить всё

---------------------------
Windows Script Host
---------------------------
Сценарий:	C:\Totalcmd\Addons\Scripts\Url.vbs
Строка:	18
Символ:	50
Ошибка:	Несоответствие типа: 'Navigate'
Код:	800A000D
Источник: 	Ошибка выполнения Microsoft VBScript

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

[Flasher]

Avada
Первая проблема должна решаться, если в 20-й строке убрать ' : .Quit'. Хотя обычно он нужен для закрытия объекта. Предшествующий метод в описанных условиях, видимо, делает это за него.
Насчёт второй - не очень ясно. Там заглушка примитивная и должна работать в любых условиях. Пример из буфера можно?

[Вахмурка]

Скрипт PowerPro:[cut="CreateURL.txt"]

Код: Выделить всё

args Path, Target
local Name = input("Enter file name (no extension):")

if(not Name)
	quit

local C = clip.get
if(validpath(C))
	Target = C

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

[/cut]Параметры %P, %T. Если в буфере содержится корректный путь, то создается ссылка на него, иначе - на противоположную панель. Файл создается в текущей панели

[Flasher]

Вахмурка
Не-не. Это не то. У меня именно как показано на скриншоте - имя берётся из заголовка.
И противоположная панель чем не текущая?

[Вахмурка]

Ну, тогда еще проще:

Код: Выделить всё

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