Sub Main
  PEFileProxy.PostDebugString "Пересчёт контрольной суммы в заголовке файла вкл." 
  PEFileProxy.UpdateCheckSum = True 

  PEFileProxy.PostDebugString "Создание резервной копии отключено." 
  PEFileProxy.CreateBackUp = False

  '----- Получение отметок времени исходного файла (для демонстрациии) -----
  'Чтобы восстановить исходные отметки времени файла после сохранения, нам 
  'нужно получить эти отметки перед выполнением любых операций с файлом.
  'Если этот функционал вам не требуется, эту часть кода можно удалить.
  
  SRCFILE = ".\src\DemoApp1.exe"
  PEFileProxy.PostDebugString ""
  PEFileProxy.PostDebugString "Получаем CreationTime, LastAccessTime и 
LastWriteTime для файла '" & SRCFILE & "'..."

  set fso = CreateObject("Scripting.FileSystemObject")
  set f = fso.GetFile(SRCFILE)
  DCR = f.DateCreated
  DLM = f.DateLastModified
  DLA = f.DateLastAccessed
  PEFileProxy.PostDebugString "Created      : " & DCR
  PEFileProxy.PostDebugString "Last Modified: " & DLM
  PEFileProxy.PostDebugString "Last Accessed: " & DLA
  PEFileProxy.PostDebugString ""
  '-------------------------------------------------------------------------

  'Открытие файла
  PEFileProxy.PostDebugString "Открываем файл..."
  PEFileProxy.OpenFile SRCFILE
  if (PEFileProxy.Terminated) then
    'Предупреждение в случае ошибки
    PEFileProxy.PostDebugString "При открытии файла произошла ошибка."
  else
    PEFileProxy.PostDebugString "Файл открыт успешно."
    if (not PEFileProxy.HasResources) then
      PEFileProxy.PostDebugString "Файл не содержит ресурсов."
    else
      PEFileProxy.PostDebugString "Файл содержит ресурсы."

      'Указываем язык по умолчанию.      
      LangID = 0 ' Default

      PEFileProxy.PostDebugString "Заменяем/добавляем главную икону приложения..."
      ResourcesProxy.ChangeIcon "", LangID, CREATE_IF_NOT_EXIST, 
REPLACE_IF_ITEM_EXISTS_ELSE_ADD, ".\src\vista_iconset.ico"

      PEFileProxy.PostDebugString "Добавляем иконную группу NewGroup с новой иконой..."
      ResourcesProxy.ChangeIcon "New Icon Group", LangID, CREATE_IF_NOT_EXIST, 
REPLACE_IF_ITEM_EXISTS_ELSE_ADD, ".\src\icon_3_32x32_8bit.ico"

      'Строим и выводим дерево ресурсов в лог, чтобы показать изменения.
      PEFileProxy.PostDebugString ""
      PEFileProxy.PostDebugString "Дерево ресурсов — построено с помощью RTC:"
      ResourcesProxy.ResourceTreeToLog
      PEFileProxy.PostDebugString ""

      'Сохранение файла
      PEFileProxy.PostDebugString "Сохраняем изменения в новый файл..."
      DESTFILE = ".\release\DemoApp1.exe"
      PEFileProxy.SaveAsNewImage DESTFILE

  '--------------------------------------------------------------------------
  'Восстанавливаем исходные отметки времени (CreationTime, LastAccess и LastWrite)
      PEFileProxy.PostDebugString ""
      PEFileProxy.PostDebugString "Восстанавливаем CreationTime, LastAccessTime и 
LastWriteTime для файла '" & DESTFILE & "'..."
      if not ScriptUnit.SetFileTime(DESTFILE, DCR, DLA, DLM) then
       'Предупреждение в случае ошибки
       PEFileProxy.PostDebugString "Восстановить CreationTime, LastAccessTime и 
LastWriteTime для файла '" & DESTFILE & "' не удалось."
      else
       PEFileProxy.PostDebugString "CreationTime, LastAccessTime и 
LastWriteTime для файла '" & DESTFILE & "' восстановлены успешно."
      end if
      PEFileProxy.PostDebugString ""

  '--------------------------------------------------------------------------

    end if
    PEFileProxy.PostDebugString "Закрываем файл..."
    PEFileProxy.CloseFile
  end if
end Sub