-
Get Key
XML 2010
To access a website's xml feed I need to get a password everyday and then include it in my data request.
Below is my attempt at the code to get the password. And below that is the html request and response code.
Any help would be greatly appreciated as I really am out of my depth with this stuff
Ta,
Martin
[VBA]Sub GetKey()
Dim xmldoc As MSXML2.DOMDocument
Dim XML As Object
Set xmldoc = New MSXML2.DOMDocument
xmldoc.async = False
xmldoc.Load ("")
Set deviceId = 10000012
Set jurisdictionId = 2
Set requestChannel = 1
Set accountId = 123456
Set accountPassword = pass2
'Set XML = server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
'The username and password are the 4th and 5th parameters respectivly
'XML.Open "GET", strURL, False, strUsername, strPassword
'XML.send ("")
End Sub[/VBA]
<soapenv:Envelope xmlns:ser="" xmlns:soapenv="">
<soapenv:Header/>
<soapenv:Body>
<ser:authenticateAccount>
<apiMeta>
<!--Optional:-->
<deviceId>1000001</deviceId>
<jurisdictionId>2</jurisdictionId>
<requestChannel>1</requestChannel>
</apiMeta>
<authRequest>
<accountId>1471594</accountId>
<accountPassword>password02</accountPassword>
</authRequest>
</ser:authenticateAccount>
</soapenv:Body>
</soapenv:Envelope>
<soap:Envelope xmlns:soap="">
<soap:Body>
<ns2:authenticateAccountResponse xmlns:ns2="">
<return>
<accountBalance>1471380.4</accountBalance>
<accountId>1471594</accountId>
<emailId>rabbit@rabbittt.com.au</emailId>
<firstName>Rabbit</firstName>
<jurisdictionId>1</jurisdictionId>
<lastName>Better</lastName>
<tierCode>0</tierCode>
<usernamePasswordToken>UOyIk1KngqQ3BKPca3yNYv9xvjblUeQt</usernamePasswordToken>
</return>
</ns2:authenticateAccountResponse>
</soap:Body>
</soap:Envelope>
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules