想循环打开ie并逐个关闭,怎么写才对?谢谢[已解决]
本帖最后由 bjian 于 2014-6-15 18:31 编辑想循环打开ie,并最大化和循环关闭,不用ProcessClose("IEXPLORE.EXE")怎么写才对?别问我是否有意义,需要类似功能,谢谢,在线等……
我的代码是这样的,显示错误,帮看一下,谢谢了#include <IE.au3>
For $t=1 To 5
$oIE($t)=_IECreate("http://www.baidu.com",0,1,1,0 )
Next
For $q=1 To 5
_IEQuit($q)
Next
Exit 楼主08年就注册了,竟然没有理解循环?
#include <IE.au3>
For $t=1 To 5
$oIE=_IECreate("http://www.baidu.com",0,1,1,0 )
Sleep(1000)
_IEQuit($oIE)
Next 本帖最后由 bjian 于 2014-6-13 17:21 编辑
回复 2# 502762378
{:1_287:}觉悟低,不好意思,谢谢您的帮助,但您这个是打开就关闭哟,我需要的是同时打开5个,然后再逐个关闭
我的想法是,给每个ie附一个值,关闭的时候才能对应一个个关闭,不要直接关闭进程 如果按照你的思路,代码应该这样写:
#include <IE.au3>
Local $oIE
For $t=0 To 4
$oIE[$t]=_IECreate("http://www.baidu.com",0,1,1,0 )
MsgBox(1,1,$oIE[$t])
Next
For $q=0 To 4
MsgBox(1,1,$oIE[$q])
_IEQuit($oIE[$q])
Next
Exit
按理说,_IECreate成功返回是InternetExplorer.Application 对象的对象变量,但是debug发现时空值,有点不解
换个思路:
#include <IE.au3>
Local $pid
For $t=0 To 4
$pid[$t] = Run("Explorer.exe http://www.baidu.com")
Next
For $q=0 To 4
ProcessClose($pid[$q])
Next
Exit
还是杀不掉,好吧,你可以尝试任务管理器按进程ID杀进程试试 本帖最后由 bjian 于 2014-6-13 17:56 编辑
回复 4# 502762378
我要在一个学习网站自动学习,如果直接杀进程的话,就得不到学分,所以只能用关闭的方式,您这个基本达到我的要求了,如何让它一打开就最大化呢?谢谢 @SW_MAXIMIZE,自己看帮助文档 #include <ie.au3>
Dim $oie
For $n=0 To UBound($oie)-1
$oie[$n]=_IECreate("www.baidu.com",0,1,1,0)
_IELoadWait($oie[$n])
Next
For $n=0 To UBound($oie)-1
$tmp=$oie[$n]
$tmp.document.parentwindow.execscript('javascript:window.opener=null;window.open("","_self");window.close();')
Next这个意思吗?
#include <ie.au3>
For $i=0 To 9
$oIE = _IECreate("http://www.baidu.com",0,1,0)
_IELoadWait($oIE)
_IEQuit($oIE)
Next
本帖最后由 bjian 于 2014-6-14 10:56 编辑
谢谢大家的回答4楼和7楼都能达到我的要求,谢谢了
我怎么不能改为【已解决】呢,麻烦帮改一下,谢谢 回复 7# kevinch
谢谢您的帮助 回复 7# kevinch
您好,我还有个问题不太明白,您这个关闭方法和使用_IEQuit这个有什么不同,谢谢
页:
[1]