vb.net for 支付宝接口代码，非常精简的!

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

                If PName = "" Then PName = ConfigTlb.Rows(0)("AlipayName")
                If PKey = "" Then PKey = ConfigTlb.Rows(0)("AlipayCheck")
                If PID = "" Then PID = ConfigTlb.Rows(0)("AlipayID")

                If PName = "" Then MessgBox("请设置支付宝接口的支付宝帐号","",2)
                If PKey = "" Then MessgBox("请设置支付宝接口的合作者身份(PID)",2)
                If PID = "" Then MessgBox("请设置支付宝接口的安全校验码(Key)",2)

                Dim prestr As String = "_input_charset=utf-8"
                prestr &= "&anti_phishing_key=" & NewGUID()
                prestr &= "&body=" & Trim(Title)
                prestr &= "&exter_invoke_ip=" & GetIp()
                prestr &= "&extra_common_param=1"
                prestr &= "&notify_url=" & ConfigTlb.Rows(0)("WebHttp") & ConfigTlb.Rows(0)("Alipaynotify_url")
                prestr &= "&out_trade_no=" & OrderID
                prestr &= "&partner=" & PID
                prestr &= "&payment_type=1"
                prestr &= "&paymethod=directPay"
                prestr &= "&return_url=" & ConfigTlb.Rows(0)("WebHttp") & ConfigTlb.Rows(0)("Alipayreturn_url")
                prestr &= "&seller_email=" & PName
                prestr &= "&service=create_direct_pay_by_user"
                prestr &= "&show_url=http://" & HttpContext.Current.Request.ServerVariables("SERVER_NAME")
                prestr &= "&subject=" & Trim(Title)
                prestr &= "&total_fee=" & PayMoeny
                Dim mysign As String = ""
                Dim md5 As System.Security.Cryptography.MD5 = New System.Security.Cryptography.MD5CryptoServiceProvider()
                Dim t As Byte() = md5.ComputeHash(Encoding.UTF8.GetBytes(prestr & PKey))
                For i As Integer = 0 To t.Length - 1
                    mysign &= t(i).ToString("x")
                Next
                Return "https://mapi.alipay.com/gateway.do?&sign=" & mysign & "&sign_type=MD5&" & prestr

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!