关于fx使用zpay支付平台的求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'定义一个可排序的字典

Dim lst As New SortedDictionary(Of String, String)(StringComparer.Ordinal)

lst.Add("name", "iphone xs Max 一台")

lst.Add("money", "0.03")

lst.Add("out_trade_no", "201911914837526544601")

lst.Add("notify_url", "http://www.aaa.com/notify_url.php")

lst.Add("pid", "20220726190052")

lst.Add("param", "金色 256G")

lst.Add("return_url", "http://www.baidu.com")

lst.Add("type", "alipay")

'按顺序拼接参数

Dim su As New StringBuilder

For Each key As String In lst.keys

su.AppendFormat("&{0}={1}", key, lst(key))

Dim s As String = su.ToString().trimstart("&") & "vg9ZRZN4FOKtDM06UfqH69GDJoG4gGIJ"

'MD5加密

Dim sign As String = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(s, "MD5").Tolower

Dim url As String = "https://zpayz.cn/submit.php?name=iphone xs Max 一台&money=0.03&out_trade_no=201911914837526544601&notify_url=http://www.aaa.com/notify_url.php&pid=20220726190052&param=金色 256G&return_url=http://www.baidu.com&sign=" & sign & "&sign_type=MD5&type=alipay"

Output.Show(url)

主题：关于fx使用zpay支付平台的求助