Question

用vb.net编写程序

4、 定时关机程序
要求：
（1） 用户设定自动关机的时间，时间到时关闭计算机
（2） 快到设定时间时，应有提示框弹出以提醒用户注意。最好能有声音提醒，比如提示：“离关机时间还有XX分，请保存好文档。”
（3） 关机时询问用户是否关机，如果是，则关闭计算机。
（4） 程序最小化到系统托盘运行，不在任务栏中出现。（如QQ一样最小化到托盘）
（5） 右击本程序的系统在托盘中的系统图标，弹出菜单进行关机时间等参数的设置。参数保存在一个文本文件中。
（6） 获取网络时间，比如百度时间，进行时间校对，按照网络时间或者本地时间计算是否关机。
获取网络时间参考代码:
Function GetNetTime() As Date
Dim XmlHttp As Object
Dim datetxt As String
Dim temdate() As String
Dim tempvar As String
Dim temptim() As String
Dim mon As String
Dim timeGMT As Date
XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open("Get", "http://www.baidu.com/", False)
XmlHttp.send()
datetxt = XmlHttp.getResponseHeader("Date")
XmlHttp = Nothing
'//将获取到的原始时间进行格式化 2009年01月08日 04:09:52
temdate = Split(datetxt, ",")
tempvar = Replace(temdate(1), "GMT", "")
temptim = Split(tempvar, " ")
Select Case temptim(2)
Case "Jan"
mon = "01"
Case "Feb"
mon = "02"
Case "Mar"
mon = "03"
Case "Apr"
mon = "04"
Case "Mar"
mon = "05"
Case "Jun"
mon = "06"
Case "Jul"
mon = "07"
Case "Aug"
mon = "08"
Case "Sep"
mon = "09"
Case "Oct"
mon = "10"
Case "Nov"
mon = "11"
Case "Dec"
mon = "12"
End Select
'//将获取到的时间转换为北京时间+8小时
timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
GetNetTime = DateAdd("h", 8, timeGMT)
End Function

Answer 1

系统托盘里显示图标的话用NotifyIcon组件，建立一个ContextMenuStrip控件与之关联。关联的位置在NotifyIcon.ContextMenuStrip。关机直接shell 命令列:rundll32.exe user.exe,exitwindows就可以，声音提示用My.Compurer.Audio.Play ("路径")，提示消息用Msgbox函数……通过判断返回值在确定是否关机……手头没有VB.Net……大概思路就是这样，不知道能不能对你有帮助……如果要代码的话，不忙的时候可以给你写

追问

求详细代码。。

Answer 2

用个Bat即可，无须编程。
请参考：

shutdown -t 时间