把资源文件101用StrConv转换字节再输出后文件变小,不能运行,请帮忙解决.
  注:101含中文字符

  Dim buff()     As Byte
  buff = LoadResData(101, "CUSTOM")
  Dim s     As String
  s = StrConv(buff, vbUnicode)
  s = Replace(buff, "abcdef", "iyrewa")
  Open "C:\aaa.exe" For Binary As #1
    Put #1, , s
  Close #1