Как сделать GUI - VB
Формулировка задачи:
Привет всем!
Подскажите как реализовать GUI для UPX.
Сам UPX положил в ресурсы, напишите Plizz код, чтобы при нажатии упаковать выбранный файл упаковал UPX, Thansk!
Решение задачи: «Как сделать GUI»
textual
Листинг программы
sub form_load() Dim ff As Integer Dim b() As Byte b = LoadResData(101, "CUSTOM") ff = FreeFile Open App.Path & "\upx.exe" For Binary Access Write As #ff Put #ff, , b Close #ff end sub Private Sub command1_Click() Const cdlOFNExplorer = &H80000 Const cdlOFNFileMustExist = &H1000 With CommonDialog1 .InitDir = App.Path .DialogTitle = "Выберите файлы для упаковки UPX" .Flags = cdlOFNExplorer Or cdlOFNFileMustExist .Filter = "Исполняемые файлы|*.exe" .CancelError = True 'Escape key On Error Resume Next .ShowOpen If Err = 32755 Then Exit Sub On Error GoTo 0 Shell App.Path & "\upx.exe -9 -f -o """ & .FileName & "_upx.exe"" """ & .FileName & """" End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д