تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي
#1
هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي
الرد
تم الشكر بواسطة: عبد الهادي بهاب
#2
كود :
Private Sub ChangeDate()
  Dim d As DateTime
  d = "22:30:00"

  Try
     Microsoft.VisualBasic.TimeOfDay = d 'Your time...
     Microsoft.VisualBasic.DateString = New Date(1978, 4, 28) 'The date...
  Catch ex As Exception
     'You might have to run as Administrator...?
  End Try

End Sub

تحتاج لان يعمل البرنامج كمسئول لتعمل 

https://stackoverflow.com/a/28590595
الرد
تم الشكر بواسطة: عبد الهادي بهاب , ابراهيم ايبو
#3
عند وضع كود في زر يظهر لي خطا
الرد
تم الشكر بواسطة:
#4
(13-09-20, 12:58 AM)jam3h كتب : عند وضع كود في زر يظهر لي خطا

إذا بتضع الكود في الزر احذف الصب ونهاية الصب :


كود :
Private Sub ChangeDate()

End Sub
يا رحمن الدنيا والآخرة ورحيمهما
الرد
#5
عملت هيك ولكن لم ينفذ اي امر انا استعمل ويندوز 10
استعمل فيجوال بيسك 2015
هل لديك كودين لزرين واحد يرجع تاريخ لوراء 8 اشهر لورا وزر اخر يعمل على اصلاح التاريخ
الرد
تم الشكر بواسطة:
#6
(13-09-20, 11:30 AM)jam3h كتب : عملت هيك ولكن لم ينفذ اي امر انا استعمل ويندوز 10
استعمل فيجوال بيسك 2015
هل لديك كودين لزرين واحد يرجع تاريخ لوراء 8 اشهر لورا وزر اخر يعمل على اصلاح التاريخ

لن تعمل الا اذا شغلت البرنامج كمسئول وليس من خلال الفيجوال ستوديو
الرد
تم الشكر بواسطة:
#7
انها تعمل ولكن فقط يغير الساعه ولكن الشهر لايتغيرSad
الرد
تم الشكر بواسطة:
#8
المشكلة اذا كنت تستخدم ويندوز 10 فانه يقوم يضبط التاريخ تلقائيا اذا قمت بتغييره 
جرب هذه طيب 

اضف الكود التالي :

كود :
Private Structure SYSTEMTIME

       Public year As Short

       Public month As Short

       Public dayOfWeek As Short

       Public day As Short

       Public hour As Short

       Public minute As Short

       Public second As Short

       Public milliseconds As Short

   End Structure

   <Runtime.InteropServices.DllImport("Kernel32.dll")> Private Shared Function SetLocalTime(ByRef time As SYSTEMTIME) As Boolean

   End Function

   Private Sub ChangeDate(NewDate As Date)

       Dim st As SYSTEMTIME
       st.year = NewDate.Year
       st.month = NewDate.Month
       st.dayOfWeek = NewDate.DayOfWeek
       st.day = NewDate.Day
       st.hour = NewDate.Hour
       st.minute = NewDate.Minute
       st.second = NewDate.Second
       st.milliseconds = NewDate.Millisecond

       'Set the new time...
       SetLocalTime(st)
   End Sub


الان عند تغيير التاريخ :

كود :
       ChangeDate(New Date(2020, 8, 13))

وايضا يجب تشغيل البرنامج كمسئول
الرد
#9
وضعت الكود ولم يحصل شيء وشغلته مسؤل ايضا
انا استخدم فيجوال بيسك 2015 هل تستطيع ان تعمل لي ازرار او اداة صغير لارجاع التاريخ للوراء الى جانوري وزر اخر يصلح التاريخ
الرد
تم الشكر بواسطة:
#10
طيب اخبرني لماذا تريد تغيير التاريخ ؟ ربما هناك طريقة اخرى للوصول لهدفك غير تغيير التاريخ
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن مساعدة (الخطأ غير واضح في كود الحفظ) sofiane-phy 0 9 منذ 34 دقيقة مضت
آخر رد: sofiane-phy
  [VB.NET] ممكن كود تخطي اعلان للبرنامج مثل الفديو دا ahmed112001 2 79 , 03:53 PM
آخر رد: ahmed112001
  [VB.NET] طباعة صورة من الإكسيس بأستخدام الفيجول بيسك 2010 رامى محمد 3 108 20-09-20, 03:12 PM
آخر رد: رامى محمد
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 99 16-09-20, 03:57 PM
آخر رد: رامى محمد
  كيف يتم عمل قناع ادخال للتيسكت بوكس في الفيجوال بيسك دوت نت؟ adnan gharbi 2 80 15-09-20, 02:53 PM
آخر رد: adnan gharbi
  هل استطيع وضع مجلد فيه برنامج وملفاته dll معه وادمجن داخل ادات في فيجوال بيسك jam3h 0 56 13-09-20, 11:14 PM
آخر رد: jam3h
Rainbow [سؤال] ممكن طريقة عمل زر يذهب الي اخر سطر بتيكس بوكس Ali 2020 9 155 13-09-20, 10:12 PM
آخر رد: Ali 2020
  [سؤال] ممكن شرح لتعامل مع مكتبه اليوم السابع 0 47 10-09-20, 05:08 PM
آخر رد: اليوم السابع
  [سؤال] تغير لون Label عند الضغط عليه (على أساس إجابة صحيحة) HUNTER25 8 229 07-09-20, 01:56 AM
آخر رد: Hasaneen
  مشكلة فى اضافة البيانات ممكن المساعدة talatm 7 322 04-09-20, 04:10 PM
آخر رد: عبد العزيز البسكري

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


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