以下代码只发生在WIN10系统里，其它系统正常，也不属于我们写代码的问题。

在文件的某个地址写入内容

  Open 文件名 For Binary Access Write As #M
  If Put(#M, 地址, by()) = 0 Then Function = True Else Function = False

代码没问题，在 XP 、WIN7  系统很正常，当来到了 WIN10 系统就发生问题，它会先删除文件，再写入，

我们只修改部分，到了W10就全清0，经过研究，去掉 Access Write 才可以

  Open 文件名 For Binary As #M
  If Put(#M, 地址, by()) = 0 Then Function = True Else Function = False