（在线等）用VB怎么写修改文件的代码？

[ZGhua]

就是说
假如用UEdit二进制编辑器打开某文件
查找绝对地址
0x106a4dh 后面的
BACAC550008B45F0E8E3C6EFFF85C0750E8B4DEC8B55F88B45FCE8C8FCFFFF
为
00000000000000000000000000000000000000000000000000000000000000

我要用VB做成自动修改，不知道是怎么修改的！谁能教教我啊。

我看到网上有好多这样的修改器，自己也想做个来用用。

[Andy__Huang]

不懂，牛看佈告

[rainstormmaster]

直接写就行了，大致这样：
Private Sub Command1_Click()
Dim buff() As Byte
ReDim buff(61)
Open "c:\test.dat" For Binary As #1
Put #1, &H106A4D, buff
Close #1
End Sub

[ZGhua]

懂了。谢了各位

[VirtualAlloc]

dim db(61) as byte
dim ipos as long

ipos=clng("&H106a4dh")
open "c:\yourfile.dat" for binary as #1
put $1,ipos,db()
close #1

是的，要一个一个地赋值。
如果有两个数组，要复制一个数组的内容到另外一个数组，可以这样：

设 db2() 是有内容的
db1()是新的数组:

dim db1() as byte
Let db1=db2

或者用copymemory 的api函数

copymemory db1(0),db2(0),数组的长度以字节为单位

[xxjmz_78]

学习

[zergs]

这个很有意思。关注1下。

[rainstormmaster]

//buff数组赋值要一个一个的赋吗？

你的要写入的数据都是0的话，就不用一个一个的赋，如果不是的话，就要一个一个的赋

[ZGhua]

哦，谢谢你啊

[ZGhua]

buff数组赋值要一个一个的赋吗？
我学编程没多久，哪位教教我！