dispatch req = "Microsoft.XmlHttp"

   dispatch req = "MSXML2.XmlHttp"

float sub PobierzKurs(string sWaluta, string sData)

   date dDataNBP
   dDataNBP.FromStr( sData )

   dispatch req = "MSXML2.XmlHttp"
   dispatch xml = "Microsoft.XMLDOM"
   dispatch exp = "VBScript.RegExp"
   dispatch mat

   exp.Global = 1
   exp.IgnoreCase = 1
   
   dispatch xmlPOZYCJE
   dispatch xmlPOZYCJA
      dispatch xmlKOD_WALUTY
      dispatch xmlKURS_SREDNI


   string sWybranyXML   
   string url = "http://www.nbp.pl/kursy/xml/dir.txt"
   int iPozycje   

   req.open ("GET", url, 0)
   req.send
      
   exp.pattern = (using "a([0-9]{3})z%s%2.2d%2.2d", mid((using "%d", dDataNBP.Year ),3,2), dDataNBP.Month, dDataNBP.Day)
   mat = exp.Execute( req.responseText )

   if mat.count() == 1 then sWybranyXML = mat.item(0).value

   xml.async = 0
   xml.Load( "http://www.nbp.pl/kursy/xml/" + sWybranyXML +".xml" )

   xmlPOZYCJE = xml.getElementsByTagName("pozycja")

   for iPozycje = 0 to iPozycje > xmlPOZYCJE.length - 1

      xmlPOZYCJA = xmlPOZYCJE.item( iPozycje )

      if xmlPOZYCJA.getElementsByTagName("kod_waluty").item(0).text == sWaluta then
   
         PobierzKurs = val(xmlPOZYCJA.getElementsByTagName("kurs_sredni").item(0).text)

      endif

   next iPozycje

endsub

int sub OnOpen()
   PopUp ( 1, "Trwa aktualizacja kursu walut. Proszę czekać..." )
   
   If SprawdzKurs("EUR",AktualnaData) == 0 Then
      For ForStep=0 To ForStep > 7
         DateObject.SubDays(1)
         AktualnaData = DateObject.DateToStr()
         WartoscWaluty = PobierzKurs("EUR",AktualnaData)   
         PopUp ( 2, "Sprawdzam kurs dla: " + AktualnaData )      
         If WartoscWaluty > 0 Then
            If SprawdzKurs("EUR",AktualnaData) == 0 Then
               DodajKurs("EUR",AktualnaData,WartoscWaluty)
               NewValueCounter = NewValueCounter + 1
            Endif
         Endif
      Next ForStep
   Endif

   If NewValueCounter > 0 Then Message "Kurs walut został zaktualizowany!"
   OnOpen = 0
endsub