View previous topic :: View next topic |
Author |
Message |
Вахмурка
Joined: 27 Dec 2004 Posts: 2585 Location: Большая деревня Москва
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Oct 10, 2017 02:40 Post subject: |
|
|
Iori
Вообще-то так: Code: | '============================== VBS ===============================
' Cоздать URL-ярлык в активном каталоге со ссылкой из буфера обмена
' Параметр: "%P" "%O"
'==================================================================
Set P = WSH.Arguments : If P.Count < 2 Then WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSS = CreateObject("WScript.Shell")
R = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
On Error Resume Next
A = WSS.RegRead(R): If A > 0 Or Err.Number <> 0 Then WSS.RegWrite R, 0, "REG_DWORD"
URL = Trim(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"))
If A > 0 Then WSS.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-ярлыка" : WSH.Quit
If P(1) <> "" Then Name = P(1) Else Name = InPutBox(String(5, vbCr) &_
"Введите базовое имя URL-файла:", " Создание URL со ссылкой из Б/О")
While FSO.FileExists("\\?\" & P(0) & Name & ".url") _
Or FSO.FolderExists("\\?\" & P(0) & Name & ".url")
i = i + 1 : Name = P(1) & " (" & i & ")"
Wend : FP = P(0) & Name & ".url"
If Len(FP) > 259 Then Pr = "\\?\" : If Len(FP) < 260 Then _
M = MsgBox("Путь к ярлыку слишком длинный!" & vbCr & vbCr & "Да -" &_
" оставить. Нет - обрезать справа.", 4132, " Создание URL-ярлыка") :_
If M = 7 Then FP = Left(Left(FP, Len(FP) - 4), 255) & ".url"
With FSO.CreateTextFile(Pr & FP, 1, 1)
.Write "[InternetShortcut]" & VbCrLf & "URL=" & URL : .Close
End With : WSS.SendKeys "^r" |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Sun Oct 15, 2017 02:38 Post subject: |
|
|
Flasher
Рад тебя видеть на форуме.
Скрипт который ты представил, он более правильный?
А то скрипт с предыдущей страницы, вроде у меня нормально работает. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Oct 15, 2017 02:52 Post subject: |
|
|
Iori
Спасибо.
Ну, если бы было не так, разве я стал бы его предлагать?
Данный быстрее, так как не лезет в инет, чтобы получить заголовок.
К тому же тут есть счётчик на случай наличия. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Sun Oct 15, 2017 03:20 Post subject: |
|
|
Flasher wrote: | Ну, если бы было не так, разве я стал бы его предлагать? |
Ну да, логично.
Flasher wrote: | Данный быстрее, так как не лезет в инет, чтобы получить заголовок. |
Отлично, а то это дело я тоже заметил и думал зачем он ломится в инет.
Flasher wrote: | К тому же тут есть счётчик на случай наличия. |
Это тоже супер. |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|