18-09-16, 05:40 PM
(آخر تعديل لهذه المشاركة : 18-09-16, 05:41 PM {2} بواسطة silverlight.)
الفكرة في الكود التالي ............ أتمني إنها تنجح معك خاصة انني لم اجرب الكود لاني ليس لدي فيجوال استوديو حاليا
ملحوظة: : يجب مراعاة نوع Culture الموجودة في جهاز الكمبيوتر
الاستخدام
PHP كود :
Private Sub ChangeSystemDate(dateTimeString As String)
Dim dt As DateTime = DateTime.ParseExact(dateTimeString, "ddMMyyyy", System.Globalization.CultureInfo.InvariantCulture)
Using currentProcess As New Process
Dim pi As ProcessStartInfo = New ProcessStartInfo
pi.Arguments = "/c date " & dt
pi.FileName = "cmd"
pi.RedirectStandardOutput = True
pi.UseShellExecute = False
pi.CreateNoWindow = True
currentProcess.StartInfo = pi
Try
currentProcess.Start()
Catch ex As Exception
MessageBox.Show("Can not change system date")
End Try
End Using
End Sub
ملحوظة: : يجب مراعاة نوع Culture الموجودة في جهاز الكمبيوتر
الاستخدام
PHP كود :
Dim year As Integer = 2015
Dim month As Integer = 10
Dim day As Integer = 12
Dim dateTimeString As String = CStr(day) & CStr(month) & CStr(year)
ChangeSystemDate(dateTimeString)

