Question

vb定时关闭所有正在运行的程序源码是什么

Answer 1

你想干嘛？难到你也想杀死系统核心进程么？

流程：
【1、先枚举正在运行的进程获取其PID】
Dim p
Dim i As Integer
i = 0
For Each p In GetObject("winmgmts:\\.\root\cimv2").execquery("select * from Win32_Process")
ReDim intAllPID(i) As Integer
intAllPID(i) = p.processID
Debug.Print intAllPID(i)
i = i + 1
Next
这一个过程将正在运行的程序PID保存在了intAllPID()数组里

【2、再用PID结束进程】

参考：PID结束进程_百度知道
http://zhidao.baidu.com/question/89827403.html

Answer 2

在窗体里添加一个定时器，按需要 设置时间间隔，添加定时器事件，加入代码 End ，然后借助其他事件将定时器的 enable 属性 赋值为 True 。

Answer 3

Dim p
For Each p In GetObject("winmgmts:\\.\root\cimv2").execquery("select * from Win32_Process")
p.Terminate
Next