Windows Script Host
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3 ... , 25, 26, 27  Next  :| |:
Total Commander -> Автоматизация Total Commander

#376:  Author: HEXFIXLocation: Калининград PostPosted: Sun Dec 02, 2018 17:54
    —
Ну, собственно, портабл версия 32 бит и есть. И не работает, да.
UPD. Неправильно понял. Думал, что портабл емеется в виду сам TC. Буду пробовать. Отпишусь о результатах

#377:  Author: HEXFIXLocation: Калининград PostPosted: Mon Dec 03, 2018 19:37
    —
Оказывается, я всё время пользовался портабельной версией и только что узнал об этом Smile
К сожалению, не работает

#378:  Author: FlasherLocation: Москва PostPosted: Mon Dec 03, 2018 19:55
    —
В смысле "узнал"? О таком невозможно не знать, если это не чужая сборка, конечно.
Дата модификации у dll какая? Пример кнопки с TCKB не работает? Интерпретатор откуда тянулся?

#379:  Author: HEXFIXLocation: Калининград PostPosted: Tue Dec 04, 2018 14:21
    —
Чаво-то я совсем запутался Smile
Нет у меня никакой .dll. Только файл TCWSHelp.exe. Не оно?
Пример не работающего скрипта:
Code:
'=======================================================
' Создание текстового файла с содержимым буфера обмена
'=======================================================
 
Option Explicit
Dim FileName
'========== Изменяемые параметры =======================
FileName = "Новый файл.txt" 'Имя создаваемого файла
'=======================================================
Dim TCS, Clip, Btn, FSO, OTL, Mess, Title
Set TCS = CreateObject("TCScript.Helper")
Clip = TCS.GetTextFromClip
Set TCS = Nothing
 
If Len(Clip) > 0 Then
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FileName) Then
Mess = "Буфер обмена содержит текст." & vbNewLine & _
"Заменить содержимое файла " & FileName & _
" текстом из буфера обмена?" & vbNewLine
Title = "Замена содержимого файла"
Else
Mess = "Буфер обмена содержит текст." & vbNewLine & _
"Создать файл " & FileName & _
" с содержимым буфера обмена?" & vbNewLine
Title = "Создание текстового файла"
End If
Btn = MsgBox(Mess, vbYesNo + vbQuestion, Title)
If Btn = 7 Then 'Кнопка No
Set FSO = Nothing
WScript.Quit
End If
Else
WScript.Quit
End If
 
Set OTL = FSO.OpenTextFile(FileName, 2, True)
OTL.Write Clip
OTL.Close
 
Set OTL = Nothing
Set FSO = Nothing
WScript.Quit

UPD. Скачал готовую сборку для TC c tckb.ru, закинул в папку TC, скопировал в эту же папку wscript.exe из system32, перезагрузил комп — не работает


Last edited by HEXFIX on Tue Dec 04, 2018 14:37; edited 1 time in total

#380:  Author: FlasherLocation: Москва PostPosted: Tue Dec 04, 2018 14:32
    —
HEXFIX wrote:
Не оно?
Нет, конечно. Это то, что и было, никакой не Portable. Ссылка на статью дана в первом посте темы.

#381:  Author: HEXFIXLocation: Калининград PostPosted: Tue Dec 04, 2018 14:38
    —
Пока редактировал свой пост ты уже ответил Smile

#382:  Author: FlasherLocation: Москва PostPosted: Tue Dec 04, 2018 18:14
    —
HEXFIX wrote:
скопировал в эту же папку wscript.exe из system32, перезагрузил комп — не работает
10-ка 32-битная что ли? Перезагружать ничего не надо. Сперва надо разрегистрировать TCWSHelp.exe. Интерпретатор использовать лучше этот.

#383:  Author: HEXFIXLocation: Калининград PostPosted: Fri Dec 07, 2018 15:49
    —
Нет, 64-bit.
Ну ОК, скопировал файл из SysWOW54. Не работает.
ЗЫ. Да, проверил под виндами 1803. Всё работает, как часики.
ЗЫЫ. Ссылка на интерпретатор не открывается

#384:  Author: FlasherLocation: Москва PostPosted: Fri Dec 07, 2018 19:50
    —
Ссылка с TCKB рабочая, проверял при выкладке.

#385:  Author: AvadaLocation: Россия, Саратов PostPosted: Sat Dec 08, 2018 08:41
    —
HEXFIX
Принципиальное неиспользование в последних фразах постов точек запрещено правилами форума и придаёт сообщениям недописанный вид. Категорически прошу прекратить эту практику.

#386:  Author: rediffusion PostPosted: Tue Mar 12, 2019 00:57
    —
Flasher wrote:
Ссылка на статью дана в первом посте темы.


Уже 3 дня мучаюсь, пора спросить!
Ну перешёл на ваш сайт. Прочитал несколько раз статью (сайт кстати то работает то нет).

1. ¦
wscript.exe - перебросил в папку из "%Windir%\SysWOW64" в "TCHelper" (в которой всё, что скачал с вашего сайта).
2. ¦
Есть плагин "FileInfo".
 Hidden text

1) Данные tlbid и clsid брать из вашего "TCScript.dll"? Этих uuid там целых 3 штуки.
Хорошо tlbid - он записан вверху.
Ну а этот clsid - в каком низу? Ниже самого первого? Или он самый последний? И да clsid - это тоже начинается на uuid (только ниже) или запись должна начинаться вот с таких строк "clsid" и потом что-то? Если да то такова слова нет "clsid".
3. ¦
А можно uuid брать с других .dll например тех которые расположены по вот такому пути "%Windir%\SysWOW64"?

P.S.
Кстати заметил что некоторые .vbs скрипты работают и без "TCHelper".

#387:  Author: FlasherLocation: Москва PostPosted: Tue Mar 12, 2019 06:37
    —
rediffusion
1. Вообще у TCScript.dll есть своя тема. Для каких целей он понадобился?
2-3. Это не для вас, а для WSH/COM/OLE-разработчиков.

rediffusion wrote:
Кстати заметил что некоторые .vbs скрипты работают и без "TCHelper".
Да неужели?

Last edited by Flasher on Sat Mar 16, 2019 12:49; edited 1 time in total

#388:  Author: rediffusion PostPosted: Tue Mar 12, 2019 20:10
    —
Flasher

"TCWSHelper" - и всё же весь день провозился! Эти все файлы мне пригодятся в дальнейшем? Стоит оставлять? Посоветуйте что оставить а что удалить?
Quote:
DemoScripts\
wscript.exe.manifest
wscript.exe
TCWSHelp.exe
TCScript.sxs.manifest
TCScript.dll
SendKeystroke.txt
ReadMe.txt

#389:  Author: FlasherLocation: Москва PostPosted: Tue Mar 12, 2019 20:25
    —
rediffusion
Вопрос лишь в том, будут ли использоваться скрипты с указанием Хелпера. Советую забить TCScript.dll в поиск по разделу. Если что-то приглянётся, то оставлять стоит всё, кроме TCWSHelp.exe, который нужно перед удалением разрегистрировать.
DemoScripts\ — папка с тестовыми скриптами от старого Хелпера. Её (если есть желание изучать коды) логично оставить в первозданном виде и закинуть в %TC%\Scripts\Components\ с остальными файлами. Вместо Components логичны ещё такие варианты: ActiveX, OLEObjects.

#390:  Author: Baltazar PostPosted: Wed Sep 16, 2020 03:45
    —
На базе когда-то найденного в сети (а может и здесь на форуме) скрипта, предназначенного для копирования путей с кавычками
Code:
Option Explicit
Dim Delimiter
Delimiter = vbNewLine
Dim TempFile, TCS
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)
Set TCS = CreateObject("TCScript.Helper")

Dim StrInFile, FileNames, M1
FileNames = ""
Do While Not TempFile.AtEndOfStream
  StrInFile = TempFile.ReadLine
  StrInFile = chr(34) & StrInFile & chr (34)
  FileNames = FileNames & StrInFile & Delimiter
Loop
TCS.SetTextToClip(Left(FileNames, Len(FileNames) - Len(Delimiter)))
Set TempFile = Nothing
Set TCS = Nothing
Wscript.Quit
пытался путём обработки регекспами организовать для определённых ftp-серверов (с определёнными ip-адресами) подмену, дабы в конечном итоге при копировании получался локальный для ftp путь. Вот только в итоге обнаружилось, что через %L скрипту передаются пути без адреса сервера и регекспам тупо нечего обрабатывать. Как быть в данном случае ? Существует ли переменная или типа того, которая позволит использовать в скрипте адреса ftp-серверов и пустить их в обработку ? В vbs я не мастак, а уж тем более в vbs с нюансами TCScript Shocked .



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3 ... , 25, 26, 27  Next  :| |:
Page 26 of 27

Powered by phpBB © 2001, 2005 phpBB Group