Connecting to PaymentTrust's Secure Transaction Network - WorldPay

VB code sample
Communication with STLink can be performed via the Internet Transfer Control.
The following code fragment illustrates sending of HTTPS GET/POST data to STLink. Both
examples assume the Internet Transfer Control is called ‘Inet’. HTTP data is similar except
references to HTTPS are directed to HTTP.
Transmission via HTTPS GET
Dim URL As String
URL = "
https://www.paymenttrust.ca/stlinkssl/test/stlink.dll?StringIn=VersionUsed^3~MerchantId^100000
~UserName^Mariah~UserPassword^rr87uy~TransactionType^RG~IsTest^1~TimeOut^60000~M
OP^CC~AcctName^John
Smith~AcctNumber^4459510002561039~ExpDate^092010~CurrencyId^840~Amount^56.78~Firs
tName^John~LastName^Smith~Address1^2130 Gold~City^New
York~CountryCode^US~PhoneNumber^6188565656~REMOTE_ADDR^205.188.146.23"
' this routine sends a string to STLink using a GET method and assigns the returned data to a text
box
Inbox.Text = Inet1.OpenURL(URL) + vbCrLf
Transmission via HTTPS POST
Dim POSTstring As String
Dim URL As String
POSTstring = "
https://www.paymenttrust.ca/stlinkssl/test/stlink.dll?StringIn=VersionUsed^3~MerchantId^100000
~UserName^Mariah~UserPassword^rr87uy~TransactionType^RG~IsTest^1~TimeOut^60000~M
OP^CC~AcctName^John
Smith~AcctNumber^4459510002561039~ExpDate^092010~CurrencyId^840~Amount^56.78~Firs
tName^John~LastName^Smith~Address1^2130 Gold~City^New
York~CountryCode^US~PhoneNumber^6188565656~REMOTE_ADDR^205.188.146.23"
' This routine sends a string to STLink using a POST method
' Note: POST requests do not have query strings appended to the URL
URL = "https://www.paymenttrust.ca/stlinkssl/test/stlink.dll"
Inet1.Execute URL, "POST", POSTstring
268