изменить exe-файл?

[zah]

Скажите, можно ли изменять и сохранять в процессе исполнения exe-файл, созданный в VB без прибегания к дополнительным файлам.
Например, создать программу из двух форм: первая - видимая, вторая невидимая.
Во второй форме имеется, скажем, label, значение caption которого может меняться. Это значение будет использоваться программой при исполнении. Можно ли сделать так, чтобы измененное значение caption было сохранено и при последующем открытии exe-файла использовалось уже новое значение.
Спасибо.

[GSerg]

Файл с настройками.

[Хакер]

zah
Ну если уж так хочется - можешь хранить всё в самом EXEшнике.

[zah]

Ну так можно обойтись без дополнительного файла?

[ANDLL]

нет

[vvs_adm]

можно, но ненужно.

[Rostik Ultra (2)]

zah
Ну если уж так хочется - можешь хранить всё в самом EXEшнике.

а как кстати (можно например использовать для создания вирусного маркетинга - веб мастер вставляет свою ссылку с описанием и заинтересованно раздаёт программу своим посетителям)

[ANDLL]

можно, но ненужно.

Уж поделитесь как...

[vvs_adm]

Уж поделитесь как...

Да ради бога

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
    Dim bByte() As Byte
    Open "C:\test1.exe" For Binary As #1
        ReDim bByte(LOF(1) - 1)
        Get #1, , bByte
    Close #1
   
    ReDim Preserve bByte(UBound(bByte) + 2)
    bByte(UBound(bByte) - 1) = CByte(Asc(";"))
    bByte(UBound(bByte)) = CByte(Asc(")"))
   
    Open "C:\test2.exe" For Binary As #1
        Put #1, , bByte
    Close #1
End Sub

Private Sub Command2_Click()
    Dim bByte() As Byte
    Open "C:\test2.exe" For Binary As #1
        ReDim bByte(LOF(1) - 1)
        Get #1, , bByte
    Close #1
    MsgBox Chr$(bByte(UBound(bByte) - 1)) & Chr$(bByte(UBound(bByte)))
End Sub

Ну test2.exe перед запуском не должно существовать...

[ANDLL]

vvs_adm
Это наверное неудчаная шутка?

Ну так можно обойтись без дополнительного файла?

нет

можно, но ненужно.

Интересно, код который ты привел, он вообще тут к какому месту?

[vvs_adm]

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

[Хакер]

Блин, шутники.
Вы о записи в конец EXE-файла слышали?

[так, vss_adm меня опередил. Тогда ладно. Но всё равно скажи - зачем временный файл ]

[vvs_adm]

мы о нем и написали...

[Хакер]

Я про ANDLL.
Объясни всё таки зачем временный файл?

[ANDLL]

Хакер
Пока мы еще не увидели примера, в котором обходятся БЕЗ временного файла.
Кстати, есть еще реестр

[Debugger]

Реестр? Ак "файл-без-которого-прога-не-идёт"?

[VB-constructor]

По-моему реестр - это вообще первое, что должно было прийти на ум. Именно так и работают все нормальные программы, которыми мы пользуемся. Вот только стандартная работа через АПИ в нём ох какая страшная!

[Хакер]

1) Через АПИ нет ничего страшного, поверь
2) Допустим челу надо сделать exe шник который "странствует" по компам и собирает на них какую либо информацию (например ФИО того, кто его запустим, и просит передать 5-ти своим друзьям). Тогда единственное что остаётся - хранить всё в EXE.

(Для тех кто попытается со мной поспорить - посмотрите в название темы)

[Debugger]

Реестр? Ак "файл-без-которого-прога-не-идёт"?

Значит, второе? Проверка на наличие файла через Dir? Иль фиксированный файл? И суперустановщик, который сосед запускает, скрепляюший файлы воедино? Для следующего соседа?

[Захарик]

В своей полемике Вы забыли, что автор сей темы - зелёный чайник. Предложите что-нибудь стоящее с временным файлом. Или может быть можно создать отдельную программу, которая будет в однотипных exe-файлах менять какие-либо параметры.