autoit没有获得随机点击IE嵌入式版本

Question

我想要创建IE嵌入式版本并打开mysite.com并打开随机链接。

#include <IE.au3> 
#include <GUIConstantsEx.au3> 
$width = 800 
$height = 600 
$hMain=GUICreate("TEST",800,600,@DesktopWidth/2-$width/2,@DesktopHeight/2-$height/2) 
$oIE = ObjCreate("Shell.Explorer.2") 
$GUIActiveX = GUICtrlCreateObj ($oIE, 0, 0, $width+3, $height+2) 
$oIE.navigate("www.mysite.com") 
Local $oLinks = _IELinkGetCollection($oIE) 
Local $iNumLinks = @extended 
$oIE._IELinkClickByIndex($oIE, Random(0, $iNumLinks -1)) 
GUISetState() 
While 1 
    $msg = GUIGetMsg() 
    Switch $msg 
     Case $GUI_EVENT_CLOSE 
      Exit 
    EndSwitch 
    WinSetTitle($hMain,"",_IEPropertyGet($oIE, "title")) 
WEnd 

这是代码米洛斯给我得到一个网站，打开随机链接所有链接。它正常工作，当我在IE浏览器，但IE浏览器嵌入式版本的工作，它不... :(

Local $oLinks = _IELinkGetCollection($oIE) 
Local $iNumLinks = @extended 
_IELinkClickByIndex($oIE, Random(0, $iNumLinks)) 

所以需要帮助，使其在IE浏览器的嵌入式版本太多

Answer 1

在那里，其固定。

#include <GUIConstantsEx.au3> 
#include <WindowsConstants.au3> 
#include <IE.au3> 

_IEErrorHandlerRegister() 

$width = 800 
$height = 600 

Local $oIE = _IECreateEmbedded() 
$hMain=GUICreate("TEST",800,600,@DesktopWidth/2-$width/2,@DesktopHeight/2-$height/2, _ 
     $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN) 
GUICtrlCreateObj($oIE, 0, 0, $width+3, $height+20) 

GUISetState() ;Show GUI 

_IENavigate($oIE, "www.mysite.com") 

Local $oLinks = _IELinkGetCollection($oIE) 
Local $iNumLinks = @extended 
_IELinkClickByIndex($oIE, Random(0, $iNumLinks -1)) 
GUISetState() 
While 1 
    $msg = GUIGetMsg() 
    Switch $msg 
     Case $GUI_EVENT_CLOSE 
      Exit 
    EndSwitch 
    WinSetTitle($hMain,"",_IEPropertyGet($oIE, "title")) 
WEnd