Flasher
|
 Posted: Mon Apr 22, 2013 08:58 Post subject: |
 |
|
Не на 100% уверен в точности отработки. Пробуйте. | Code: | '================================================================================
' Перейти к запомненному списку элементов / запомнить выбранный список элементов
' Параметр: %WL
' Автор: Flasher ©
'================================= Путь к TCMC ==================================
TCMC = """%COMMANDER_PATH%\Utils\TCMC\TCMC.exe"""
'================================ Путь к TCFS2 ==================================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'================================================================================
Dim WSH : Set WSH = CreateObject("WScript.Shell")
'=========================== Путь к файлу с записью =============================
File = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%") & "\Scripts\Bookmark.txt"
'================================================================================
With WScript.Arguments
C = .Count : If C = 0 Then Line = WSH.CurrentDirectory Else List = .Item(0)
End With
With CreateObject("Scripting.FileSystemObject")
If Not .FileExists(File) Then
If C = 1 Then .MoveFile List, File Else _
.OpenTextFile(File, 2, True, -1).Write Line
Else
Set Temp = .GetFile(File).OpenAsTextStream(1, -1)
All = Temp.ReadAll : Arr = Split(All, vbNewLine) : Line = Arr(0)
Temp.Close : Set Temp = Nothing
If .FileExists(Line) Or Right(Line, 1) <> "\" Then
WSH.Run TCMC & " cds """ & Line & "\'"" """"", 0, True
Else
WSH.Run TCFS2 & "/ef msg($0B,0)", 0, True
WSH.Run TCMC & " cds """ & Line & """ """"", 0, True
WSH.Run TCFS2 & "/ef tcm(1001) msg($0B,1) redraw()", 0, True
End If
If Ubound(Arr) > 1 Then
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"
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
T = .Document.ParentWindow.ClipboardData.GetData("text")
.Document.ParentWindow.ClipboardData.SetData "text", All
WSH.Run TCFS2 & "/ef tcm(2033)", 0, True
.Document.ParentWindow.ClipboardData.SetData "text", T
.ExecWB 45, 2 : .Quit
End With : If A > 0 Then WSH.RegWrite P, A, "REG_DWORD"
End If : If .FileExists(File) Then .DeleteFile File
End If
End With : Set WSH = Nothing |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
