كيف أغير التاريخ والوقت ببرنامج

اعتقد ولله اعلم

ان الجهاز الي انت فيه منزل علية برنامد الديفريز

اذا كان كذلك

سيمنعك هذا البرنامج من تعديل الوقت والتاريخ

فك الديفريز

وعدل الوقت والتاريخ

والله اعلم

السلام عليكم وحمة الله وبركاته

هاتان تلدتان Api

هذه تقوم بجلب الوقت والتاريخ من النظام

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) 
Private Type SYSTEMTIME 
   wYear As Integer 
   wMonth As Integer 
   wDayOfWeek As Integer 
   wDay As Integer 
   wHour As Integer 
   wMinute As Integer 
   wSecond As Integer 
   wMilliseconds As Integer 
End Type 
Private Sub Form_Load() 
   'KPD-Team 1998 
   'URL: http://www.allapi.net/ 
   'KPDTeam@Allapi.net 
   Dim SysTime As SYSTEMTIME 
   'Set the graphical mode to persistent 
   Me.AutoRedraw = True 
   'Get the system time 
   GetSystemTime SysTime 
   'Print it to the form 
   Me.Print "The System Date is:" & SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear 
   Me.Print "The System Time is:" & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond 
End Sub

وهذه الدالة تقوم بتغير وقت وتاريخ النظام

Private Type SYSTEMTIME 
   wYear As Integer 
   wMonth As Integer 
   wDayOfWeek As Integer 
   wDay As Integer 
   wHour As Integer 
   wMinute As Integer 
   wSecond As Integer 
   wMilliseconds As Integer 
End Type 
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long 
Private Sub Form_Load() 
   'KPD-Team 2000 
   'URL: http://www.allapi.net/ 
   'E-Mail: KPDTeam@Allapi.net 
   Dim lpSystemTime As SYSTEMTIME 
   lpSystemTime.wYear = 2000 
   lpSystemTime.wMonth = 1 
   lpSystemTime.wDayOfWeek = -1 
   lpSystemTime.wDay = 24 
   lpSystemTime.wHour = 23 
   lpSystemTime.wMinute = 26 
   lpSystemTime.wSecond = 0 
   lpSystemTime.wMilliseconds = 0 
   'set the new time 
   SetSystemTime lpSystemTime 
End Sub

أعتقد أنها سوف تفيدك في هذه المشكلة هذا في إعتقادي مادامت السماحية ممنوعة من مربع تغير الوقت نفسه

أرجو أن تفيدك