以下代碼只發生在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