主题：蓝版，七牛云sdk上传图片帮忙

比如上传文件

打开Foxtable安装目录里的Foxtable.exe.config，在以下节点添加红字的这部分内容：

 ……  

  <runtime>  

    <AppContextSwitchOverrides value="Switch.UseLegacyAccessibilityFeatures=false" />  

    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">  

      <dependentAssembly>  

        <assemblyIdentity name="C1.C1Zip.4"  

          publicKeyToken="79882d576c6336da"  

          culture="neutral" />  

        <bindingRedirect oldVersion="4.0.20191.359" newVersion="4.0.20183.338" />  

      </dependentAssembly>  

      <dependentAssembly>  

        <assemblyIdentity name="C1.Win.Bitmap.4"  

          publicKeyToken="944ae1ea0e47ca04"  

          culture="neutral" />  

        <bindingRedirect oldVersion="4.0.20183.338" newVersion="4.0.20191.359" />  

      </dependentAssembly>  

      <dependentAssembly>  

        <assemblyIdentity name="C1.C1Excel.4"  

          publicKeyToken="79882d576c6336da"  

          culture="neutral" />  

        <bindingRedirect oldVersion="4.0.20191.359" newVersion="4.0.20183.338" />  

      </dependentAssembly>  

      <dependentAssembly>  

        <assemblyIdentity name="Newtonsoft.Json"  

          publicKeyToken="30ad4fe6b2a6aeed"  

          culture="neutral" />  

        <bindingRedirect oldVersion="10.0.0.0" newVersion="12.0.0.0" />  

      </dependentAssembly>  

    </assemblyBinding>  

  </runtime>  

……

添加后保存。最后记得备份一下Foxtable.exe.config，因为如果升级Foxtable新版本，这个文件会被覆盖，需要重新改一下。

Dim AccessKey As String = "ak:Ehg1pAhTMECUH3ex_oLERYJMoKNrEX5ARi9Rtbag"

Dim SecretKey As String = "UI_zfLTJ9Vt9JLd6FkpPsnQJYVPWuI_rz2_volPn"

Dim Bucket As String = "whale315"

Dim config As new Qiniu.Storage.Config()

config.Zone = Qiniu.Storage.Zone.ZONE_CN_East

Dim mac As new Qiniu.Util.Mac(AccessKey, SecretKey)

Dim bucketManager As new Qiniu.Storage.BucketManager(mac, config)

Dim statRet As Qiniu.Storage.StatResult  = bucketManager.Stat(Bucket, key)

If statRet.Code = 200

    Output.Show(statRet.Result.Hash)

    Output.Show(statRet.Result.MimeType)

    Output.Show(statRet.Result.Fsize)

    Output.Show(statRet.Result.MimeType)

    Output.Show(statRet.Result.FileType)

Else

    Output.Show("stat error: " + statRet.ToString())

End If