编程论坛 » VB6论坛 » 如何能自动关闭所有打开的网页

qqwxluvs 发表于 2008-5-26 17:32

如何能自动关闭所有打开的网页

如何能自动关闭所有计算机打开的网页，怎么实现

lzn3303768 发表于 2008-5-26 19:51

把ie进程干掉

三断笛 发表于 2008-5-26 20:35

对,也就一句:
shell "taskill /f /im iexpoler.exe"

multiple1902 发表于 2008-5-26 20:54

[quote][bo][un]三断笛[/un] 在 2008-5-26 20:35 的发言：[/bo]

对,也就一句:
shell "taskill /f /im iexpoler.exe" [/quote]
只能用于WinXP+系统，而且最好多运行几次。

qqwxluvs 发表于 2008-5-26 23:31

这个不能实时监控

过程中出现了 不能即时关闭

三断笛 发表于 2008-5-26 23:33

这个可以把XP的cmd和taskkill都带上一起到程序包里边,一般一次就能把名字为iexpoler.exe的所有进程关闭,算是最简单的吧

有必要也可以用API做啊

西山居士 发表于 2008-5-26 23:58

[quote][bo][un]qqwxluvs[/un] 在 2008-5-26 23:31 的发言：[/bo]

过程中出现了 不能即时关闭 [/quote]
[font=华文彩云][size=6][color=00C000]加[/color][color=00962A]个[/color][color=006C54]t[/color][color=00427E]i[/color][color=0018A8]m[/color][color=0000D2]e[/color][color=0000FC][/color][/font][/size]

qqwxluvs 发表于 2008-5-27 20:58

谢谢，解决了

谢谢，解决了

multiple1902 发表于 2008-5-27 21:30

[quote][bo][un]三断笛[/un] 在 2008-5-26 23:33 的发言：[/bo]

这个可以把XP的cmd和taskkill都带上一起到程序包里边,一般一次就能把名字为iexpoler.exe的所有进程关闭,算是最简单的吧

有必要也可以用API做啊 [/quote]
iexplore，注意拼写。

三断笛 发表于 2008-5-27 23:23

呵呵 多谢提醒!

qqwxluvs 发表于 2008-5-29 18:31

这个可以关闭

我用了这个个代码
Private Sub filter()
Dim objIE As Object
Dim i As Integer
On Error Resume Next
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
kk = InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare)
For i = 1 To kk - 1
objIE.Quit
Exit For
Next i
End If
Next
objIE = Nothing
End Sub

flyue 发表于 2008-5-29 18:41

[quote][bo][un]三断笛[/un] 在 2008-5-26 20:35 的发言：[/bo]
shell "taskill /f /im iexpoler.exe" [/quote]
如果用户电脑上没有taskill.exe那怎么办？所以说这种方法是不可靠的。
用API函数“EnumWindows”和“GetWindowLong”是最标准的。
参见[url]http://topic.csdn.net/t/20041230/20/3689960.html[/url]

三断笛 发表于 2008-5-29 18:54

打包taskkill.exe,前面已经说过了,这个方法最简单,对于初学者来说

flyue 发表于 2008-5-29 19:00

那倒是可以。我曾经遇到过一个只知道用shell语句的人，他实现什么功能都是靠调用别的程序来实现的…………（我没有别的意思哈）

lzn3303768 发表于 2008-5-29 21:23

囧~~~

查看完整版本: 如何能自动关闭所有打开的网页