الشكر لله اخى الكريم
فى ردي السابق كل ما قمت به هو توصيل لك الفكرة
وان الامر بكل بساطة هو استخدام الرابط على امل انك على دراية
كيفية جلب البيانات من الرابط من ثم استخدامها
لكن لا عليك اخى اليك استخدام الكود بـ VB6
فى البداية الكود المطلوب استخدامه هو
كود :
Dim objHttp As Object, strURL As String, strText As String
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
strURL = "https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today"
objHttp.Open "GET", strURL, False
objHttp.setRequestHeader "User-Agent", _
"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHttp.Send ("")
strText = objHttp.responseText
Set objHttp = Nothing
Dim Text_ As String
Text_ = strText
Text_ = Replace(Text_, """", "")
Text_ = Replace(Text_, "{", "")
Text_ = Replace(Text_, "}", "")
Text_ = Replace(Text_, "results", "")
Text_ = Replace(Text_, "sunrise", "")
Text_ = Replace(Text_, "sunset", "")
Text_ = Replace(Text_, "solar_noon", "")
Text_ = Replace(Text_, "day_length", "")
Text_ = Replace(Text_, "status", "")
Text_ = Replace(Text_, "civil_twilight_begin", "")
Text_ = Replace(Text_, "civil_twilight_end", "")
Text_ = Replace(Text_, "nautical_twilight_begin", "")
Text_ = Replace(Text_, "nautical_twilight_end", "")
Text_ = Replace(Text_, "astronomical_twilight_begin", "")
Text_ = Replace(Text_, "astronomical_twilight_end", "")
Text_ = Replace(Text_, "::", "")
Text_ = Replace(Text_, ",:", ",")
Text_ = Replace(Text_, ",OK", "")
Dim TextSpl() As String
TextSpl = Split(Text_, ",")
كل ما عليك هو استبدال هذا الرابط
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today
بالرابط الذى يحتوى على احداثيات المدينة او الدولة ...
مع تغيير كلمة today الى تاريخ او تركها كما هى اذا كنت تريد جلب حسب اليوم
ثانياً لاستخدام عرض تفاصيل الكود فقط كل ما عليك فعله استخدام السطر التالى
كمثال لعرض البيان فى رسالة
أو مثلاً
كود :
Text1.Text = TextSpl(0)
طيب لو محتاج اعرض جميع النتائج
كود :
Text1.Text = TextSpl(0) ' Sunrise
Text2.Text = TextSpl(1) ' Sunset
Text3.Text = TextSpl(2) ' Solar Noon
Text4.Text = TextSpl(3) ' Day Length
Text5.Text = TextSpl(4) ' Civil Twilight Begin
Text6.Text = TextSpl(5) ' Civil Twilight End
Text7.Text = TextSpl(6) ' Nautical Twilight Begin
Text8.Text = TextSpl(7) ' Nautical Twilight End
Text9.Text = TextSpl(8) ' Astronomical Twilight Begin
Text10.Text = TextSpl(9) ' Astronomical Twilight End
اتمنى ان الصورة كملت حتى النهاية
وان الكود وطريقة الاستخدام ابسط من ما يكون
تحياتى لك
وتمنياتى لك التوفيق