[..] Internet explorer - Ouvrir tous les liens onglets

[jcaspar]

B onjour à tous !

Je souhaiterais ouvrir tous les liens d'un site Web dans des onglets distincts

pouvez vous svp m'expliquer comment m'y prendre ?

En vous remerciant pour vos conseils


Jean-Marc

Code : Tout sélectionner

#NoTrayIcon
#include <IE.au3>
#include <MsgBoxConstants.au3>

Opt("WinTitleMatchMode", 2)


_IECreate("www.google.fr")


$h=WinGetHandle("Internet Explorer")
$oIE = _IEAttach($h, "HWND")
$url = _IEPropertyGet($oIE, "locationurl")

MsgBox(64,"Internet Explorer",$url)

Local $iNumLinks = @extended
Local $sTxt = $iNumLinks & " links found" & @CRLF & @CRLF

Local $oLinks = _IELinkGetCollection($oIE)


For $oLink In $oLinks
    $sTxt &= $oLink.href & @CRLF
Next
MsgBox($MB_SYSTEMMODAL, "Link Info", $sTxt)

 

[jbnh]

Autoit ne permet pas cette fonctionnalité

Mais en fouillant dans les option d'internet explorer, c'est possible

[mikell]

Par exemple
http://msdn.microsoft.com/en-us/library ... 85%29.aspx

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>

Global Const $navOpenInNewTab = 0x0800

$oIE = _IECreate("http://www.google.fr/")
_IELoadWait($oIE)
Sleep(2000)

$oIE.Navigate2("http://www.autoitscript.com", $navOpenInNewTab, "_top")
_IELoadWait($oIE)
Sleep(2000)

$oIE.Navigate2("http://www.autoitscript.fr", $navOpenInNewTab, "_top")
_IELoadWait($oIE)
Sleep(2000)
; etc
 

[jcaspar]

M erci pour vos suggestions ... ce qui donnerait le code ci dessous ...
mais peut être avez vous des suggestions pour améliorer les choses ...

Code : Tout sélectionner

 #include <IE.au3>
#include <MsgBoxConstants.au3>

Opt("WinTitleMatchMode", 2)


Global Const $navOpenInNewTab = 0x0800

_IECreate("www.google.fr")


$h=WinGetHandle("Internet Explorer")
$oIE = _IEAttach($h, "HWND")
$url = _IEPropertyGet($oIE, "locationurl")

MsgBox(64,"Internet Explorer",$url)

Local $iNumLinks = @extended
Local $sTxt = $iNumLinks & " links found" & @CRLF & @CRLF

Local $oLinks = _IELinkGetCollection($oIE)


For $oLink In $oLinks
    $sTxt&= $oLink.href & @CRLF
;~  _IELinkClickByText($oIE,$sTxt)



    $oIE.Navigate2($oLink.href , $navOpenInNewTab, "_top")
_IELoadWait($oIE)
Sleep(2000)


Next
MsgBox($MB_SYSTEMMODAL, "Link Info", $sTxt)



 

[orax]

Je n'ai pas compris pourquoi tu fais ça :

Code : Tout sélectionner

_IECreate("www.google.fr")

$h=WinGetHandle("Internet Explorer")
$oIE = _IEAttach($h, "HWND")

Autant remplacer ces lignes par :

Code : Tout sélectionner

$oIE = _IECreate("www.google.fr")