Модераторы: d-view, Моторокер, Avada, CaptainFlint, Nik
Не совсем. Некоторые куски кода с форума у меня выдавали нерабочие файлы, если расширение ставилось .b64, а с расширением .uue распаковывались правильно.Оно и понятно. Если они повязаны на одном плагине, то достаточно было эксперимента с b64.
Попробуй где-нибудь ближе к началу вставить строку TCS.Pause=500Ошибка чтения диска.
Ссылка на прогу' Получение в текущей папке файла из кодированного текста
' буфера обмена в виде B64/MIME/UUD/UUE/XXD/XXE/BinHex/AtoB/BtoA
' Автор - Flasher ©
'===============================================
Dim FSO, WSH, F, TF
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
TempFolder = WSH.ExpandEnvironmentStrings("%TEMP%") & "\0"
If Not FSO.FolderExists(TempFolder) Then FSO.CreateFolder TempFolder
TempFile = TempFolder & "\" & FSO.GetTempName
NewFile = TempFolder & "\*.*"
Set F = FSO.OpenTextFile(TempFile, 2, True)
P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
A = WSH.RegRead(P)
If A > 0 Then WSH.RegWrite P, 0, "REG_DWORD"
Clip = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
F.Write Clip
F.Close
Set TF = WSH.Exec("%COMMANDER_PATH%\Utils\Fcode32\fcode32.exe " & TempFile)
TF.Terminate
FSO.DeleteFile TempFile, 1
If FSO.GetFolder(TempFolder).Files.Count > 0 Then _
FSO.MoveFile NewFile, WSH.CurrentDirectory Else WScript.Quit
FSO.DeleteFolder TempFolder, 1
WSH.SendKeys "^R"
If A > 0 Then WSH.RegWrite P, A, "REG_DWORD"
Set FSO = Nothing
Set WSH = Nothing
WScript.Quit
Код: Выделить всё
В спешке не тот фрагмент скопировал, исправлю. Мне кажется, что метод достаточно полезный. Вот и решил таким образом о нем напомнить.
// File: DecodeFromClipboard.js
// Распаковывает mime, uue, b64 текст
// скопированный в буфер обмена в текущую папку
//
// Для работы нужен: Script Helper ActiveX for TC
// http://wincmd.ru/plugring/script_helper.html
//
// В этой версии для работы не нужны WCX плагины (MhtUnPack.wcx)
// Если объект TCSCRIPT.Helper не зарегистрирован, этот скрипт временно
// зарегистрирует его. см. ниже переменную TCWSHELP_PATH
// Корректно обрабатывается ситуация, если файл уже существует.
// Временный файл корректно удаляется, панель TC обновляется.
//
// (c) 2010, lev, Tol!k, Andrey_A, Volniy
// (c) 2011, Total7zip
// Обсуждение: http://forum.wincmd.ru/viewtopic.php?t=13531
//путь к Script Helper ActiveX for TC
var TCWSHELP_PATH = "%COMMANDER_PATH%\\Utils\\TC\\TCWSHelp\\TCWSHelp.exe";
var tcHelper = null;
var wshShell = null;
var bUnreg = false;
try
{
tcHelper = WScript.CreateObject("TCSCRIPT.Helper");
}
catch(e)
{
//если TCWSHelp.exe не зарегистрирован - регистрируем его
wshShell = WScript.CreateObject("WScript.Shell");
wshShell.Run(TCWSHELP_PATH + " /REGSERVER", 1, true);
tcHelper = WScript.CreateObject("TCSCRIPT.Helper");
bUnreg = true;
}
//создаем в текушей папке временный файл и пишем в него содержимое буфера обмена
var fso = WScript.CreateObject("Scripting.FileSystemObject");
var tempFile = tcHelper.GetSrcPath () + "\\" + fso.GetTempName();
var f = fso.CreateTextFile(tempFile, true);
f.Write (tcHelper.GetTextFromClip ());
f.Close ();
f = null;
tcHelper.SetSrcPath (tempFile);
//посылаем команду, без ожидания завершения, TC показывает диалог
tcHelper.SendCommand ("cm_Decode", false);
//убираем путь в диалоге - нам надо декодировать в текущую папку
tcHelper.SendKeystroke ("{BKSP}");
tcHelper.SendKeystroke ("{Enter}"); //нажимаем ОК в диалоге
//удаляем временный файл, try нужен, чтоб дождаться пока TC завершит декодирование
while (true)
{
try
{
WScript.Sleep (1000);
fso.DeleteFile (tempFile);
break;
}
catch(e)
{
}
}
tcHelper.SendCommand ("cm_RereadSource", false);
//чистим, удаяем объекты.
fso = null;
tcHelper = null;
if (bUnreg)
{
//если TCWSHelp.exe не был зарегистрирован - разрегистрируем его
wshShell.Run(TCWSHELP_PATH + " /UNREGSERVER", 1, true);
}
wshShell = null;
WScript.Quit();
Если кодированного текста много, этого может не хватить.Total7zip писал(а):Код: Выделить всё
WScript.Sleep (1000);
Код: Выделить всё
tcHelper.SendKeystroke ("{Enter}");Предлагаю проверить. )Total7zip писал(а):во-первых я не знаю насколько быстро TC захватит файл после того как мы посылаем Enter
Это вряд ли. Пол секунды - это не так уж и быстро.Total7zip писал(а):возможно, если спешить, скрипт удалит файл раньше чем TC успеет обратиться к нему.
не может выцепить имена файлов из кодов, созданных uuencode.exeFlasher писал(а):' Получение в текущей папке файла из кодированного текста
' буфера обмена в виде B64/MIME/UUD/UUE/XXD/XXE/BinHex/AtoB/BtoA
' Автор - Flasher ©
Код: Выделить всё
---------------------------
Notice!
---------------------------
The default output filename was not found!
Encoded contents may be corrupted.
Fastcode will save the output file using the input filename.
---------------------------
ОК
---------------------------