E' ho risolto anche la complicanza.
Antivir si avvelena sia se metti come risorse interna una file EXE che una DLL usabile e registrabile.
Se però ci infili un EXE zippato lo passa, quindi l'unico modo era metterci uno zip, ma anche un sistema per decomprimere, che sennò come fai ad usarlo poi?
Visto che non accettava EXE o DLL ho trovato queste poche linee di codice:
Unito all'inclusione del riferimento "Microsoft Shell Control and Automation" scompatta tutto quello che c'è dentro App.Path & "\risorsa.zip" dentro la stessa cartella.codice:Dim oshell As Shell32.Shell Dim ofolder As Shell32.Folder Set oshell = CreateObject("Shell.Application") Set ofolder = oshell.NameSpace(CVar(App.Path)) ofolder.CopyHere oshell.NameSpace(CVar(App.Path & "\Pippo.zip")).Items Set ofolder = Nothing Set oshell = Nothing
L'eseguibile inst.exe creato con questo codice e con la sola risorsa Pippo.zip Antivir lo passa senza problemi.
Quindi i passi sono:
1: Estrarre il file zip
2: Scompattarlo con il sistema di cui sopra
3: Cancellare il file zip
Et voilà, a voi la risorsa exe, funzionante e in barba all'antivirus sospettoso.

Rispondi quotando