+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] كود جلب الوقت والتاريخ اون لاين بدلاً من جلب الوقت والتاريخ للجهاز (/showthread.php?tid=29853)
كود جلب الوقت والتاريخ اون لاين بدلاً من جلب الوقت والتاريخ للجهاز - elgokr - 16-06-19
السلام عليكم ورحمة الله وبركاته
كود جلب الوقت والتاريخ لاى دولة اون لاين
بدلاً من اتمام جلب الوقت والتاريخ لجهاز العميل والتلاعب به
فى البداية قم بانشاء هذا الـ Function
كود :
Function GetDateTime(ByVal key As String) As String()
Dim WEB_ As New Net.WebClient
Dim GData As String = WEB_.DownloadString("https://timezoneapi.io/api/timezone/?Asia/Beirut&token=" & key)
Dim GetDT As String = GData.Split(",")(35).Replace("""", Nothing).Replace("date_time:", Nothing).Replace("\", Nothing)
Dim GetDate As String = GetDT.Split(Space(1))(0).Split("/")(1) & "/" & GetDT.Split(Space(1))(0).Split("/")(0) & "/" & GetDT.Split(Space(1))(0).Split("/")(2)
Dim GetTime As String = GetDT.Split(Space(1))(1)
Dim myDateTime As String() = New String() {GetDate, GetTime}
Return myDateTime
End Functionمن ثم قم باستخدام الكود كالتالى فى اى حدث
كود :
Try
Dim MyDate As String = GetDateTime("lNVzqaAeXkPQ")(0)
Dim MyTime As String = GetDateTime("lNVzqaAeXkPQ")(1)
TextBox1.Text = MyDate & " - " & MyTime
Catch ex As Exception
MsgBox(ex.Message)
End Tryركز على السطرين وهم
كود :
Dim MyDate As String = GetDateTime("lNVzqaAeXkPQ")(0)
Dim MyTime As String = GetDateTime("lNVzqaAeXkPQ")(1)وهو السطر الاول لجلب التاريخ
والسطر الثاني لجلب الوقت ( الوقت بهذا الكود خاص لبنان )
ناتى الى الاجزاء المهمة لفهم الكود كيف يعمل وكيف يستخدم حتى توضح لك الصورة
فى البداية بهذا السطر يحتوى على كود
كود :
Dim MyDate As String = GetDateTime("lNVzqaAeXkPQ")(0)وهو lNVzqaAeXkPQ كود كمفتاح لحساب جلب الوقت والتاريخ
كما ان الـ Function يحتوى على رابط وهو التالى
كود :
https://timezoneapi.io/api/timezone/?Asia/Beirut&token=كل هذا يتم من خلال خدمة هذا الموقع
تذكر انك ستحتاج الدخول على هذا الموقع
لاتمام جلب كود المفتاح لتتمكن من جلب الوقت والتاريخ
الكود يتم جلبه مجانى وبدون اى اشتراك او تسجيل
ولكن لا اعلم الى كم من المدة او العدد يعمل هذا المفتاح
حتى يتطلب تغيير واذا كان دائم او لا فالله اعلم
لكونى قمت بعمل الكود على السريع دون الاطلاع على تفاصيل الموقع
فى البداية عند الدخول على الموقع ستقوم بالنزول بالاسفل حتى تصل الى
PHP كود :
Get time zone and date/time details
اسفل منه ستجد سطر تحتوى على قائمة
تاكد بكونك قمت باختيار cURL من هذه القائمة
اسفلها مباشراً سيظهر رابط وباخر الرابط توجد جملة
PHP كود :
TOKEN
موضئ باللون الاصفر كخلفية له كل ما عليك فعله هو الضغط عليها
ليتم توليد كود كمفتاح لك لاستخدامه
عند اتمام توليد كود المفتاح كل ما عليك وضعه فى كلا من هذه الاسطر
كود :
Dim MyDate As String = GetDateTime("lNVzqaAeXkPQ")(0)
Dim MyTime As String = GetDateTime("lNVzqaAeXkPQ")(1)بدلاً من lNVzqaAeXkPQ
وبكده تكون انهيت العامل الرئيسي لجلب الوقت والتاريخ
ناتى الى النقطة الاخيرة وهى كيف تغيير الوقت والتاريخ للدولة
فكما اشرت ان الوقت والتاريخ يشير الى دولة لبنان
فكيف يتم تغييرها الى دولة اخري
تعال معى كده فى الرابط ولاحظ التالى
PHP كود :
https://timezoneapi.io/api/timezone/?Asia/Beirut&token=
ستجد فى الرابط كلاً من كلمة Asia وهو يشير الى القارة
وكذلك كلمة Beirut وهو يشير الى عاصمة الدولة للبنان
فمثلاً اذا احببنا التغيير لدولة خارج القارة وليكن مثل مصر
فسيتم تغيير كلمة Asia الى Africa
ومن ثم تغيير كلمة Beirut الى Cairo
لاحظ اولاً ان كل اول حرف من الكلمة حرف كبير
وكذلك انه يتم كتابة عاصمة الدولة وليست الدولة نفسها
بكده تكون انهيت الامر واصبح الوقت والتاريخ يتم جلبه
طبقاً لما تريده تماماً
اتمنى ان يكون الشرح مبسط ولا يوجد به اى تعقيد
تم عمل هذا الموضوع مرجعاً الى هذا الموضوع ولكي يستفاد منه الجميع
تحياتى لكم
وتمنياتى للجميع التوفيق
RE: كود جلب الوقت والتاريخ اون لاين بدلاً من جلب الوقت والتاريخ للجهاز - عبد العزيز البسكري - 16-06-19
السّلام عليكم و رحمة الله و بركاته
تسلم يا غالي على المواضيع المميّزة و سلم يمينك و دينك ..
تحياتي و تقييماتي
RE: كود جلب الوقت والتاريخ اون لاين بدلاً من جلب الوقت والتاريخ للجهاز - elgokr - 16-06-19
وعليكم السلام ورحمة الله وبركاته
لى ولك وللجميع يارب العالمين
تحياتى لك
وتمنياتى لك التوفيق