VBNet - Форум - Склеиватель *.exe файлов

Вопрос: Склеиватель *.exe файлов Добавлено: 02.06.07 03:02

Автор вопроса: Voucik | Web-сайт: vim.extraoffice.ru | ICQ: 237570729

Пологите мне плиз. Есть проблемка, я склеиваю два файла на бинарном уровне и создаю третий в котором они уже склеены, но при запуске третьего файла у меня запускается только первая программа, а вторая не запускается вместе с первой, хоть они прекрасно склеиваются(но при запуске работает только одна из двух склееных програм). Подскажите пожалуйста, как сделать так чтоб при запуске склееного *.EXE файла, запускались паралельно обе проги.

ЗАРАНЕЕ БЛАГОДАРЮ.

Сам код.

Imports System
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Dim b() As Byte
    Dim c() As Byte

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim y As String
        b = New Byte() {}



        OFD1.ShowDialog()    ‘Открываем первый файл
        y = OFD1.FileName
        If y <> "" Then
            Try
                 ' записываем в (b) бинарный код первого                    'файла
              b = My.Computer.FileSystem.ReadAllBytes(y)

            Catch ex As Exception

            End Try
        End If

        TextBox1.Text = "111111-" & y
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim n As String
        c = New Byte() {}

        OFD1.ShowDialog()         'Открываем второй файл
        n = OFD1.FileName
        If n <> "" Then
            Try
                 ' записываем в (c) бинарный код второго                    'файла
               c = My.Computer.FileSystem.ReadAllBytes(n)

            Catch ex As Exception

            End Try
        End If

        TextBox1.Text = TextBox1.Text & "222222222-" & n

    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


        Dim a

     SFD1.InitialDirectory = Application.StartupPath

          'создаём третий файл
        SFD1.ShowDialog()
        a = SFD1.FileName
        If a <> "" Then

'заливаем в третий файл бинарный код из первого(b) файла  'и из второго(c) файла

         My.Computer.FileSystem.WriteAllBytes(a, b, True)
         My.Computer.FileSystem.WriteAllBytes(a, c, True)
        End If

   TextBox1.Text = TextBox1.Text & "33333333-" & "gotovo"
    End Sub
End Class

Ответить

Ответы Всего ответов: 48

Номер ответа: 1 Автор ответа: EUGY Вопросов: 0 Ответов: 454	Профиль \| \| #1	Добавлено: 02.06.07 03:15
	ты ,наверное, шутишь. Voucik.exe=Docal.exe+Marki.exe Ответить

Номер ответа: 2 Автор ответа: Voucik ICQ: 237570729 Вопросов: 1 Ответов: 5	Web-сайт: vim.extraoffice.ru Профиль \| \| #2	Добавлено: 02.06.07 03:17
	В смысле? ты имееш ввиду что файлы можно склеить и так, на прямую? Ответить

Номер ответа: 3 Автор ответа: EUGY Вопросов: 0 Ответов: 454	Профиль \| \| #3	Добавлено: 02.06.07 03:19
	нет, я имею в виду абсурдность затеи. Ответить

Номер ответа: 4 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #4	Добавлено: 02.06.07 03:20
	А кто такой Marki? Ответить

Номер ответа: 5 Автор ответа: Voucik ICQ: 237570729 Вопросов: 1 Ответов: 5	Web-сайт: vim.extraoffice.ru Профиль \| \| #5	Добавлено: 02.06.07 03:21
	Можеш тогда подсказать как это сделать, ведь существую такие проги как joiner Ответить

Номер ответа: 6 Автор ответа: EUGY Вопросов: 0 Ответов: 454	Профиль \| \| #6	Добавлено: 02.06.07 03:24
	Docal-Marki=0.000000001 Ответить

Номер ответа: 7 Автор ответа: Voucik ICQ: 237570729 Вопросов: 1 Ответов: 5	Web-сайт: vim.extraoffice.ru Профиль \| \| #7	Добавлено: 02.06.07 03:26
	чёт я не чё не понял. Ответить

Номер ответа: 8 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #8	Добавлено: 02.06.07 03:28
	EUGY, зачем так изащряться, можно ж предположить что 0.000000001 = 0 тогда Docal = Marki без всяких там. Но даже так, новичкам не понятна твоя логика имхо... Можеш тогда подсказать как это сделать, ведь существую такие проги как joiner По моему это конкретная опенсорс прога... её можно и юзать.. но она криво сделана Ответить

Номер ответа: 9 Автор ответа: EUGY Вопросов: 0 Ответов: 454	Профиль \| \| #9	Добавлено: 02.06.07 03:31
	подсказать как это сделать например, создать экзешник с ресурсами, содержащими нужную тебе байтовую последовательность и при работе выгружать ее в новый exe-файл во временной папке, запускать этот новый файл, при завершении процесса - файл удалить. Ответить

Номер ответа: 10 Автор ответа: Voucik ICQ: 237570729 Вопросов: 1 Ответов: 5	Web-сайт: vim.extraoffice.ru Профиль \| \| #10	Добавлено: 02.06.07 03:37
	(извиняюсь за ламерство но я на vb.net не давно перешол и не представляю как это сделать)Кто-то может скинуть шмат кода или объяснить более доступным путём, а то я вообще запутался. Ответить

Номер ответа: 11 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #11	Добавлено: 02.06.07 03:47
	Смерть вирусам! Ответить

Номер ответа: 12 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #12	Добавлено: 02.06.07 03:48
	ой... сорри! какой в ж... вирус на .NET <_)> Ответить

Номер ответа: 13 Автор ответа: Voucik ICQ: 237570729 Вопросов: 1 Ответов: 5	Web-сайт: vim.extraoffice.ru Профиль \| \| #13	Добавлено: 02.06.07 04:54
	Ответить

Номер ответа: 14 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #14	Добавлено: 02.06.07 12:33
	я вновь прослезилсо, на микрософт и на последствия его маркетинга) PS Обычно пишут stub который знает откуда читать данные, а в него уже в ресурсы, либо в секцию данных в определенном формате пишут данные. stub же извлекает данные на диск/память и запускает. PPS Большинство джойнеров, конечно же, сечется антивирями, т.к. потенциально опасны. Ответить

Номер ответа: 15 Автор ответа: ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684	Профиль \| \| #15	Добавлено: 02.06.07 12:53
	ппц, тут флудеров развелось! Voucik, как ты делаешь джоинер - в корне неверно. Хранить EXE в ресурсах - тоже глупо. Почитай хотябы это: http://www.xakep.ru/post/38421/default.asp?print=true Ответить

Страница: 1 | 2 | 3 | 4 |