| Single Post |
Topic: Распаковка mime, uue, b64 |
| Author |
Message |
Flasher
|
 Posted: Mon Jul 09, 2012 02:41 Post subject: |
 |
|
| Tol!k wrote: | | У меня берёт. |
Странно..
| Code: | '================================================================
' Получение в текущей папке файла из кодированного текста
' буфера обмена вида B64/MIME/UUE/XXE/BinHex
' Условие: путь запуска - пустой
' Автор - Flasher ©
'======================= Путь к uudeview ========================
UUDev = """%COMMANDER_PATH%\Utils\uudeview\uudeview.exe"""
'======================== Путь к TCFS2 ==========================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'================================================================
Set SHA = CreateObject("Shell.Application")
Dim WSH : Set WSH = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
File = SHA.NameSpace(WSH.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
Set F = FSO.OpenTextFile(File, 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 Trim(Clip) : F.Close : WSH.Run UUDev & " -i -m +o -c """ & File & """", 0, True
WSH.Exec(TCFS2 & " /ef tcm(540)") : If A > 0 Then WSH.RegWrite P, A, "REG_DWORD"
Set FSO = Nothing : Set WSH = Nothing : Set SHA = Nothing : WScript.Quit |
UUDeview |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
