【转贴】VB文件操作-指针操作

xlrtx

xlrtx 训练师头像

初等会员[一级]

Level 2

帖子: 21
精华: 0
积分: 1195
PT币: 6131 枚
热度: 0 °C
贡献值: 0 点

发送到消息盒子

发短消息

楼主大中小发表于 2008-7-27 16:09 显示全部帖子

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
[tsj45]

= =.

TOP

«« 上一主题 | 下一主题 »» | 推荐给朋友