'========================================================
' Копирование кнопки из панели TC в меню "Запуск"
' Предварительно на кнопке надо выполнить "Копировать"
'========================================================
Option Explicit
Dim TCS, i, ClipB, PosCr, PosCrNext, Name, Cmd, Params, ExecPath, Iconic
Set TCS = CreateObject("TCScript.Helper")
i = 1
ClipB = TCS.GetTextFromClip
' Ищем перенос строки
PosCr = InStr(ClipB, vbCr)
if PosCr > 0 then
  ' Если перевая строка соответствует синтаксису кнопки
  if StrComp(Left(ClipB, PosCr - 1), "TOTALCMD#BAR#DATA", 1) = 0 then
    ' Ищем следующий номер для пункта меню
    Do While TCS.INIRead(TCS.MainINI, "user", "menu" & i, "") <> ""
      i = i + 1
    Loop
    ' Ищем строку команды
    PosCrNext = InStr(PosCr + 1, ClipB, vbCr)
    Cmd = Mid(ClipB, PosCr + 2, PosCrNext - PosCr - 2)
    PosCr = PosCrNext
    ' Ищем строку параметров
    PosCrNext = InStr(PosCr + 1, ClipB, vbCr)
    Params = Mid(ClipB, PosCr + 2, PosCrNext - PosCr - 2)
    PosCr = PosCrNext
    ' Ищем пропускаем строку
    PosCrNext = InStr(PosCr + 1, ClipB, vbCr)
    PosCr = PosCrNext
    ' Ищем наименование
    PosCrNext = InStr(PosCr + 1, ClipB, vbCr)
    Name = Mid(ClipB, PosCr + 2, PosCrNext - PosCr - 2)
    PosCr = PosCrNext
    ' Ищем путь запуска
    PosCrNext = InStr(PosCr + 1, ClipB, vbCr)
    ExecPath = Mid(ClipB, PosCr + 2, PosCrNext - PosCr - 2)
    PosCr = PosCrNext
    ' Ищем флажки
    PosCrNext = InStr(PosCr + 1, ClipB, vbCr)
    Iconic = Mid(ClipB, PosCr + 2, PosCrNext - PosCr - 2)
    if Cmd <> "" then
      if Name <> "" then
        TCS.INIWrite TCS.MainINI, "user", "menu" & i, Name
      else
        TCS.INIWrite TCS.MainINI, "user", "menu" & i, Cmd
      end if
      TCS.INIWrite TCS.MainINI, "user", "cmd" & i, Cmd
      if Params <> "" then
        TCS.INIWrite TCS.MainINI, "user", "param" & i, Params
      end if
      if ExecPath <> "" then
        TCS.INIWrite TCS.MainINI, "user", "path" & i, ExecPath
      end if
      if Iconic <> "" then
        TCS.INIWrite TCS.MainINI, "user", "iconic" & i, Iconic
      end if
      ' Перечитаем меню
      TCS.LockTC True
      TCS.SendCommand "cm_ChangeStartMenu"
      TCS.SendKeystroke "{Enter}"
      TCS.LockTC False
    end if
  end if
end if
Set TCS = Nothing
Wscript.Quit

'=========================[ Start of file ]=========================
Option Explicit
Dim TCS, i, Name, Cmd, Data
Set TCS = CreateObject("TCScript.Helper")
Data = Split(TCS.GetTextFromClip(), vbCrLf)
' Если первая строка соответствует синтаксису кнопки
If Data(0) = "TOTALCMD#BAR#DATA" Then
' Ищем следующий номер для пункта меню
   For i = 1 To 1111 ' :-)
      If Len(TCS.INIRead(TCS.MainINI, "user", "menu" & i, ""))=0 _
         Then Exit For
   Next
    ' Cтрока команды
    Cmd = Data(1)
    ' Наименование
    Name = Data(4)
    If Len(Cmd) > 0 Then
      If Len(Name) > 0 Then
         TCS.INIWrite TCS.MainINI, "user", "menu" & i, Name
      Else
         TCS.INIWrite TCS.MainINI, "user", "menu" & i, Cmd
      End If
      TCS.INIWrite TCS.MainINI, "user", "cmd" & i, Cmd
      TCS.INIWrite TCS.MainINI, "user", "param" & i, Data(2)
      TCS.INIWrite TCS.MainINI, "user", "path" & i, Data(5)
      TCS.INIWrite TCS.MainINI, "user", "iconic" & i, Data(6)
   '  Перечитаем меню
      TCS.SendCommand "cm_ChangeStartMenu"
      TCS.SendKeystroke "{Enter}"
   End If
End If
Set TCS = Nothing
Wscript.Quit
'=========================[  End of file  ]=========================

'========================================================
' Копирование кнопки из панели TC в меню "Запуск"
' Предварительно на кнопке надо выполнить "Копировать"
'========================================================
Option Explicit
Dim TCS, IniFile, i, ClipB, Data, MenuLimit, LenData
Dim Name, Cmd, Params, ExecPath, Iconic
Set TCS = CreateObject("TCScript.Helper")
ClipB   = TCS.GetTextFromClip
' Если перевая строка соответствует синтаксису кнопки
If UCase(Left(ClipB, 17)) = "TOTALCMD#BAR#DATA" Then
  Data = Split(ClipB, vbCrLf)
Else
  Set TCS = Nothing
  Wscript.Quit
End If
LenData = UBound(Data)
If LenData = 0 Then
  Set TCS = Nothing
  Wscript.Quit
End If
' Получаем пути ини-файлов TC
TCS.GetIniFiles
IniFile   = TCS.MainINI
MenuLimit = 200
Cmd       = ""
' Ищем свободный номер для пункта меню
For i = 1 To MenuLimit
  If Len(TCS.INIRead(IniFile, "user", "menu" & i, "")) = 0 Then
    Cmd = Data(1)
    Exit For
  End If
Next
' Добавляем меню, если есть свободный номер не больше MenuLimit
If Cmd <> "" Then
  Params   = ""
  Name     = ""
  ExecPath = ""
  Iconic   = ""
  If LenData >= 2 Then Params   = Data(2)
  If LenData >= 4 Then Name     = Data(4)
  If LenData >= 5 Then ExecPath = Data(5)
  If LenData >= 6 Then Iconic   = Data(6)
  If Name <> "" Then
    TCS.INIWrite IniFile, "user", "menu" & i, Name
  Else
    TCS.INIWrite IniFile, "user", "menu" & i, Cmd
  End If
  TCS.INIWrite IniFile, "user", "cmd"    & i, Cmd
  TCS.INIWrite IniFile, "user", "param"  & i, Params
  TCS.INIWrite IniFile, "user", "path"   & i, ExecPath
  TCS.INIWrite IniFile, "user", "iconic" & i, Iconic
  ' Перечитаем меню
  TCS.SendCommand "cm_ChangeStartMenu"
  TCS.SendKeystroke "{Enter}"
End If
Set TCS = Nothing
Wscript.Quit

ClipB = TCS.GetTextFromClip
Data    = Split(TCS.GetTextFromClip(), vbCrLf)
' Если перевая строка соответствует синтаксису кнопки
if StrComp(Data(0), "TOTALCMD#BAR#DATA", 1) = 0 Then

ClipB = TCS.GetTextFromClip
' Если первая строка соответствует синтаксису кнопки
if InStr(1, ClipB, "TOTALCMD#BAR#DATA" & vbCrLf, 1) > 0 then
  Data = Split(TCS.GetTextFromClip(), vbCrLf)
  If UBound(Data) <> 8 Then Set TCS = Nothing: WScript.Quit