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

Imports System.Net
Imports System.Text
Imports HtmlAgilityPack

Dim doc As HtmlDocument
Dim wc As WebClient

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/"))

    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

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

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

Cromeflex' Alıntı:

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

---

Visual Basic:

Imports System.Net
Imports System.Text
Imports HtmlAgilityPack

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

VB.Net:

Dim doc As HtmlDocument
Dim wc As WebClient

---

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

VB.Net:

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ç)

VB.Net:

    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

VB.Net:

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

Genişletmek için tıklayın ...