Запись в экзешник. Нужна помощь

[Dex]

Кто скачал скажите работает у вас?

[VVitafresh]

Да запросто.
Файл лежит в папке Program Files, у пользователя нет прав админа.
Пойдёт?

Ну тогда задача вообще не имеет решения без всяких дополнительных условий. Если у юзера нет права записи в каталог с программой, тут уж ничего не поделаешь.

[AjaxVS]

>>Файл лежит в папке Program Files, у пользователя нет прав админа.

Во-первых, тогда как ты представляешь себе изменение экзешника вообще любыми способами?
Во-вторых, функция GetTempPath нам тоже не известна?

Может, давайте тогда поставим условие: как изменить экзешник, не включая компьютер? +_+

2 CSerg
насчет анекдота.. Думаешь, будет лучше, если я создам рядом топик "как изменить экзешник, не выдвигая абсурдные требования"? +_+

[tyomitch]

>>Файл лежит в папке Program Files, у пользователя нет прав админа.
Во-первых, тогда как ты представляешь себе изменение экзешника вообще любыми способами?

Это вопрос к автору топика, а не ко мне.

Во-вторых, функция GetTempPath нам тоже не известна?

Ты говорил, что всегда сможешь создавать файл в той же папке. О временной папке речи не шло.

насчет анекдота.. Думаешь, будет лучше, если я создам рядом топик "как изменить экзешник, не выдвигая абсурдные требования"? +_+

Автор ставит свои условия. Если они бредовые, это дело автора. Но если ты этими условиями предлагаешь пренебречь, то какой вообще смысл в твоих ответах?

[VERITAS]

Да на самом деле, немного напонятно поставлены условия.
Если включить логику, то по сути дела если в папке нет прав на изменения, то само сабой будет невозможно перезаписать exe файл даже той единственной программы, которую, только можно запустить - в любом случае, как не крути.

Но если доступ есть, тогда на самом деле что-то очень странно получается Автор поста, откликнись на вопросы, и поясни нам что там за проблемы такие с запуском > 2 exe. Интересно очень стало, а то можно тоже одну темку сделать.

А с другой стороны, хотел бы упомянуть такой момент, как GetSetting - никто не забыл про эту вещь ?? - ведь настройки окна запоминаются в самом exe

[AjaxVS]

>>Но если ты этими условиями предлагаешь пренебречь, то какой вообще смысл в твоих ответах?

Смысл таков: высказываясь на конференции, нужно ориентироваться на решение вопроса, заданного в теме топика, если условия автора являются невыполнимыми.

Как ты думаешь, что ожидает прочесть форумчанин, заходя в топик "Запись в экзешник. Нужна помощь"? Явно не таких условий.

Вопрос по прежнему открыт: чем плох мой метод? Или мне новую тему создавать? +_+

[Kovu]

Кто скачал скажите работает у вас?

Угу работает =)

[ANDLL]

А с другой стороны, хотел бы упомянуть такой момент, как GetSetting - никто не забыл про эту вещь ?? - ведь настройки окна запоминаются в самом exe

не правда. Get\SaveSetting сохранаяет настройки в реестре.

[Dex]

Как прочитать именно последнюю строку из файла? Line Input читате первую. А как последнюю?

[VVitafresh]

Дойти до последней и прочитать.

[Dex]

Так выкладываю обновление к своему варианту.
+Чтение теперь происходит из бинарного файла по нажатию кнопки прочитать
+Поддержка чтения нескольких строк
+Исправлено пару ошибок
-Не сохраняются пробелы в строках

[AjaxVS]

Как первый вариант, так и второй - программа нифига не делает =(
Ошибка №75.

Исходники открывать будем? Может, общими усилиями подправим?

[VERITAS]

А с другой стороны, хотел бы упомянуть такой момент, как GetSetting - никто не забыл про эту вещь ?? - ведь настройки окна запоминаются в самом exe

не правда. Get\SaveSetting сохранаяет настройки в реестре.

Ну я основывался на данные, взятые из мукулатуры по VB, что там за граматей такой писал

Да, хотел бы вас еще предупридить, что похоже автор не вернется на форум (смотрите его пост), так как он просил ответы ему на e-mail присылать, вряд ли мы его еще увидим

Ладно, тронемся в другую сторону. А как же Ассемблер( ну конечно его сравнивать с VB безсмыслено), но все же в Ассемблере такую фичу как дописывание, и переписывание самой себя осуществляет ведь. Главное знать начальный адресс и длину программы, а дальше дело за несложным ???

[Dex]

AjaxVS распологай exe не где нидь на C:\ или D:\
а где нидь на C:\Program Files. Там просто может быть ошибка с сепараторами. Ведь у Kovu работал первый вариант. Исходники пока раскрывать ни хочу. Да и стыдно мне их раскрывать Там всё так глупо...

[Dex]

А вообще то всё работает... у меня...

[tyomitch]

Ладно, тронемся в другую сторону. А как же Ассемблер( ну конечно его сравнивать с VB безсмыслено), но все же в Ассемблере такую фичу как дописывание, и переписывание самой себя осуществляет ведь. Главное знать начальный адресс и длину программы, а дальше дело за несложным ???

Ещё один слышавший звон?

[Dex]

Плз все кто скачал говорите результат.

[AjaxVS]

кинул WriteInMe в Program Files...
После нажатия "Записать" образуется 4 файла и прога, выдав привычную ошибку 75, закрывается..
Как и раньше..

В общем, ты прав, исходники такого нафиг никому не нужны +_+
ЗЫ. А Kovu пошутил, наверно..

[Alex123]

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

Dim zf1 As String, zf2 As String

Private Sub Form_Load()
Timer1.Enabled = False: Timer2.Enabled = False: Me.Visible = False
Text1.Text = "********************"
zf1 = App.Path & "\1.exe": zf2 = App.Path & "\2.exe"
Select Case Command$
    Case "": FileCopy zf1, zf2: Timer1.Enabled = True
    Case "2": Me.Visible = True
    Case "3": Timer2.Enabled = True
    Case Else
End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i%, n%, st$, s As String * 1
st = Left(Text1.Text, 20): n = &H1B64&
Open zf1 For Random As #1 Len = Len(s)
For i = 1 To Len(st): s = Mid(st, i, 1)
Put #1, n + 2 * i - 1, s
Next: Close #1
Shell zf1 & " 3", vbNormalFocus: End
End Sub

Private Sub Timer1_Timer()
Shell zf2 & " 2", vbNormalFocus: Timer1.Enabled = False: End
End Sub

Private Sub Timer2_Timer()
Kill zf2: Timer1.Enabled = False: End
End Sub

[GSerg]

Alex123
Это к чему?

[Dex]

Ну почему у меня всё работатет?

[VERITAS]

Ещё один слышавший звон?

Не, я не утверждаю, я тока начал изучать ассемблер в универе, и сталкивался со следующим:

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

dseg segment
  file_name DB 'My.exe'', 0
  Fin equ $
dseg segment

cseg segment
assume cs:cseg, ds:dseg
org 100h
begin:
; открытие файла
  LEA dx, file_name
  call open_file
  jc error_file
  mov bx, ax
; чтение файла
  mov ah, 3fh
; загрузка длины файла
  mov cx, Fin-100h
  mov dx, begin
  int 21h
  call close_file
  jmp en

error_file:
  mov ah, 2
  mov dl, 7
  int 21h

en: mov ah, 4ch
  int 21h

open_file PROC
  cmp bx, 0FFFFh
  jne quit_prog
  mov ax, 3d00h
  int 21h
  mov bx, ax
  ret

quit prog: stc
  ret
  mov bx, 0FFFFh
open_file endp

close_file proc
  mov ah, 3eh
  int 21h
  ret
close_file endp

cseg segment
end bigin

; данная программа откроет сому себя, т.е. "My.exe"
; и разместится в памяти на то место, куда была только что загружена


Но я еще помню, что препод. говрил, что это можно осуществить только на ассемблере, технологию сохранения он не рассказал, дабы мы не начали писать нехорошие вещи (он конкретно намекнул про вирусы). Но по сути дела он сказал что реализовать дозапись и перезапись программы, можно запросто ! Как только узнаю как, тогда и буду говорить с точностью. Ну а пока тока предположения.

to Dex
У меня твоя программа работает, нормально. В принципе - это решение проблемы, но без исходников непонятно как ты это именно делаешь (Правильно, неправильно в зависимости от задачи автора поста). Выложи исходники что ты там сделал. Мы все посмотрим

[tyomitch]

2VERITAS: эти досовские трюки в Винде не работают.

[Kovu]

кинул WriteInMe в Program Files...
После нажатия "Записать" образуется 4 файла и прога, выдав привычную ошибку 75, закрывается..
Как и раньше..

В общем, ты прав, исходники такого нафиг никому не нужны +_+
ЗЫ. А Kovu пошутил, наверно..

Вот не надо говорить ерунды. Оба варианта прекрасно пашут...
У тебя наверно карма плохая ©

[Dex]

Выкладываю исходник...Тока не смейтесь Сделал как смог. Можно было организовать работу с bat файлами так проще, но я с ними не умею. + я работал с несколькими временными файлами, просто поленился выуживать всё из одного...

[alibek]

Для временных файлов лучше используй не App.Path, а TempPath.

[Dex]

alibek
Ну я так побыстрей сделал... чтоб не заморачиваться особо
А ввобще модифицировав мой исходник, можно сделать что нидь типа:
Исходный файл создаёт временный(один!) для инфы и один временный для бинарника, затем передаёт управление временному бинарнику и отрубается. Временный бинарник, считывает инфу из временного файла, и делает всё что там указано, а затем удаляет временный файл и передаёт управление главному, а тот удаляет временный бинарник. Аналогичным образом можно читать инфу, а не тем что я предложил в исходнике, так как если файл исходный весит многовато то лучше не делать.

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

filecopy

Как вам такой вариант? И ещё если уж работать с bat файлами, скажите что нужно прописать в него чтоб мона переименовать файл, удалить и ещё чего нить полезного...

[VERITAS]

Dex, мне кажется ответил на поставленную задачу автора. Дальше пусть сам автор разбирается.

2tyomitch: а почему не работают ? Просто объясни мне пожайлуста, чтобы знать в чем причина, и главным образом это защита Windows или же что-то другое ?

[tyomitch]

2tyomitch: а почему не работают ? Просто объясни мне пожайлуста, чтобы знать в чем причина, и главным образом это защита Windows или же что-то другое ?

Это особенность архитектуры Windows.

[AjaxVS]

2tyomitch: а почему не работают ? Просто объясни мне пожайлуста, чтобы знать в чем причина, и главным образом это защита Windows или же что-то другое ?

Если я не ошибаюсь, копай по направлению "реальный режим" и "защитный режим" памяти..

Так что, WriteInMe только у меня ошибку выдает? =(