菜鸟求教:如何关闭除指定进程外的其他进程
.
各位老大好!
本著名(零基础)菜鸟又来麻烦大家了
.
最近一段时间偶抱着书啃
再看看其他大侠做的东东
误以为自己的水平似乎有些提高了
所以想自己做个东东用
果然不出所料 马上又被“打回原形”了
.
情况是这样的:
本人使用电脑时有个坏习惯
总是打开一堆窗口
比如:用IE和TT浏览器分别浏览不同类型的网上信息 几个文件夹 MSN的几个对话窗口 QQ几个对话窗口 小游戏 等等
感觉都操作完了 一个一个的关太麻烦
就想自己做个小程序
点击个按钮就可以关闭除了“system” “local service”“network service”和自己指定的程序(如msn和QQ的主程序 迅雷 BT)以外的不
再使用的进程
.
我用了个笨办法
几乎是“穷极例举法”了
因为打开的窗口如TT和IE在浏览不同页面时
窗口的标题是随时改变的
所以本著名菜鸟偶是从进程入手的 方法如下:
Dim pProcess() As Process
pProcess = Process.GetProcesses()
Dim i As Integer
For i = 0 To pProcess.Length() - 1
Console.WriteLine(pProcess(i).ProcessName)
If (pProcess(i).ProcessName <> "123" & "456" & "789" & "abc") Then '判断进程
pProcess(i).Kill() '关闭进程
End If
Next
我在IF中 (pProcess(i).ProcessName <>) 的<>后面“穷极例举”了所有的“system” “local service”“network service”和自己指定的
程序
本人洋洋得意地开始“启动调试”
(在调试之前我费了半天劲打开了足有四十多个各类窗口)
满怀期待的希望看到所有窗口都被自动关掉的壮观场面
结果令本大菜鸟非常震惊!
本以为大功告成了 结果一开始调试 电脑重启了!
偶呆呆的看着电脑重启直到重新看到了桌面!
重新试验了一次 结果还是如此!
晕死我了!哭啊!
.
请问各位大侠 这样写的问题在哪里?
可怜一下本菜鸟吧 赏我个“医治人参果树的方子”吧!
谢谢嗷!
.
另外 这个东东完成后 本菜鸟还想在此基础上做些改进
后面的改进以后再说吧 我先把这个问题搞懂了再说了
.
再次感谢了!
.