VBS/WSH/JS - [решено] Объединить два скрипта VBScript и JScript

Serguei Kouzmine · Отправлено: **04:52, 20-12-2022** | #2

перепишите джаваскрипт кусок на вбскрипт

DJ Mogarych · Конфигурация компьютера

А лучше напишите поточнее, что вы хотите получить, с примером. На Powershell это будет две с половиной строки.

megaloman · Отправлено: **09:07, 20-12-2022** | #4

Код:

clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.GetData("text")
Filename = InputBox("Введите имя:", "Создание текстового документа.")
If Filename = Empty Then WScript.Quit

With CreateObject("Scripting.FileSystemObject")
    If .FileExists(Filename + ".txt") Then WScript.Quit 0
    With .OpenTextFile(Filename + ".txt", 2, True)
        .WriteLine (clipboard)
        .Close
    End With
End With

With CreateObject("WScript.Shell")
    Set myshortcut = .CreateShortcut(.SpecialFolders("Desktop") + "\" + Filename + ".txt.url")
    myshortcut.TargetPath = .ExpandEnvironmentStrings(clipboard)
    myshortcut.Save
End With

denis19 · Отправлено: **12:46, 20-12-2022** | #5

Цитата DJ Mogarych:

напишите поточнее, что вы хотите получить »

Как и в первом скрипте создания блокнота, только создаваться уже будет не блокнот, а ярлык URL, уже буду копировать не обычный текст, а ссылку. Скопировал ссылку - запустил - и у нас готовый ярлык URL с вставленным в него адресом из буфера обмена.
Ответ у megaloman, всё хорошо работает.

Цитата megaloman:

Filename + ".txt.url" »

Спасибо, всё работает. Только маленький вопрос, у созданного ярлыка расширение как у блокнота .txt, это так и должно быть?

megaloman · Отправлено: **13:38, 20-12-2022** | #6

Цитата denis19:

у созданного ярлыка расширение как у блокнота .txt, это так и должно быть? »

Вообще-то расширение url, txt в названии ярлыка. Не нравится, сделайте

Код:

    Set myshortcut = .CreateShortcut(.SpecialFolders("Desktop") + "\" + Filename + ".url")

Или придумайте любое другое название ярлыка вместо определённого в переменной Filename

denis19 · Отправлено: **13:50, 20-12-2022** | #7

Тьфу, извиняюсь, я поторопился. Сейчас только заметил что при вставке обычного текста создаётся и блокнот тоже, это очень удобно одним скриптом делать и ярлык и блокнот. Но только при вставке текста хоть и создаётся, но всплывает окно с ошибкой, можно ли это исправить? Было бы супер, скрипт как два в одном.

megaloman · Отправлено: **18:21, 20-12-2022** | #8

Если в буфере не ссылка, иконка не должна создаваться?

Код:

clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.GetData("text")
Filename = InputBox("Введите имя:", "Создание текстового документа.")
If Filename = Empty Then WScript.Quit

With CreateObject("Scripting.FileSystemObject")
    If .FileExists(Filename + ".txt") Then WScript.Quit 0
    With .OpenTextFile(Filename + ".txt", 2, True)
        .WriteLine (clipboard)
        .Close
    End With
End With

On Error Resume Next
	With CreateObject("WScript.Shell")
		Set myshortcut = .CreateShortcut(.SpecialFolders("Desktop") + "\" + Filename + ".url")
		myshortcut.TargetPath = .ExpandEnvironmentStrings(clipboard)
		myshortcut.Save
	End With
On Error GoTo 0

denis19 · Отправлено: **19:56, 20-12-2022** | #9

Цитата megaloman:

иконка не должна создаваться? »

Так у блокнота она же всегда есть, своя. Но сейчас проблема в другом, они рабочем столе почему то создаются скрытыми, новые файлы видно если только рабочий стол просматривать из какой то папки, это слева через область переходов. Но там мне непонятно, заглянул в свойства файла, галочки что он скрытый или только чтение там не стоят. Так же параметрах папок скрытие отключено. Не знаю почему скрыты. Постоянно они видны становятся только если проводник перезапущу.

denis19 · Отправлено: **02:05, 29-12-2022** | #10

Цитата megaloman:

Если в буфере не ссылка, иконка не должна создаваться? »

Здравствуйте ещё раз. Кнопку сделал в контекстном меню, пытаясь делать ярлык в какой нибудь папке, но он всегда создаётся только на рабочем столе. Можно ли сделать чтоб создавалось везде?