Question

当一个程序不远行时自动关机，有vb怎么编写

Answer 1

窗体中加一个timer控件。
以下代码假设你使用的XP系统。

Private Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim objWMIService, Ps
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set Ps = objWMIService.ExecQuery("Select * from Win32_Process where name='你的程序进程名称，如a.exe'")
If Ps.Count = 0 Then
Shell "C:\WINDOWS\system32\shutdown.exe -s -t 0"
End If
DoEvents
End Sub