Тема: VBScript: получение курса валюты из Интернета
Небольшой скрипт для получения курса американского доллара с сайта Центробанка на указанную пользователем дату:
Dim sURI
Dim oHttp
Dim htmlcode, outstr,doldat
Dim inpdate
Dim d, m, y
inpdate = CDate(InputBox("Для получения курса американского доллара введите дату в формате ДД.ММ.ГГГГ", "Ввод дата", Date))
d = Mid(inpdate,1,2)
m = Mid(inpdate,4,2)
y = Mid(inpdate,7,4)
sURI = "http://cbr.ru/currency_base/daily.asp?C_month= " & _
m & "&C_year=" & y & "&date_req=" & d & "%2F" & _
m & "%2F" & y
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If oHttp Is Nothing Then
End If
oHttp.Open "GET", sURI, False
oHttp.Send
htmlcode = oHttp.responseText
outstr = Mid(htmlcode, InStr(1, htmlcode, "USD") + 85, 7)
Set oHttp = Nothing
doldat=InputBox("Курс американского доллара на " & inpdate & " составляет:","Курс доллара",outstr & " рублей")
Автор скрипта - Alexbootch.
Тема в Коллекции по связанной тематике: AutoIt: Просмотр курса валют и конвертации [Валюта] <-> [Рубль]
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.