一打开就自动修改系统日期为2010年10月1日，15秒后重新修改成原来（当前）的日期。请问用VB如何编写？无窗口模式，希望能详细些。
如何编写成系统服务
◆VB修改系统日期？？◆
答案:2 悬赏:70 手机版
解决时间 2021-02-02 23:26
- 提问者网友：容嬷嬷拿针来
- 2021-02-02 09:21
最佳答案
- 五星知识达人网友：深街酒徒
- 2021-02-02 10:12
Private Sub Form_load()
Dim tDate, tTime As Date
Me.Visible = False
tDate = Date
Date = #10/1/2010#
tTime = Time
Do While Second(Time - tTime) < 15
DoEvents
Loop
Date = tDate
End
End Sub
===========
如果你需要开机启动的话可以把它的快捷方式放到启动菜单中，或者在注册表中添加启动项。
Dim tDate, tTime As Date
Me.Visible = False
tDate = Date
Date = #10/1/2010#
tTime = Time
Do While Second(Time - tTime) < 15
DoEvents
Loop
Date = tDate
End
End Sub
===========
如果你需要开机启动的话可以把它的快捷方式放到启动菜单中，或者在注册表中添加启动项。
全部回答
- 1楼网友：渊鱼
- 2021-02-02 11:49
不明白啊 = =！
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯