如何用VB编写一个10分钟后自动关机的程序？

不用VB写都可以的哈。写个BAT文件，自动运行了就要的了噻。新建个TXT的文本文档，内容如下：shutdown -s -t 600然后把后缀改为".bat"的就可以了，运行，就会自动计时，10分钟后关机。具体的BAT文件使用方法，参加如下网页内容： http://hi.baidu.com/visony1987/blog/item/532a68cac7a07843f31fe72f.html

建议一个工程，用以下代码就可以了.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
Me.Hide '//隐藏自己
App.TaskVisible = False '//在任务管理器隐藏
Sleep 600000 '//延时600000毫秒=600秒=10分钟
Shell "cmd.exe /c shutdown.exe -s -t 0", vbHide '//调用shutdown来关机
End Sub

先建一个.txt的文件,打开输入下面代码:
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我爱你，不说我爱你就60秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我爱你")
a = inputbox ("说我爱你,就不关机，快撒，说 ""我爱你""　","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop

改后缀是.veb

shell("shutdown -t 600")

600=600秒=10分钟