VB禁止打开IE

来源：百度知道 编辑：UC知道 时间：2024/05/31 17:54:36
我玩游戏的，下载了一个外G 。 但打开这个G 就弹出好多网站，所以我想用VB做的程序打开它，并在一定的时间内禁止打开IE。 不要太长时间了，高手有办法吗？
2楼的高手，因为我这里有很多IE网页，如果结束进程的话，那么所有的网页都会关闭的，这样不是很人性化，

我要关闭指定的网址， 一共有2个网址。我要判断当程序打开时发现IE打开这 2个网址就把这2个网页关闭就可

以了， 可以吗，谢谢了！！！ (我不需要用API判断窗口标题的方法， 这个太慢了。要等到网页打开后才关闭，我需要判断网址的方法！ 当IE浏览器（包括任何浏览器）打开 http://zhidao.baidu.com 和 http://web.im.baidu.com/? 就立即关闭！)

创建一个timer 复制代码就可以了
只要有IE打开就马上关闭

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Dim s
s = "iexplore.exe" '进程名称可以自己更改
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess In colProcessList
objProcess.Terminate '结束进程
Next
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing
End Sub

简单的没有

你用了人家东西 ，人家也要用你的东西