Private Sub Amend_EXE(ByVal Offset As Long, ByVal In_Put_Str As String)
'修改文件
Dim ChrNum As Integer
Dim i As Integer
ChrNum = Len(In_Put_Str)
If ChrNum > 200 Then
MsgBox "捆绑文件过多,达到极限!", vbOKOnly, "T.G.H-Pack"
Exit Sub
End If
Open MyPath & "完成.exe" For Binary As #1
For i = 1 To ChrNum
Put #1, "&H" & Hex(Val(Offset) + i), Mid$(In_Put_Str, i, 1)
Next
Close #1
End Sub
