تغییر تاریخ سیستم

[kaka22]

1- چگونه می توان تاریخ کامپیوتر را عوض کرد؟ 2- آیا راهی برای تغییر در تاریخ ایجاد یک فایل وجود دارد؟

[ali_najari]

دوست عزیز با استفاده از این کد میتونید اینکار رو انجام دهید



Private Structure SYSTEMTIME
Public wYear As Integer
Public wMonth As Integer
Public wDayOfWeek As Integer
Public wDay As Integer
Public wHour As Integer
Public wMinute As Integer
Public wSecond As Integer
Public wMilliseconds As Integer
End Structure
Private Declare Function SetSystemTime Lib "kernel32" (ByVal lpSystemTime _
As SYSTEMTIME) As Long
Private Sub Form_Load()
Dim lReturn As Long
Dim lpSystemTime As SYSTEMTIME
lpSystemTime.wYear = 1996
lpSystemTime.wMonth = 6
lpSystemTime.wDayOfWeek = 5
lpSystemTime.wDay = 28
lpSystemTime.wHour = 9
lpSystemTime.wMinute = 42
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
lReturn = SetSystemTime(lpSystemTime)
End Sub

[kaka22]

آیا راهی برای تغییر در تاریخ ایجاد یک فایل وجود دارد؟

[ali_najari]

فکر کنم با IO.file بتونید اینکار ها رو انجام دهید.

[kaka22]

میتونی بیشتر توضیح بدی یا یک مثال بزنی؟!

[Reza,M]

با سلام آقاي نجاري ميشه بگين فرق اين كد با كد شما چيه ؟
با تشكر


Today=DateSerial(1996,6,28)
TimeofDay=TimeSerial(9,42,0)

[kaka22]

کسی میدونه چطور میشه تاریخ ایجاد یک فایل را تغییر داد؟