منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : جلب أسعار العملات محدثه من الانترنت
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 

أشتغلت مشروع من سنه و كنت محتاج فية تحويل العملات وقمت بذلك عن طريق الكود الاتي:

PHP كود :
Public Function Get_Currency_Rate(ByVal currFromName As StringByVal currToName As String) As Double
        Try
            Dim result 
As Double 0.0
            Dim wbServiceLink 
"http://" "www.finance.yahoo.com/d/quotes.csv?e=.csv&f=sl1d1t1&s={0}{1}=X" 'This line has splitted for remove fb link encryption
            Dim url As String = String.Format(wbServiceLink, currFromName, currToName)
            Dim client As New WebClient()
            Dim rates As String = client.DownloadString(url) '
Returns""SAREGP=X",1.8355,"11/19/2013","8:53pm""
 
           Dim rate_part As String Split(rates",")(1)
 
           If Double.TryParse(rate_partresultThen
                result 
CDbl(rate_part)
 
           End If
 
           Return result
        Catch ex 
As Exception
            MsgBox
(ex.Message)
 
       End Try
 
   End Function 

لكن yahoo من فترة قطعت الخدمة واصبح الان الكود يعطي الخطأء 403 

بحثت عن طرق اخرى بالانترنت لكن جميعها لا تعمل 
هل من احد يفيدني بهالخصوص وشكرا.