OPEN создает "невидимые" файлы

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
серверянин
Новичок
Новичок
 
Сообщения: 47
Зарегистрирован: 19.09.2023 (Вт) 8:00
Откуда: РФ

OPEN создает "невидимые" файлы

Сообщение серверянин » 14.07.2025 (Пн) 22:18

Столкнулся со странным поведением VB6 под Windows 10.
Файл создается при помощи директивы Open:

Код: Выделить всё
Open FileName$ For Output As #1

Если создавать в любом несистемном каталоге, то всё обычно. Но если я создаю файл в корне диска C:\ , то этот файл невидим в Проводнике Windows. (Проводник настроен на показ скрытых и системных файлов).
Более того: созданный файл невидим ни в консоли, ни в Total Commander, ни даже в WinRAR (который всегда славился своей способностью показывать скрытые объекты).
Но этот файл видим через стандартный объект VB6 FileListBox, и его можно открыть тем же Open в режиме чтения.

Вопрос:
это только у меня поломка какая-то, или Десятка у всех так работает?

The trick
Постоялец
Постоялец
 
Сообщения: 808
Зарегистрирован: 26.06.2010 (Сб) 23:08

Re: OPEN создает "невидимые" файлы

Сообщение The trick » 14.07.2025 (Пн) 22:35

https://github.com/danzek/annotationis/ ... ization.md
Чекай папку VirtualStore - Там файлы. Запускай от админа VB6.
UA6527P

серверянин
Новичок
Новичок
 
Сообщения: 47
Зарегистрирован: 19.09.2023 (Вт) 8:00
Откуда: РФ

Re: OPEN создает "невидимые" файлы

Сообщение серверянин » 17.07.2025 (Чт) 17:58

VB6 запущен под админской учеткой.

What Qualifies as a Legacy Application?
The three criteria that Windows uses to classify an application as legacy (and thus it is automatically virtualized) are that the program

1. is 32-bit,
2. is not running with administrative privileges, and
3. does not have a manifest file indicating it was written targeting Vista+.

Вопрос: где взять такой файл манифеста (или как создать его)
и как встроить такой файл в экзешник, компилируемый VB6 ?

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16494
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: OPEN создает "невидимые" файлы

Сообщение Хакер » 27.07.2025 (Вс) 10:42

серверянин писал(а):и как встроить такой файл в экзешник, компилируемый VB6 ?

Для начала, вместо встраивания всегда можно положить рядом с application.exe файл application.exe.manifest.

Но если хочется именно встроить (что поощряемо): добавить в проект RES-файл, а в RES-файле создать ресурс типа 24 с идентификатором 1 и нейтральным языком, а в него поместить текст манифеста.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

серверянин
Новичок
Новичок
 
Сообщения: 47
Зарегистрирован: 19.09.2023 (Вт) 8:00
Откуда: РФ

Re: OPEN создает "невидимые" файлы

Сообщение серверянин » 30.07.2025 (Ср) 13:21

А какой текст должен содержать в себе файл application.exe.manifest ?

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16494
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: OPEN создает "невидимые" файлы

Сообщение Хакер » 31.07.2025 (Чт) 15:26

—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

серверянин
Новичок
Новичок
 
Сообщения: 47
Зарегистрирован: 19.09.2023 (Вт) 8:00
Откуда: РФ

Re: OPEN создает "невидимые" файлы

Сообщение серверянин » 31.07.2025 (Чт) 20:05

ЧатГПТ без всякого выпендривания просто дал мне этот текст. А я даю его всем остальным, кому надо. Вот он:
Код: Выделить всё
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
      </requestedPrivileges>
    </security>
  </trustInfo>

  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
    <application>
      <!-- Windows Vista -->
      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
      <!-- Windows 7 -->
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
      <!-- Windows 8 -->
      <supportedOS Id="{4f476546-3f6e-4f28-8d4a-7d4f3d7b8fdd}"/>
      <!-- Windows 8.1 -->
      <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
      <!-- Windows 10 -->
      <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d5bf4b}"/>
    </application>
  </compatibility>

</assembly>

Этот текст следует вписать в простой текстовый файл в кодировке UTF-8. Затем переименовать этот файл (сменив и его расширение) в ИмяПриложения.exe.manifest , где ИмяПриложения обозначает имя скомпилированного экзешника. Файл поместить рядом с экзешником, и всё будет работать: при запуске экзешник уже не будет считаться "Legacy". Я проверил.

А вот со встраиванием через res-файл получилась проблема.
Я создал res-файл при помощи аддона VB Resource Editor через режим "Add Custom Resource". Установил, как тут выше было рекомендовано,
Type: "24"
ID: 1
Language: Neutral
Сохранением в Resource Editor был создан res-файл, который добавился в Проект Эксплорер (где и другие модули проекта).
Тем не менее, добавленный таким способом манифест не стал работать. Никаких сообщений об ошибках не появлялось, просто действия никакого не оказал.
Для проверки подключения ресурса я вставил в код приложения тестовую команду:
MsgBox Left(LoadResData(1, "24"), 100)
она должна была прочитать первые 100 символов из созданного ресурса.
Прочитала, но вместо букв выдала линейку знаков вопроса, что означает проблему с кодировкой. Возможно, манифест не срабатывает из-за нарушения кодировки? Как с этим быть?
Я пробовал менять язык Neutral на другие доступные там в списке. Не помогло.
Поглядел внутренность созданного res-файла в Блокноте. Текст манифеста просматривается нормально, без искажений.
В чем дело?

The trick
Постоялец
Постоялец
 
Сообщения: 808
Зарегистрирован: 26.06.2010 (Сб) 23:08

Re: OPEN создает "невидимые" файлы

Сообщение The trick » 31.07.2025 (Чт) 21:39

Имя нужно давать не 24, а #24.
UA6527P

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16494
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: OPEN создает "невидимые" файлы

Сообщение Хакер » 01.08.2025 (Пт) 11:13

серверянин писал(а):В чем дело?

А что, ЧатГПТ тут жидко сдулся?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

серверянин
Новичок
Новичок
 
Сообщения: 47
Зарегистрирован: 19.09.2023 (Вт) 8:00
Откуда: РФ

Re: OPEN создает "невидимые" файлы

Сообщение серверянин » 01.08.2025 (Пт) 11:55

У него кончились бесплатные запросы.

серверянин
Новичок
Новичок
 
Сообщения: 47
Зарегистрирован: 19.09.2023 (Вт) 8:00
Откуда: РФ

Re: OPEN создает "невидимые" файлы

Сообщение серверянин » 01.08.2025 (Пт) 12:02

The trick писал(а):Имя нужно давать не 24, а #24.

Переправил. В результате экзешник перестал запускаться с ошибкой "неправильная параллельная конфигурация". Очевидно проблему с нарушением кодировки все-таки надо исправлять.
Но причина такого нарушения мне пока непонятна, поскольку внутри res-файла текст исправен (как уже писал выше).

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16494
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: OPEN создает "невидимые" файлы

Сообщение Хакер » 01.08.2025 (Пт) 12:23

серверянин писал(а):Очевидно проблему с нарушением кодировки все-таки надо исправлять.
Но причина такого нарушения мне пока непонятна, поскольку внутри res-файла текст исправен (как уже писал выше).

Нет никакого нарушения кодировки. MsgBox выводит вопросы, потому что ты подсовываешь ему байтовый массив вместо строки и VB самостоятельно преобразовывает байтовый массив в строку, предполагая, что байтовый массив олицетворяет юникодную строку, где каждая пара байтов соответствует одному символу строки — но у тебя каждый символ это 1 байт.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

The trick
Постоялец
Постоялец
 
Сообщения: 808
Зарегистрирован: 26.06.2010 (Сб) 23:08

Re: OPEN создает "невидимые" файлы

Сообщение The trick » 01.08.2025 (Пт) 13:07

серверянин писал(а):
The trick писал(а):Имя нужно давать не 24, а #24.

Переправил. В результате экзешник перестал запускаться с ошибкой "неправильная параллельная конфигурация". Очевидно проблему с нарушением кодировки все-таки надо исправлять.
Но причина такого нарушения мне пока непонятна, поскольку внутри res-файла текст исправен (как уже писал выше).

Добей манифест пробелами до границы 4 байт.
UA6527P

серверянин
Новичок
Новичок
 
Сообщения: 47
Зарегистрирован: 19.09.2023 (Вт) 8:00
Откуда: РФ

Re: OPEN создает "невидимые" файлы

Сообщение серверянин » 01.08.2025 (Пт) 16:03

Хакер, спасибо за полезное и внятное разъяснение!

The trick писал(а):Добей манифест пробелами до границы 4 байт.
Да! - теперь всё заработало.
Мои благодарности! - хоть фокус оказался и прост, но трудно было бы догадаться, если не знаешь.

Выкладываю для простоты готовый работоспособный файл CompatibilityWin10.res .
Его нужно только подгрузить к проекту через меню "Проект" - "Добавить файл" (или Ctrl-D) и дело в шляпе :)
Вложения
CompatibilityWin10.zip
Ресурсный файл VB6 для совместимости программ с Win10
(1.09 Кб) Скачиваний: 12


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList