主题：[讨论] 求值

照抄

Dim sURL As String = "https://mws.amazonservices.com/"

Dim sRequest As String = ""
sRequest &= "Acknowledged=" & UrlEncode("false")
sRequest &= "&Action=" & UrlEncode("GetReportList")
sRequest &= "&AWSAccessKeyId=" & UrlEncode("REMOVED-FOR-SECURITY")
sRequest &= "&Marketplace=" & UrlEncode("REMOVED-FOR-SECURITY")
sRequest &= "&Merchant=" & UrlEncode("REMOVED-FOR-SECURITY")
sRequest &= "&SignatureMethod=" & UrlEncode("HmacSHA256")
sRequest &= "&SignatureVersion=" & UrlEncode("2")
sRequest &= "&Timestamp=" & UrlEncode(DateTime.Now.ToString("yyyy-MM-ddTHH:mm:ssCST"))
sRequest &= "&Version=" & UrlEncode("2009-01-01")

Dim StringToSign As String = "GET\n" & "mws.amazonservices.com\n" & "/\n" & sRequest
Dim myEncoder As New System.Text.UTF8Encoding
Dim Key() As Byte = myEncoder.GetBytes("REMOVED-FOR-SECURITY")
Dim XML() As Byte = myEncoder.GetBytes(StringToSign)
Dim myHMACSHA256 As New System.Security.Cryptography.HMACSHA256(Key)
Dim HashCode As Byte() = myHMACSHA256.ComputeHash(XML)

Dim result = Convert.ToBase64String(HashCode)

sRequest &= "&Signature=" & UrlEncode(result)
msgbox(sRequest)

1、4楼的代码，是照抄3楼代码的。如果3楼代码正常，4楼代码绝对没问题。

2、贴出你执行的代码，输入的值是什么？运行后输出的值是什么？正常输出的值应该是什么？

1、帮助文档、开发文档，直接发出来看看。（完整的网址或者完整的文档文件）

2、如果没有正确的输入值和输出值，别人无从测试。

3、你调用的接口，别人没有给你实例？

1、在给的例子那里，直接运行代码，输入值，得到的值是什么？

2、把代码改写到foxtable，输入值，输出得到的值和1的不同？

3、请直接把帮助文档发出来看吧。

1、使用调试器调试

https://mws.amazonservices.com.cn/scratchpad/index.html

2、认认真真看文档，整体看完理解，你再测试吧

https://developer.amazonservices.com.cn/