Создание упаковщика 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д