18-09-16, 01:25 PM
الصفحات : 1 2
18-09-16, 02:01 PM
http://stackoverflow.com/questions/28590...-date-time
PHP كود :
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
18-09-16, 03:29 PM
شكرا اخي
لكن الكود لم ينجح اخي الكريم
اريد الكود عند الظغط على الزر يقوم بظبط التاريخ احدده انا وشكرا
لكن الكود لم ينجح اخي الكريم
اريد الكود عند الظغط على الزر يقوم بظبط التاريخ احدده انا وشكرا
18-09-16, 04:09 PM
العفو ما سوينا شي
لكن الكود يقوم بهذه المهمة بضغطة زر فعلاً
آه ممكن تحتاج تعمل
Clear solution
وبعدين نفذ الكود بهذا الشكل
جرب ورد لي النتيجة
لكن الكود يقوم بهذه المهمة بضغطة زر فعلاً
آه ممكن تحتاج تعمل
Clear solution
وبعدين نفذ الكود بهذا الشكل
PHP كود :
Public Class Form1
Private Sub ChangeDate()
Dim d As DateTime
d = "15:27:00"
Microsoft.VisualBasic.TimeOfDay = d
Microsoft.VisualBasic.DateString = New Date("2016", "09", "18")
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Call ChangeDate()
End Sub
End Class
18-09-16, 05:40 PM
الفكرة في الكود التالي ............ أتمني إنها تنجح معك خاصة انني لم اجرب الكود لاني ليس لدي فيجوال استوديو حاليا
ملحوظة: : يجب مراعاة نوع 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)
18-09-16, 06:20 PM
اشكرك اخي
لم ينجح
يوجد خطا هنا
Microsoft.VisualBasic.TimeOfDay = d
لم ينجح
(18-09-16, 04:09 PM)أبو عمر كتب : [ -> ]العفو ما سوينا شي
لكن الكود يقوم بهذه المهمة بضغطة زر فعلاً
آه ممكن تحتاج تعمل
Clear solution
وبعدين نفذ الكود بهذا الشكل
جرب ورد لي النتيجةPHP كود :
Public Class Form1
Private Sub ChangeDate()
Dim d As DateTime
d = "15:27:00"
Microsoft.VisualBasic.TimeOfDay = d
Microsoft.VisualBasic.DateString = New Date("2016", "09", "18")
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Call ChangeDate()
End Sub
End Class
يوجد خطا هنا
Microsoft.VisualBasic.TimeOfDay = d
19-09-16, 10:09 PM
اين انتم احبتي
19-09-16, 10:47 PM
19-09-16, 10:58 PM
المشكل الامان عندك
قفل المشروع وشغل الفيجول كمسؤول Run as administrator
وبعدين شغل المشروع
قفل المشروع وشغل الفيجول كمسؤول Run as administrator
وبعدين شغل المشروع
الصفحات : 1 2