inkludering af textfil i exefil i VB6.0 (Visual studio)

Du kan proppe alt det data du har lyst til i slutningen af exe-filen. Jeg ville med glæde lave dig et eksempel hvis jeg stadig brugte windows da jeg elsker visual basic :)

Jeg har tit inkluderet tekst- og binære filer i mine projekter, og jeg har for det mest lavet et andet program til at skrive til mit primære program der skal indeholde dataen.

Her er et lille "eksempel" hvis du kan kalde det dét... ud fra min hukommelse ;)

Projekt til at skrive data til slutning af den anden exe-fil

Sub Form_Load()
dim f as integer
f = freefile()
dim inputdata as string
open "sti-til-exe-fil-hvor-text-fil-skal-integreres-i" for binary as #f
inputdata = space(lof(f))
get #f, , inputdata
close #f
open "sti-til-exe-fil-hvor-text-fil-skal-integreres-i" for output as #f
print #f, inputdata & "din tekst"
close #f
End Sub()

' i stedet for "din tekst" kan du bare smide en variabel ind der indeholder din tekstfil... du kan også lade det stå uændret og åbne din fil i en hex-editor ;) Det skal bare være i slutningen af filen ;)

gå op i menuen vælg add-Ins så Add-In-Manager og så VB 6 Resource editor

hvis VB 6 Resource editor ikke findes i Add-In-Manager er det fordi der er en bug i VB6
og den er: hvis du ikke er den der har installeret vb bliver de ikke vist.
så man skal registrer dem manuelt i sit eget log ind navn

hvis du har brug for det skal du køre den her :

regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\RESEDIT.DLL"

her er forskellige andre Add-Ins

regsvr32.exe "c:\program files\microsoft visual studio\Common\Tools\VS-Ent98\vmodeler\RVBADDINMENUS.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\Common\Tools\VS-Ent98\vmodeler\RVBRESO.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\PDWizard\PDADDIN.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\CTRLWIZ.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\AXDOCWIZ.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\AITOOL.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\Common\Tools\Winapi\APILOAD.EXE"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\APPWIZ.OCX"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\CLSSBLD.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\DATAFORM.OCX"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\MSDATOBJ.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\PROPPGWZ.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\TEMPMGR.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Wizards\WIZMAN.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\VB98\Tsql\VBSDIADD.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\Common\Tools\VCM\VCMMGR.DLL"
regsvr32.exe "c:\program files\microsoft visual studio\Common\Tools\VS-Ent98\vmodeler\RVBADDIN.DLL"

for at hente tingene i res kan du bruge

LoadResData
LoadResPicture
LoadResString

tusind tak :)