'======================== VBS ========================
' Установить курсор на объекте в пассивной панели
' с именем объекта под курсором в активной панели
'
' Условия: 1) необходим компонент TCScript.dll
' 2) необходима команда em_selectfilesb, где
' selectfilesb в первом поле, а %A во втором
'=====================================================
With CreateObject("TCScript.Helper")
.Pause = 0 : .Wait = True : .LockTC 1
IsSelected = .GetInfo(1007 - .GetInfo(1000))
Name = .GetInfo("SN") : .SendCommand 4006, 1
If Name = ".." Then
If .GetInfo(1009) + .GetInfo(1010) = 2 Then .SendKeyStroke "{HOME}"
Else If IsSelected Then C = .GetTextFromClip : .SendCommand 2017, 1
.SendCommand 524, 1 : .UserCmd "em_selectfilesb """ & Name & """"
.SendCommand 2049, 1 : .SendCommand 2053, 1 : .SendCommand 524, 1
If IsSelected Then .SendCommand 2033, 1 : .SetTextToClip C
End If
.SendCommand 4006, 1 : .LockTC 0
End With |