Toto som našiel na internete ešte dávno ak som potreboval editovať .exe ,ale pre úplne iný účel .. ale ak si to skúsite a prispôsobite podla Vás môže Vám to pomôcť.
text1 = TextBox1.Text
text2 = TextBox2.Text
FileOpen(1, Application.StartupPath & "\NAZOV DLL KNIZNICE.dll", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
If File.Exists(Application.StartupPath & "\NAZOV DLL KNIZNICE.dll") Then
My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\NAZOV DLL KNIZNICE.dll")
End If
FileOpen(1, Application.StartupPath & "\NAZOV DLL KNIZNICE.dll", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & "@Text1" & text1 & "@Text2" & text2)
FileClose(1)
|