网上搜了好久全是超复杂的定时关机之类的代码，为什么就没人用这个呢？
Shell("shutdown -s")
运行后会出现windows的关机倒计时对话框，30秒后就强制关机了
|
||||||
|
用系统Threading.Thread.Sleep函数延时过程中会造成程序无响应，这个就好多了。 参数单位为毫秒 Public Shared Sub Sleep(ByVal Interval As Integer) Dim __time As DateTime = DateTime.Now Dim __Span As Int64 = Interval * 10000 ‘因为时间是以100纳秒为单位。 While (DateTime.Now.Ticks – __time.Ticks < __Span) Application.DoEvents() End While End Sub 函数：ReadTxt 读取txt文件 |
||||||
|
Copyright © 2012 帮藏 - All Rights Reserved
32 queries. 0.278 seconds. |
||||||
最近评论