Flasher
|
 Posted: Sun Sep 15, 2013 22:17 Post subject: |
 |
|
Рамирес_Такт
Не буду настаивать на обновлении старинного IE. Сделаем так:
Добавляем кавычки в 9 строке | Quote: | | TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe""" |
и меняем нижний кусок кода на
 этот: | Code: | With CreateObject("WScript.Shell")
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write List1
.Run "%comspec% /c clip < """ & TempFile & """",0,True
FSO.OpenTextFile(TempFile, 2, True, -1).Write List2
.Run TCFS2 & " /ef msg($0B,0) tcm(2033,0) send({TAB})",,True
.Run "%comspec% /c clip < """ & TempFile & """",0,True
.Run TCFS2 & " /ef tcm(2033,0) send({TAB}) msg($0B,1) redraw()",,True
.Run "%comspec% /c type|clip ",0
End With : FSO.DeleteFile TempFile, 1 : D.RemoveAll : G.RemoveAll : Set D = Nothing
Set G = Nothing : Set Items = Nothing : Set FSO = Nothing : WScript.Quit |
Забыл, что в XP нет команды clip. Для XP кусок такой: | Code: | With CreateObject("WScript.Shell")
Clip = .ExpandEnvironmentStrings(Clip)
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write List1
.Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True
FSO.OpenTextFile(TempFile, 2, True, -1).Write List2
.Run """" & TCFS2 & """ /ef msg($0B,0) tcm(2033,0) send({TAB})",,True
.Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True
.Run """" & TCFS2 & """ /ef tcm(2033,0) send({TAB}) msg($0B,1) redraw()",,True
.Run "cmd /c type|" & Clip,0
End With : FSO.DeleteFile TempFile, 1 : D.RemoveAll : G.RemoveAll : Set D = Nothing
Set G = Nothing : Set Items = Nothing : Set FSO = Nothing : WScript.Quit |
| Code: | '================================= Путь к утилите clip ==================================
Clip = "%COMMANDER_PATH%\Utils\clip.exe" |
Скачать clip.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
