《求助》关于（覆盖）写入数据到指定位置。

不用定位N行N列，只要定位静态内存地址就行
你这里的是&H7F438

你好，感谢回复。
但我这里不是内存修改啊，是用Ultraedit打开“c:/a.exe”这个文件时，
显示的16进际的状态。（本人实在是菜到不得了，说错了勿怪）
ps：有空的话可否把代码写一下给我看看？
-------------------------------------
Private Sub Command4_Click()
put Text1.Text（接着如何put到c:/a.exe的指定位置？）
End Sub


改好一个文件 覆盖算了 如果系统允许你覆盖

1、用Binary方式打开文件： Open Text1.Text For Binary As #1
2、用Put语句写入：Put #1,1000,100'表示在文件偏移1000的位置写入一个字节，内容为100

先感谢各位仁兄的帮助，我试试看。
ps：居然被良牙兄跟踪了。。

我编写了Command5的代码，如下：
--------------------------------
Private Sub Command5_Click()
Open "c:\Sango2.exe" For Binary As #1
Open Text1.Text For Binary As #2
Put #1, 33, Text1.Text
End Sub
--------------------------------
我发现是可行的，成功插入了。。
但是，它把我的Text1.Text里面的数据化成了“不知什么码”才代入，（如下图）
我要的是直接更换啊。
请问各位仁兄，如何定义Text1.Text里面的内容才可以做到。
感谢感谢！！


原来上图是插入了文字，并不是插入内码。
继续请求高手解答。

Private Sub Command5_Click()
dim a() as byte
redim a(len(text1.text)/2)) as byte
for i=0 to ubound(a)
a(i)=cbyte(mid(text1.text, 1+i*2, 2))
next
Open "c:\Sango2.exe" For Binary As #1
Put #1, 33, a
End Sub

先感谢雀巢vb豆浆的帮助。。

在测试中遇到小小问题，望能解答在下疑惑。
感谢！

redim a(len(text1.text)/2-1) as byte