Как извлечь из программы ресурс - VB

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

Как извлечь из exe ресурс и сохранить его как 1.txt

Решение задачи: «Как извлечь из программы ресурс»

textual
                            Листинг программы 
                        

                            sub main()
  UnpackResource 101, "1.txt"
end sub
 
Sub UnpackResource(ResourceID As Long, DestinationPath As String)   ' Распаковка ресурсов
    Dim ff      As Integer
    Dim b()     As Byte
    b = LoadResData(ResourceID, "CUSTOM")
    ff = FreeFile
    Open DestinationPath For Binary Access Write As #ff
        Put #ff, , b
    Close #ff
End Sub
                        

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

10 голосов , оценка 4.2 из 5

Похожие ответы