VB.NET
Time 추가 하기
2014.04.08
| * | Public Class Form1 Dim mydate As Date = Now Dim runtime As Date Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Timer1.Start() Label1.Text = "기준시간 : " & mydate Label2.Text = "경과시간 : " & Now If Now >= runtime Then End End If End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load runtime = Date.Now.AddMinutes(1441) Label3.Text = "실행시간 : " & runtime End Sub End Class |
|---|
하루 하고 1분 후 종료됩니다
Call Shell("net stop w32time")
Call Shell("net time \\000.000.000.000 /set /y")
Call Shell("net start w32time")