VB 6.0_İnternet üzerinden döviz kuru alma

[NBATMAN]

Merhaba,

Ben aşağıdaki kodları 2010 yılında yazmıştım. Bu kodlar ile günlük (anlık ) olarak alış ve satış cinsinden USD,Euro ve Euro/USD paritesini çekiyorum. Ve bugün denedim hala çalışıyor.Umarım işe yarar...

Private Sub Command1_Click()
Dim strkur As String
strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html")
Text1.Text = Mid(strkur, InStr(strkur, "USD") + 42, 6)
Text2.Text = Mid(strkur, InStr(strkur, "USD") + 55, 6)
Text3.Text = Mid(strkur, InStr(strkur, "EUR") + 42, 6)
Text4.Text = Mid(strkur, InStr(strkur, "EUR") + 55, 6)
Text5.Text = Mid(strkur, InStr(strkur, "EUR/USD") + 42, 6)
Text10.Text = Text2.Text / Text4.Text
End Sub

Private Sub Form_Load()
Dim strkur As String
strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html")
Text1.Text = Mid(strkur, InStr(strkur, "USD") + 42, 6)
Text2.Text = Mid(strkur, InStr(strkur, "USD") + 55, 6)
Text3.Text = Mid(strkur, InStr(strkur, "EUR") + 42, 6)
Text4.Text = Mid(strkur, InStr(strkur, "EUR") + 55, 6)
Text5.Text = Mid(strkur, InStr(strkur, "EUR/USD") + 42, 6)
Text10.Text = Text2.Text / Text4.Text
End Sub