VB病毒中复制自己代码

Option Explicit
Private Sub form_load()
   Dim a() As Byte
   Dim n As Long
   Dim exefile As Long
   Dim txtfile As Long
   exefile = FreeFile
   Reset
   Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #exefile
   txtfile = FreeFile
   Open "d:\2.txt" For Binary Access Write As #txtfile
   n = LOF(exefile)
   ReDim a(n)
   Get #exefile, 1, a
   Put #txtfile, 1, a
   Close #exefile
   Close #txtfile
End Sub


这段代码本意是将程序自身的代码复制到D盘下2.txt文本中，但是运行后的结果很不尽人意，结果是2.txt中没有任何代码，为空文本，但是文本的大小变化了，程序运行前是0kb,运行后为1kb，what is wrong?

搜索更多相关主题的帖子: Dim Long App 代码 form

嘿嘿，兄弟你是在VB开发环境下运行的吧，这样当然不可以，你把它生成EXE文件后，再运行Exe文件就可以了

用二进制编辑器查看那1kb是什么内容。我估计是EOF标记。

回复 2# wyfandy 的帖子

谢谢我明白了！

回复 3# multiple1902 的帖子

了解谢版主