+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 String, ByVal 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_part, result) Then
result = CDbl(rate_part)
End If
Return result
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
لكن yahoo من فترة قطعت الخدمة واصبح الان الكود يعطي الخطأء 403
بحثت عن طرق اخرى بالانترنت لكن جميعها لا تعمل
هل من احد يفيدني بهالخصوص وشكرا.
بحثت عن طرق اخرى بالانترنت لكن جميعها لا تعمل
هل من احد يفيدني بهالخصوص وشكرا.