如何使加後的vb追加不被影
我用vb造了一生成器,
是把料追加至源101最尾部分

代如下
Const FILE_SIZE = 155648

Private Sub Command1_Click()
Dim bInfo As Byte
Dim bFile() As Byte
Dim iInfoLen As Integer
Dim i As Integer, lFile As Long
str2 = Trim(url.Text) '是下的地址
str3 = Trim(time.Text) '是保存的路

str1 = str2 & "(#) " & str3 '加#是了方便服端地址和路分出
iInfoLen = Len(str1)
If url.Text = " " And time.Text = " " Then
MsgBox "入正的址和分！ ", , "提示! "
Exit Sub
End If
On Error GoTo myErr:
bFile = LoadResData(101, "CUSTOM ") '出101源
Open App.Path & "\server.exe " For Binary Access Write As #1 '以二制的方式打源文件即101
For lFile = 0 To FILE_SIZE - 1
Put #1, , bFile(lFile)
Next lFile
For i = 1 To iInfoLen '出配置信息追加就 是到文件的尾部
bInfo = Asc(Mid(str1, i, 1))
Put #1, , bInfo '信息入服端中
Next i
Close #1
Exit Sub
myErr:
Reset '如果有文件未,之
MsgBox Err.Description & " 程序行出了. "
End Sub


可是, 如果我加之後, 文件大小就改, 不再是 FILE_SIZE = 155648
那生成後的程序就不能取自身尾部的

如何解


[解决办法]
计算好你的偏移量,从结尾开始

然后在代码启动后使用filelen函数得到自身文件长度

再减去这个偏移量找到你的东东