[bidaya]

اريد كود تغيير تاريخ الجهاز لوسمحتم

[أبو عمر]

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 


[bidaya]

شكرا اخي
لكن الكود لم ينجح اخي الكريم
اريد الكود عند الظغط على الزر يقوم بظبط التاريخ احدده انا وشكرا

[أبو عمر]

العفو ما سوينا شي

لكن الكود يقوم بهذه المهمة بضغطة زر فعلاً

---

آه ممكن تحتاج تعمل
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 


جرب ورد لي النتيجة

[silverlight]

الفكرة في الكود التالي ............ أتمني إنها تنجح معك خاصة انني لم اجرب الكود لاني ليس لدي فيجوال استوديو حاليا

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) 


[bidaya]

اشكرك اخي
لم ينجح

---

(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

[bidaya]

اين انتم احبتي

[أبو عمر]

  change_date.zip (الحجم : 66.75 ك ب / التحميلات : 165)

[bidaya]

(19-09-16, 10:47 PM)أبو عمر كتب :

اين المشكل هنا

[أبو عمر]

المشكل الامان عندك
قفل المشروع وشغل الفيجول كمسؤول Run as administrator
وبعدين شغل المشروع