| View previous topic :: View next topic |
| Author |
Message |
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
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 |
|
|
Strek
Joined: 17 Oct 2010
Posts: 198
|
| (Separately) Posted: Sat Nov 30, 2024 00:33 Post subject: |
|
|
Есть рабочий вариант на сегодня?
ПС. Перепробовал все из топика, ничего не работает. |
|
| Back to top |
|
|
Orion9
Joined: 01 Jan 2024
Posts: 521
|
| (Separately) Posted: Sun Dec 01, 2024 01:15 Post subject: |
|
|
Strek
А что именно нужно, создать из буфера url-ярлык? |
|
| 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
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
