Bene, anche questo passo è andato.
Istruzioni per l'uso, per chi volesse seguire le mie orme![]()
1° Aprire Visual Studio 6
Andare su Aggiunte -> Gestione aggiunte...
Cercare Editor risorse VB 6, selezionarlo e mettere la spunta in basso a destra su Carica all'avvio.
Riavviare Visual Studio 6
2° Andare su Strumenti -> Editor risorse VB (o cliccare sul relativo bottone, il cubetto verde).
Cliccare su Aggiungi risorsa personalizzata (ultima scelta prima del ?)
Selezionare ed aprire il file EXE
Come si vede ora avete una cartella CUSTOM con dentro la vostra risorsa (la prima è 101 e così via).
Salvare, vi chiederà di salvare in un file Nomeprogetto.res, premete OK
Ora nel vostro progetto sarà presente il file .res
3° Come estrarre il file exe.
Occorre questa funzione:
DataName deve essere il numerino assegnato, es. 101codice:Public Sub LoadDataIntoFile(DataName As Integer, FileName As String) Dim myArray() As Byte Dim myFile As Long If Dir(FileName) = "" Then myArray = LoadResData(DataName, "CUSTOM") myFile = FreeFile Open FileName For Binary Access Write As #myFile Put #myFile, , myArray Close #myFile End If End Sub
FileName è il nome dell'eseguibile percorso compreso.
Et voilà, ecco riemergere il file .exe.
Unico inconveniente riscontrato:
Io utilizzo Avira Antivir e mi riconosce l'eseguibile generato come possibile malware droppatore di applicazioni malevoleVVoVe:
Devo riuscire a risolvere anche questa :master:

VVoVe:
Rispondi quotando