OpenSRS API Integration for XML

More documents

Recommendations

Info

} $res = fgets ($fp, 1024); echo htmlEntities($res); } fclose ($fp); echo ""; ?> VB6 example Thanks to Serguei Seleznev from Softcom Technology for developing this script. This Script is using di_MD5DLL.dll from DI Management. This is free cryptographic software code that David Ireland has written or adapted in Visual Basic and ANSI C. http://www.di-mgt.com.au/crypto.html#MD5 Dim ErrNumber As Long Dim ErrDescription As String Const strUserName = "RSP_USERNAME" Const strPrivateKey = "Your Private Key Go’s here” Const strURL = "https://horizon.opensrs.net:55443" Private Declare Function MakeMD5Digest Lib "di_MD5DLL.dll" _ (ByVal sData As String, ByVal sDigest As String) As Long Sub Main() ' POST XML document using VB6 and MSXML4(has to be installed) Dim DocToSend As MSXML2.DOMDocument Dim pFileRequest As String Dim strXML As String
On Error GoTo err_Main pFileRequest = App.Path & "\Sample.XML" strXML = "" Set DocToSend = New MSXML2.DOMDocument If Not ReadXMLDocument(pFileRequest, DocToSend) Then MsgBox "Cannot read " & pFileRequest & vbCrLf & _ ErrNumber & ", " & ErrDescription, vbCritical Exit Sub End If If SendRequestXML(DocToSend, strXML, strURL) Then MsgBox "Response has come. " & strXML ' here you may save to file or reload in DOMdocument to parse Else MsgBox "Cannot send " & DocToSend.xml & vbCrLf & _ ErrNumber & ", " & ErrDescription, vbCritical Exit Sub End If Set DocToSend = Nothing Exit Sub err_Main: ErrNumber = Err.Number ErrDescription = "Run-time ERROR in Main. " & Err.Description MsgBox "Error " & ErrNumber & ", " & ErrDescription, vbCritical End Sub Private Function SendRequestXML( _ ByRef pXMLDoc As MSXML2.DOMDocument, _ ByRef pcTmp As String, _ ByVal pstrURL As String _
Page 1 and 2: OpenSRS API Integration for XML
Page 3 and 4: Introduction Welcome to the OpenSRS
Page 5 and 6: Connection Information Live product
Page 7 and 8: Troubleshooting HTTPS Post Note: Th
Page 9 and 10: Protocol message structure DTD An O
Page 11 and 12: Example ? ? The data struct
Page 13 and 14: OPS message examples Example 1 This
Page 15 and 16: Tom Jones Semantic validity an
Page 17 and 18: Example 2 The following two data bl
Page 19 and 20: VB6 Using the “di_MD5DLL.dll” f
Page 21 and 22: ( %in, $cgi) = (); # Required Perl
Page 23 and 24: # Perl Hash Output Of Response prin
Page 25: LOOKUP XCP example.com '; $s
Page 29 and 30: '' Else ' let's wait for a while ''
Page 31 and 32: ' ' ' MyDomainToLookup.com ' '
Page 33 and 34: public class SslClient { private St
Page 35 and 36: } catch (Exception ex) { throw new
Page 37 and 38: } public void setHost(String host)
Page 39 and 40: catch (TaskExecuteException e) { }
Page 41 and 42: Process Description The only differ
Page 43 and 44: Private key DES only supports keys
Page 45 and 46: Code 415 Response text / Explanatio
Page 47 and 48: Code Response text / Explanation No

OpenSRS API Integration for XML

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?