Sub Button1_Click
'Send a GET request
job3.Initialize("Job3", Me)
job3.Download("http://www.tcmb.gov.tr/kurlar/today.xml")
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
Dim tcmb As String
Dim USD As String
If Job.Success = True Then
Log(Job.GetString)
tcmb = Job.GetString
tcmb=tcmb.SubString(200)
Log("result1=" & tcmb.Length) '6773
Log("result2=" & tcmb.IndexOf("US DOLLAR</CurrencyName><ForexBuying>")) '74
USD= tcmb.SubString2(74,30)
'Log(tcmb.SubString2(tcmb.IndexOf("US DOLLAR</CurrencyName><ForexBuying>"),4))
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub