_iecreate创建得到的项目$oie如何取得其对应的进程id? [已解决]

kevinch

如我用ie.au3函数_iecreate创建浏览页面

#include <ie.au3>
$oie=_IECreate("http://www.autoitx.com/forum-4-1.html",1,1,1,0)
MsgBox(0,"",IsHWnd($oie)&@tab&ObjName($oie))

所得到的$oie项目，如何才能取得其对应的进程ID呢？或者是其父进程的ID？望高手指教。

风行者

$oie只是一个文档对象，进程还是ie进程

kevinch

我想获取pid，比如我不是用ie打开的，而是第三方浏览器，如何取得这个浏览器程序的pid呢？

kevinch

继续寻找解决办法

ceoguang

#include <ie.au3>
#include <winapi.au3>
$oie=_IECreate("http://www.autoitx.com/forum-4-1.html");,1,1,1,0)
Local $iProcessId,$iThreadid
$iThreadid = _WinAPI_GetWindowThreadProcessId($oie.hwnd,$iProcessId)
MsgBox(0,0,$iProcessId)

kevinch

ceoguang 发表于 2011-12-18 18:26

感谢出手相助！
在引用$oie.hwnd时出错，不知是否版本不同的原因，我现在用的是3.3.6.1

ceoguang

应该与版本无关
因为对象成员是存在的
如果出错，请调用 objevent 来获取得错误信息

kevinch

err.description is:        
err.windescription:        未指定的错误
err.number is:         80020009
err.lastdllerror is:         0
err.scriptline is:         7
err.source is:        
err.helpfile is:        
err.helpcontext is:         0

有用的信息似乎不多

ceoguang

#include <ie.au3>
#include <winapi.au3>
$oie=_IECreate("http://www.autoitx.com/forum-4-1.html");,1,1,1,0)
Local $iProcessId,$iThreadid
$iThreadid = _WinAPI_GetWindowThreadProcessId($oie.hwnd(),$iProcessId)
MsgBox(0,0,$iProcessId)

http://msdn.microsoft.com/en-us/library/aa752126(v=VS.85).aspx

kevinch

http://msdn.microsoft.com/en-us/library/aa752126(v=VS.85).aspx
ceoguang 发表于 2011-12-18 20:49

#include <ie.au3>
#include <winapi.au3>

Global $oMyError,$g_eventerror = 0

$oie=_IECreate("http://www.autoitx.com/forum-4-1.html",1,1,1,0)
$oMyError=ObjEvent("AutoIt.Error","MyErrFunc")
MsgBox(0,"",$oie.document.body.innertext)
Local $iProcessId,$iThreadid
$iThreadid = _WinAPI_GetWindowThreadProcessId($oie.hwnd,$iProcessId)
MsgBox(0,0,$iProcessId)

Func MyErrFunc()

  ConsoleWrite("We intercepted a COM Error !"      & @CRLF  & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext          & @CRLF _
            )
            
    Local $err = $oMyError.number
    If $err = 0 Then $err = -1
    
    $g_eventerror = $err  ; to check for after this function returns
Endfunc

我试了其他属性可以，这个hwnd一直不行，好奇怪

kevinch

#include <ie.au3>

Global $oMyError,$g_eventerror = 0

$oie=_IECreate("http://www.autoitx.com/forum-4-1.html",1,1,1,0)
$oMyError=ObjEvent("AutoIt.Error","MyErrFunc")

$arr=stringsplit($oie.fullname,"")
MsgBox(0,0,ProcessExists($arr[UBound($arr)-1]))

Func MyErrFunc()
  ConsoleWrite("We intercepted a COM Error !"      & @CRLF  & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext          & @CRLF _
            )
            
    Local $err = $oMyError.number
    If $err = 0 Then $err = -1
    $g_eventerror = $err  ; to check for after this function returns
Endfunc

暂时这样解决了，不过如果存在多个相同进程的话，不知道要如何解决啦

blue_dvd

都是高手，观看给位表演！

ceoguang

$oie=_IECreate("http://www.autoitx.com/forum-4-1.html")
等待IE加载完成即可
注意_IECreate的参数
5#及9#的代码都是没有问题的

kevinch

我用的是世界之窗浏览器，不知是否这个的原因，hwnd始终报错

komaau3

#include <IE.au3>
$oIE = _IECreate('www.baidu.com')
$Hwnd = _IEPropertyGet($oIE, 'hwnd')
MsgBox(0,'进程PID',WinGetProcess($Hwnd))