Re: How to know actual rates?

Tech-Archive recommends: Fix windows errors by optimizing your registry

Thanks a lot
I tried, it works but only with USD, I have problems to use with CHF and EUR
I shall try to modify this code.
Thanks

C.
"TDM" <rpuffd@xxxxxxxxx> wrote in message
news:ezt5zbVlGHA.4512@xxxxxxxxxxxxxxxxxxxxxxx

"Carlos" <CarlosArteaga@xxxxxxxx> wrote in message
news:%23kg8IlSlGHA.3484@xxxxxxxxxxxxxxxxxxxxxxx
Hello all

I need use a vbs file that shows the rate of USD / Euros / SwissFrancs /
etc...
I dont know if exist a tool or a script or other thing that allows to me
to know the actual money rate.

Thanks for advices.

C.


Carlos,

This is likely not exactly what you want but you may be able to make it
work for you in some way. This script will get daily exchange rates
from a web site. I did this a while back, just playing around to answer
a different post. I dont advocate this sort of thing as web sites change
all the time and that can likely break the script. But, to my amazement,
it still works. You can easily modify this to output to a file or some
other
way of capturing what you want.

TDM

Dim objIe1
Dim objIe1Doc
Dim objFrm
Dim i

Const URL = "http://www.oanda.com/convert/fxdaily";

Set objIe1=WScript.CreateObject("InternetExplorer.Application")

With objIe1
.Visible = True
.Navigate URL
Do Until .ReadyState = 4
WScript.Sleep 50
Loop
End With

Set objIe1Doc = objIe1.Document

With objIe1Doc
For i = 0 To .getElementById("exch").Length - 1
If .getElementById("exch").Item(i).Value = "USD" Then
.getElementById("exch").Item(i).Selected = True
End If
Next
For i = 0 To .getElementById("Currency").Length - 1
.getElementById("Currency").Item(i).Selected = True
Next
.All.dest.click
End With

Set objIeDoc = Nothing

WScript.Sleep 5000

Set objIe1Doc = objIe1.Document

With objIe1Doc
For i = 0 To .Links.Length - 1
If InStr(1, .Links(i).href, "format=CSV", 1) Then
WScript.Echo .Links(i)
.Links(i).Click
Exit For
End If
Next
End With




.