'定义一个可排序的字典
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))
Next
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¬ify_url=http://www.aaa.com/notify_url.php&pid=20220726190052¶m=金色 256G&return_url=http://www.baidu.com&sign=" & sign & "&sign_type=MD5&type=alipay"
Output.Show(url)