منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود تغيير تاريخ الجهاز - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود تغيير تاريخ الجهاز (/showthread.php?tid=17357)

الصفحات: 1 2


كود تغيير تاريخ الجهاز - bidaya - 18-09-16

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


RE: كود تغيير تاريخ الجهاز - أبو عمر - 18-09-16

http://stackoverflow.com/questions/28590236/vb-net-change-windows-system-date-time
PHP كود :
Private Sub ChangeDate()
   
Dim d As DateTime
   d 
"22:30:00"

   
Try
      
Microsoft.VisualBasic.TimeOfDay '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 



RE: كود تغيير تاريخ الجهاز - bidaya - 18-09-16

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


RE: كود تغيير تاريخ الجهاز - أبو عمر - 18-09-16

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

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

آه ممكن تحتاج تعمل
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.ObjectAs System.EventArgsHandles Button1.Click
        Call ChangeDate
()
    
End Sub
End 
Class 
جرب ورد لي النتيجة


RE: كود تغيير تاريخ الجهاز - silverlight - 18-09-16

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

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



RE: كود تغيير تاريخ الجهاز - bidaya - 18-09-16

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

(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.ObjectAs System.EventArgsHandles Button1.Click
        Call ChangeDate
()
 
   End Sub
End 
Class 
جرب ورد لي النتيجة

يوجد خطا هنا
  Microsoft.VisualBasic.TimeOfDay = d


RE: كود تغيير تاريخ الجهاز - bidaya - 19-09-16

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


RE: كود تغيير تاريخ الجهاز - أبو عمر - 19-09-16

Confused
[attachment=11730]


RE: كود تغيير تاريخ الجهاز - bidaya - 19-09-16

(19-09-16, 10:47 PM)أبو عمر كتب : Confused
اين المشكل هنا


RE: كود تغيير تاريخ الجهاز - أبو عمر - 19-09-16

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