При каждом запуске нужен курс доллара!!!

[K Victor A]

помогите реализовать такую возможность, чтобы при загрузке формы текстбох содержал курс доллара на сегодняшний день. и с какого веб ресурса лучше взять!? заранее спасибо.

[DeMONiZ]

Парсь с яндекса к примеру

[K Victor A]

конечно, его много где можно взять, а именно как это сделать из VB6!?!?!??!?!?!!??!!?!??!?!!?!?!??!??!!?!?

[DeMONiZ]

к примеру вот код переделай под себя:

Код: Выделить всё


Private Sub Command1_Click()
Dim Doc As IHTMLDocument2
    Set Doc = WebBrowser1.Document
 
       
 
        Dim Tables As IHTMLElementCollection
        Set Tables = Doc.All.tags("table")
        Dim Quote As IHTMLElement
        Set Quote = Tables.Item(0, 0).All.tags("TD").Item(0, 1)
        MsgBox Quote.innerText

End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "Сайт"
End Sub


а вот так будет понятнее как это работает:

Код: Выделить всё

Private Sub Command1_Click()
Dim Doc As IHTMLDocument2
    Set Doc = WebBrowser1.Document
 
       
 
        Dim Tables As IHTMLElementCollection
        Set Tables = Doc.All.tags("table")
        Dim Quote As IHTMLElement
        Set Quote = Tables.Item(0, 0).All.tags("TD").Item(0, 1)
        MsgBox Quote.innerText

End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "C:\1.htm"
End Sub




и собственно создай 1.htm файл
с таким содержанием:

Код: Выделить всё

<table>
<tr>
<td>МИша
</td>
<td>Вася
</td>
<td>Петя
</td>
</tr>
</table>



и потренируйся на нем!

[K Victor A]

Вот спасибо огромное!!! а как избежать такой проблемы?: сайт не успел еще загрузиться, а запрос курса уже происходит и вот тие на ошибка

[DeMONiZ]

к примеру так:

Код: Выделить всё

Private Sub Command1_Click()
WebBrowser1.Navigate "yandex.ru"
While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
Dim Doc As IHTMLDocument2
    Set Doc = WebBrowser1.Document
 
       
 
        Dim Tables As IHTMLElementCollection
        Set Tables = Doc.All.tags("table")
        Dim Quote As IHTMLElement
        Set Quote = Tables.Item(0, 0).All.tags("TD").Item(0, 1)
        MsgBox Quote.innerText

End Sub




[K Victor A]

спасибо дружище, выручил!!!

[arvitaly]

http://www.cbr.ru/scripts/XML_daily.asp ... 13/05/2009

думаю тут удобнее чем с яндекса.

[ALX_2002]

Поддерживаю предложение arvitaly:

http://www.cbr.ru/scripts/Root.asp?Prtid=SXML

Там же в конце набор примеров именно на VB6