13-09-20, 12:16 AM
الصفحات : 1 2
13-09-20, 12:45 AM
كود :
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
13-09-20, 12:58 AM
13-09-20, 01:55 AM
(13-09-20, 12:58 AM)jam3h كتب : [ -> ]عند وضع كود في زر يظهر لي خطا
إذا بتضع الكود في الزر احذف الصب ونهاية الصب :
كود :
Private Sub ChangeDate()
End Sub
13-09-20, 11:30 AM
عملت هيك ولكن لم ينفذ اي امر انا استعمل ويندوز 10
استعمل فيجوال بيسك 2015
هل لديك كودين لزرين واحد يرجع تاريخ لوراء 8 اشهر لورا وزر اخر يعمل على اصلاح التاريخ
استعمل فيجوال بيسك 2015
هل لديك كودين لزرين واحد يرجع تاريخ لوراء 8 اشهر لورا وزر اخر يعمل على اصلاح التاريخ
13-09-20, 12:12 PM
(13-09-20, 11:30 AM)jam3h كتب : [ -> ]عملت هيك ولكن لم ينفذ اي امر انا استعمل ويندوز 10
استعمل فيجوال بيسك 2015
هل لديك كودين لزرين واحد يرجع تاريخ لوراء 8 اشهر لورا وزر اخر يعمل على اصلاح التاريخ
لن تعمل الا اذا شغلت البرنامج كمسئول وليس من خلال الفيجوال ستوديو
13-09-20, 04:12 PM
انها تعمل ولكن فقط يغير الساعه ولكن الشهر لايتغير
13-09-20, 05:48 PM
المشكلة اذا كنت تستخدم ويندوز 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))
وايضا يجب تشغيل البرنامج كمسئول
13-09-20, 06:37 PM
وضعت الكود ولم يحصل شيء وشغلته مسؤل ايضا
انا استخدم فيجوال بيسك 2015 هل تستطيع ان تعمل لي ازرار او اداة صغير لارجاع التاريخ للوراء الى جانوري وزر اخر يصلح التاريخ
انا استخدم فيجوال بيسك 2015 هل تستطيع ان تعمل لي ازرار او اداة صغير لارجاع التاريخ للوراء الى جانوري وزر اخر يصلح التاريخ
13-09-20, 07:07 PM
طيب اخبرني لماذا تريد تغيير التاريخ ؟ ربما هناك طريقة اخرى للوصول لهدفك غير تغيير التاريخ
الصفحات : 1 2