[مساعدة]

السلام عليكم

كل موقع له تركيبة تختلف عن غيره

تفضل الكود

كود :

'سعر الشراء
Dim BuyPrice As Double
'سعر البيع
Dim SellPrice As Double

'البنك الأهلي المصري
Dim NationalBankOfEgyptUrl As String = "http://www.nbe.com.eg/ExchangeRate.aspx"
Dim NationalBankOfEgyptPtr As String = "(?<=value=')[\d+\.?]+?(?=' id=""txtBanKNote)"

'البنك المركزي المصري
Dim CentralBankEgyptUrl As String = "http://www.cbe.org.eg/ar/EconomicResearch/Statistics/Pages/ExchangeRatesListing.aspx"
Dim CentralBankEgyptPtr As String = "(?<=<td>)[\d+\.?]+?(?=</td>)"

'بنك القاهرة
Dim BanqueDuCaireUrl As String = "http://www.banqueducaire.com/Arabic/MarketUpdates/Pages/CurrencyExchange.aspx"
Dim BanqueDuCairePtr As String = "(?<=<td class=""ms-vb"">)[\d+\.?]+?(?=</td>)"

Function GetData(url As String, ptr As String) As Boolean
    Try
        Using wc As New Net.WebClient() With {.Encoding = System.Text.Encoding.UTF8}
            Dim s As String = wc.DownloadString(url)
            Dim ms As MatchCollection = Regex.Matches(s, ptr)
            If ms.Count Then
                BuyPrice = ms(0).Value
                SellPrice = ms(1).Value
            End If
        End Using
        Return True
    Catch ex As Exception
        MsgBox(ex.Message)
        Return False
    End Try
End Function

وطريقة التعامل مع الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If GetData(NationalBankOfEgyptUrl, NationalBankOfEgyptPtr) Then
        TextBox1.Text = BuyPrice
        TextBox2.Text = SellPrice
    End If
End Sub

كما ترى لكل بنك له Url وPtr تستطيع التغيير بينها في الكود
على سبيل المثال
غير NationalBankOfEgyptUrl إلى CentralBankEgyptUrl مع تغيير NationalBankOfEgyptPtr إلى CentralBankEgyptPtr