Создание упаковщика exe файлов - VB

Узнай цену своей работы

Формулировка задачи:

Киньте плз работающий исходник упаковщика exe файлов (или хороший материал по теме)

Решение задачи: «Создание упаковщика exe файлов»

textual
Листинг программы
Private Sub Command1_Click()
''Опредиляем переменные...
 Dim a() As Byte
 Dim b() As Byte
 Dim c() As Byte
 Dim d() As Byte
 Dim al As Long, bl As Long
  ''Адрес твои файлов, которые нужно запаковать...
  al = FileLen("C:Prog1.exe")
  bl = FileLen("C:Prog2.exe")
 ''Читаем первый
 ReDim a(al - 1)
  Open "C:Prog1.exe" For Binary Access Read As #1
 Get #1, , a()
 Close #1
 ''Читаем второй
 ReDim b(bl - 1)
  Open "C:Prog2.exe" For Binary Access Read As #1
 Get #1, , b()
 Close #1
 ''Пишем в пакет
  Open "C:NewPaket.pak" For Binary Access Write As #1
 Put #1, , a
 Put #1, al + 1, b
 Close #1
''*****************************************************
''Разпаковка
''Читаем в пакете первый
 ReDim c(al - 1)
  Open "C:NewPaket.pak" For Binary Access Read As #1
 Get #1, , c()
 Close #1
''Читаем в пакете второй
 ReDim d(bl - 1)
  Open "C:NewPaket.pak" For Binary Access Read As #1
 Get #1, al + 1, d()
 Close #1
''Пишем первый
  Open "C:PakProg1.exe" For Binary Access Write As #1
 Put #1, , c()
 Close #1
''Пишем второй
  Open "C:PakProg2.exe" For Binary Access Write As #1
 Put #1, , d
 Close #1
 
Caption = Now
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.643 из 5