想用VBA理更改EXE文件,为什么把exe文件搞坏了?

qlm

我想实现以下功能,但为什么执行以下操作后test.exe 坏了?

'读取二进制数据存入文件aa.bin,并用"1"覆盖test.exe中已保存的数值

Private Sub Command0_Click()
Dim ii As Integer
Dim ss ,qq As Byte
    Open "c:\aa.bin" For Binary As #1
    Open "c:\test.exe" For Binary As #2
    qq=1
For ii = 1 To 10
    Get #2, ii, ss
    Put #1, ii, ss
    Put #2, ii, qq
    Next ii
    Close #1
    Close #2
MsgBox ("ok ")
End Sub

'把文件aa.bin内容释放回test.exe 中

Private Sub Command1_Click()
Dim ii As Integer
Dim ss As Byte
    Open "c:\aa.bin" For Binary As #1
    Open "c:\test.exe" For Binary As #2
   
For ii = 1 To 10
    Get #1, ii, ss
    Put #2, ii, ss
   
    Next ii
    Close #1
    Close #2
MsgBox (" ok")
End Sub

gxlishuxin

研究研究。

[此贴子已经被作者于2006-4-23 0:16:02编辑过]

gxlishuxin

Dim ss ,qq As Byte

我只是将这一句改为Dim ss As Byte,qq As Byte 其余都没有改动，拷了个exe文件测试没发现错误。

gxlishuxin

Dim ss ,qq As Byte

这样写ss就不是Byte类型，而不是Byte类型的变量在用put写入以二进制方式打开的文件时就会发生错误。

LucasLynn

请参考：

《Dim的陷阱》

qlm

原来是语法问题,多谢各位大侠!

类似这样句子在我程序里还有很多,真是一个陷阱!幸亏现在知道了。