Vb.net projesine güncel kur bilgisi nasıl çekilir?

[karakrall01]

Herkese kolay gelsin,
Vb.net projeme

Bağlantıları görmek için lütfen Giriş Yap

sitesinden anlık olarak kur fiyatlarını çekmek istiyorum. Bununla ilgili bana yardımcı olabilecek kod blogu veya proje önerebilir misiniz? Şimdiden teşekkürler vermiş olduğunuz bilgiler için.

 

[Cromeflex]

Senin verdiğin siteden çekemedim bende başka site kullandım
Öncelikle NugetPackages kısmından HtmlAgilityPack indir ve

---

Imports System.Net
Imports System.Text
Imports HtmlAgilityPack

BunlarıTanımla. Ondan sonra bu değişkenleri tanımla

Dim doc As HtmlDocument
Dim wc As WebClient

---

Ardından Form'un load eventine(Form'a çift tıklayınca açılan ekran)

ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
doc = New HtmlAgilityPack.HtmlDocument()
wc = New WebClient()
wc.Headers.Add("user-agent", Guid.NewGuid().ToString())
wc.Encoding = UTF8Encoding.UTF8
doc.LoadHtml(wc.DownloadString("https://bigpara.hurriyet.com.tr/doviz/"))

---

Sonra şöyle bir Void(Sub aç)

    Public Sub GetData(isim As String, index As Integer)
        Dim alis As HtmlNode = doc.DocumentNode.SelectSingleNode("//*[@id='content']/div[2]/div/div[6]/div/div[1]/div[2]/ul[" + index.ToString() + "]/li[3]")
        Dim satis As HtmlNode = doc.DocumentNode.SelectSingleNode("//*[@id='content']/div[2]/div/div[6]/div/div[1]/div[2]/ul[" + index.ToString() + "]/li[4]")
        MsgBox(isim + " Alış: " + alis.InnerText)
        MsgBox(isim + " Satış: " + satis.InnerText)
    End Sub

---

Kullanımı:

1. Sitede 1.index dolara gelmektedir
2. 2.index euroya
3. 3.index ingiliz sterlini. Siteyi incelersen indexin nasıl gittiğini anlarsın.

Kullanımı ise
GetData("Dolar",1)
GetData("Euro",2)

---

Full Kod

Imports System.Net
Imports System.Text
Imports HtmlAgilityPack

Public Class Form1
    Dim doc As HtmlDocument
    Dim wc As WebClient

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
        doc = New HtmlAgilityPack.HtmlDocument()
        wc = New WebClient()
        wc.Headers.Add("user-agent", Guid.NewGuid().ToString())
        wc.Encoding = UTF8Encoding.UTF8
        doc.LoadHtml(wc.DownloadString("https://bigpara.hurriyet.com.tr/doviz/"))
        GetData("Dolar", 1)
    End Sub
    Public Sub GetData(isim As String, index As Integer)
        Dim alis As HtmlNode = doc.DocumentNode.SelectSingleNode("//*[@id='content']/div[2]/div/div[6]/div/div[1]/div[2]/ul[" + index.ToString() + "]/li[3]")
        Dim satis As HtmlNode = doc.DocumentNode.SelectSingleNode("//*[@id='content']/div[2]/div/div[6]/div/div[1]/div[2]/ul[" + index.ToString() + "]/li[4]")
        MsgBox(isim + " Alış: " + alis.InnerText)
        MsgBox(isim + " Satış: " + satis.InnerText)
    End Sub
End Class

*Düzeltme
Senin verdiğin sitedende çektim çok istersen özelden yaz onuda atabilirim. Çok ufak bir şeyi yanlış yapmışım

 

[karakrall01]

Senin verdiğin siteden çekemedim bende başka site kullandım
Öncelikle NugetPackages kısmından HtmlAgilityPack indir ve

---

Imports System.Net
Imports System.Text
Imports HtmlAgilityPack

BunlarıTanımla. Ondan sonra bu değişkenleri tanımla

Dim doc As HtmlDocument
Dim wc As WebClient

---

Ardından Form'un load eventine(Form'a çift tıklayınca açılan ekran)

ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
doc = New HtmlAgilityPack.HtmlDocument()
wc = New WebClient()
wc.Headers.Add("user-agent", Guid.NewGuid().ToString())
wc.Encoding = UTF8Encoding.UTF8
doc.LoadHtml(wc.DownloadString("https://bigpara.hurriyet.com.tr/doviz/"))

---

Sonra şöyle bir Void(Sub aç)

    Public Sub GetData(isim As String, index As Integer)
        Dim alis As HtmlNode = doc.DocumentNode.SelectSingleNode("//*[@id='content']/div[2]/div/div[6]/div/div[1]/div[2]/ul[" + index.ToString() + "]/li[3]")
        Dim satis As HtmlNode = doc.DocumentNode.SelectSingleNode("//*[@id='content']/div[2]/div/div[6]/div/div[1]/div[2]/ul[" + index.ToString() + "]/li[4]")
        MsgBox(isim + " Alış: " + alis.InnerText)
        MsgBox(isim + " Satış: " + satis.InnerText)
    End Sub

---

Kullanımı:

1. Sitede 1.index dolara gelmektedir
2. 2.index euroya
3. 3.index ingiliz sterlini. Siteyi incelersen indexin nasıl gittiğini anlarsın.

Kullanımı ise
GetData("Dolar",1)
GetData("Euro",2)
Ekli dosyayı görüntüle 82318 Ekli dosyayı görüntüle 82319

---

Full Kod

Imports System.Net
Imports System.Text
Imports HtmlAgilityPack

Public Class Form1
    Dim doc As HtmlDocument
    Dim wc As WebClient

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
        doc = New HtmlAgilityPack.HtmlDocument()
        wc = New WebClient()
        wc.Headers.Add("user-agent", Guid.NewGuid().ToString())
        wc.Encoding = UTF8Encoding.UTF8
        doc.LoadHtml(wc.DownloadString("https://bigpara.hurriyet.com.tr/doviz/"))
        GetData("Dolar", 1)
    End Sub
    Public Sub GetData(isim As String, index As Integer)
        Dim alis As HtmlNode = doc.DocumentNode.SelectSingleNode("//*[@id='content']/div[2]/div/div[6]/div/div[1]/div[2]/ul[" + index.ToString() + "]/li[3]")
        Dim satis As HtmlNode = doc.DocumentNode.SelectSingleNode("//*[@id='content']/div[2]/div/div[6]/div/div[1]/div[2]/ul[" + index.ToString() + "]/li[4]")
        MsgBox(isim + " Alış: " + alis.InnerText)
        MsgBox(isim + " Satış: " + satis.InnerText)
    End Sub
End Class

Ekli dosyayı görüntüle 82321

Teşekkür ederim sağolun