تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود جلب الوقت والتاريخ اون لاين بدلاً من جلب الوقت والتاريخ للجهاز
#1
السلام عليكم ورحمة الله وبركاته

كود جلب الوقت والتاريخ لاى دولة اون لاين
بدلاً من اتمام جلب الوقت والتاريخ لجهاز العميل والتلاعب به

فى البداية قم بانشاء هذا الـ 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

لاحظ اولاً ان كل اول حرف من الكلمة حرف كبير
وكذلك انه يتم كتابة عاصمة الدولة وليست الدولة نفسها

بكده تكون انهيت الامر واصبح الوقت والتاريخ يتم جلبه
طبقاً لما تريده تماماً 

اتمنى ان يكون الشرح مبسط ولا يوجد به اى تعقيد
تم عمل هذا الموضوع مرجعاً الى هذا الموضوع ولكي يستفاد منه الجميع

تحياتى لكم
وتمنياتى للجميع التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#2
السّلام عليكم و رحمة الله و بركاته
تسلم يا غالي على المواضيع المميّزة و سلم يمينك و دينك ..
تحياتي و تقييماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , sendbad100
#3
وعليكم السلام ورحمة الله وبركاته

لى ولك وللجميع يارب العالمين

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قراءة الوقت بالكلمات العربية Taha Okla 5 973 24-04-23, 01:50 AM
آخر رد: Taha Okla
  كود لتفقيط الوقت التراكمي Taha Okla 0 411 23-04-23, 07:39 PM
آخر رد: Taha Okla
Lightbulb [VB.NET] منع البرنامج من لاشتغال مرتين في نفس الوقت mohgam 0 2,900 01-07-15, 03:30 PM
آخر رد: mohgam

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم