[VB6] Zip appeso ad un file ed Antivirus

[otti]

Ho creato un programma installer.exe a cui appendo con questa routine:

Private Sub AppendToExe(exefile$, filetoappend$, Stringa$, StringaFine)
    Dim MFile As Integer
    MFile = FreeFile
    Open filetoappend$ For Binary As MFile
    filedata$ = String(LOF(MFile), " ")
    Get MFile, , filedata$
    Close MFile
        
    MFile = FreeFile
    Open exefile$ For Binary As MFile
    F = LOF(MFile)
    Seek MFile, F + 1
    filedata$ = Stringa$ & filedata$ & StringaFine
    Put MFile, , filedata$
    Close MFile
End Sub

Un file zip contenente tutti i file che devo installare. Quando viene lanciato il file Installer.exe lui si toglie il file zip appeso, lo scompatta e copia i file.
Ultimamente però molti antivirus non lasciano partire l'installer.exe perchè lo credono infetto dallo zip.

Potete suggerirmi un altro metodo per raggruppare il file .exe e lo zip?
Grazie Otti.

[oregon]

Includi i file come risorse binarie.

[otti]

Ma come si fa a run-time?

[oregon]

Usa le API opportune (BeginUpdateResource ...)

[otti]

Ok! Adesso mi documento sull'API che mi ha suggerito. Poi al massimo ti richiedo aiuto.

Ciao Otti

[otti]

Provato ma nulla da fare. Viene sempre visto come infettato.

Avete altri suggerimenti?

Grazie 1000. Otti.

[oregon]

Beh ... questo mi sembra quasi inevitabile ... puoi provare criptando il file exe prima di inserirlo e decriptandolo prima di riscriverlo sul disco ...

[otti]

Ho provato anche co la criptazione. Nulla. L'antivirus interviene negando l'accesso al file.
Il file creato "ignorando" gli avvertimenti del''antivirus viene visto come infetto.

AIUTOOOOOOOOO.

Grazie otti.