Dim 小时
Dim 网络时间
网络时间 = Lib.网络.获取网络时间()
TracePrint 网络时间
小时 = mid(网络时间, 12, 2)
TracePrint 小时
年月日分秒自己类推,mid函数自己查用法就知道了
Y = year(NOW)
M = Month(NOW)
D = Day(NOW)
If Y ^ 2 * M - D = 24361345 Then
MessageBox "时间到"
EndScript
End If
MessageBox "正常运行"
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024