[Das erinnert mich grad irgendwie an EPL mit den ganzen substitutions *sigh*]
One way of doing it:
Code:
Private Sub Build_Click(Index As Integer)
Dim sBuff As String
Dim sSize As String * 8
Open App.Path & "\Test.exe" For Binary Access Write As #2
' Declare once use as many times you want
Dim sPath As String
Dim sData As String
' Substitution
sPath = App.Path & "\stub.exe"
Open sPath For Binary Access Read As #1
lFileSize = LOF(1)
sData = Input$(lFileSize, 1)
Close #1
' Subsitution End
sBuff = sData
Put #2, , sBuff
' Next one
sPath = Text1
Open sPath For Binary Access Read As #1
lFileSize = LOF(1)
sData = Input$(lFileSize, 1)
Close #1
' Done
sBuff = sData
Put #2, , sBuff
sSize = Len(sBuff)
Put #2, , sSize
Put #2, , 27
Close #2
End Sub
So das war jetzt fast eine braindead substitution geht natuerlich noch viel schoener aber das ueberlasse ich dir
Und was das bringen soll frag ich erst gar nicht weil normal wennst was mehrere male used verwendet man ja ne function (und die hast du ja grade "aufgeloest"
N.B noch nie VB.net gecoded aber denke das passt so
MFG