منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
جلب أسعار العملات محدثه من الانترنت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب أسعار العملات محدثه من الانترنت (/showthread.php?tid=22963)



جلب أسعار العملات محدثه من الانترنت - Rabeea Qbaha - 17-12-17

السلام عليكم 

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

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 

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