Új hozzászólás Aktív témák

• #37376 Vision veterán

  Új Válasz 2018-02-20 15:07:47 #37376

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Vision

  veterán

  Sziasztok,

  SOAP kapcsolatom paraméterezésével van gondolom. MNB árfolyamokat akarok lekérdezni, de a weboldalon nem találtam épkézláb segédletet hozzá. PHP/Java példa van, de szerintem azzal itt nem sokra megyek!

  Public Sub MNB_arfolyamok()

Dim sURL As String
Dim sEnv As String

Set objHttp = CreateObject("MSXML2.XMLHTTP")
sURL = "http://www.mnb.hu/arfolyamok.asmx?wsdl"


sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope"">"
sEnv = sEnv & " <soap:Header>"
sEnv = sEnv & " <soap:Body>"
sEnv = sEnv & " <soap:Request>"
sEnv = sEnv & " <soap:GetCurrentExchangeRates></soap:GetCurrentExchangeRates>"
sEnv = sEnv & " </soap:Request>"
sEnv = sEnv & " </soap:Header>"
sEnv = sEnv & " </soap:Body>"
sEnv = sEnv & "</soap:Envelope>"


objHttp.Open "GET", sURL, False
objHttp.setRequestHeader "Content-Type", "text/xml"

objHttp.send sEnv
MsgBox objHttp.responseText

End Sub

Új hozzászólás Aktív témák