Quickpay API - cancel med VBS
Hejsa,Jeg prøver at få hul igennem til quickpay API med VBS. Jeg får også kommunikeret nogle data, bare ikke på en sådan måde at jeg får udført min cancel. Der skal komme et xml dokument der melder ordrenummer, beløb etc. Samt <qpstat>000</qpstat>...
Eksempel på php kode er her: http://www.eksperten.dk/spm/948669
Og yderligere dokumentation: http://doc.quickpay.net/api.html
Min vbs kode:
Dim apikey, apisecret, apimsgtype, apimd5, apiprotocol, transaktion, myURL, postData, winHttpReq, oXMLDoc
transaktion = "42127628"
apikey = "SPN6L5AU41Z7F8723j2f1X9VJ2Dm257tH3de68pxv4Y48k9sQBu19nT1l45bh3Cw"
apisecret = "29p61DveBZ79c3144LW61lVz1qrwk2gfAFCxPyi5sn49m3Y3IRK5M6SN5d8a68u7"
apiprotocol = "4"
apimsgtype = "cancel"
apimerchant = "89898978"
myURL = "https://secure.quickpay.dk/api"
'Denne er beregnet via en anden komponent, men er lig MD5 af: &apiProtocol + &apiMsgtype + &apiMerchant + &Transaktion + &apiKey + &apiSecret
apimd5 = "1caf84877e2ae2746401c276b692d1e9"
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
Set oXMLDoc = CreateObject("MSXML2.DOMDocument")
postData = "protocol="+apiprotocol + "&msgtype="+apimsgtype +"&merchant="+apimerchant +"&transaction="+transaktion +"&md5check="+apiMd5
winHttpReq.Open "POST", myURL+"/"+postData, False
winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
winHttpReq.Send (postData)
dim szResponse: szResponse = winHttpReq.responseText
call oXMLDoc.loadXML(szResponse)
call oXMLDoc.Save("C:\quickpaycancel_vbs.xml")
Lidt transaktionsnumre at lege med (det er et testsetup):
Ordernumber: MW123d
Transaction: 42127628
MD5: 1caf84877e2ae2746401c276b692d1e9
Ordernumber: MW123e
Transaction: 42127647
MD5: bcc959a2dd79c229527daac435e50f8d
Ordernumber: MW123f
Transaction: 42127674
MD5: 6b6aea4fed7119f72824a79fae606b1d