Peyman.Gh
شنبه 15 اسفند 1388, 13:24 عصر
فکر کنم این کمتون کنه :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim st As New SYSTEMTIME()
st.wYear = DateAndTime.Now.Year
' must be short
st.wMonth = DateAndTime.Now.Month
st.wDay = DateAndTime.Now.Day
st.wHour = DateAndTime.Now.Hour
st.wMinute = DateAndTime.Now.Minute
st.wSecond = DateAndTime.Now.Second
' invoke this method.
SetSystemTime(st)
End Sub
Public Structure SYSTEMTIME
Public wYear As Short
Public wMonth As Short
Public wDayOfWeek As Short
Public wDay As Short
Public wHour As Short
Public wMinute As Short
Public wSecond As Short
Public wMilliseconds As Short
End Structure
<DllImport("kernel32.dll", SetLastError:=True)> _
Public Shared Function SetSystemTime(<[In]()> ByRef st As SYSTEMTIME) As Boolean
End Function
البته باید کلاس System.Runtime.InteropServices را Import کنید.
موفق باشید.