Как сделать 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

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


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

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

14   голосов , оценка 4.071 из 5
Похожие ответы