Question

如何 vb 修改系统时间

vb修改系统时间代码

需要循环无限修改时间，锁定时间为2008年10月10日10时10分

高手写下，谢谢

Answer 1

在窗口上建立一个command 复制下面的代码就可以了。。。

Private Sub Command1_Click()
Dim tt, dd
tt = Time
dd = Date
If Command1.Caption = "开始使系统返拍时间暂停" Then
Command1.Caption = "停止暂停，继续运行"
Else
Command1.Caption = "开始使系统时漏嫌羡间暂停"
End If
Do
DoEvents
Date = dd
Time = tt
Loop Until Command1.Caption = "开始使系统时间暂停"
End Sub

Private Sub Form_Load()
Command1.Caption = "开者凯始使系统时间暂停"
End Sub

Answer 2

vb修改系统时间可是再简单不过了
一个代码就可以蚂胡困实现了

Date = DateValue("你要修改的日期")

注意这个输入的日期是有闷念格式的做粗
比如说你想修改到8888年8月8日
就是Date = DateValue("8888-8-8")

千万不能写Date = DateValue("8888年8月8日")

Answer 3

在窗体上加入控件timer1，首逗然后复拦型制下面代者衡卖码即可。
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 200
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Date = #10/10/2008#
Time = #10:10:00 AM#
End Sub