#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author: H. Tsubota

Script Function:
    WebサイトのリンクのURLを抽出

#ce ----------------------------------------------------------------------------
#include <IE.au3>
#include <Array.au3>

$oIE = _IECreate ("www.autoitscript.com/site/autoit/")
$oURLs = _IETagNameGetCollection ($oIE, "a")

Local $aArray[1]
For $oURL In $oURLs
    _ArrayAdd($aArray, $oURL.href )
Next
$aNewArray = _ArrayUnique($aArray)

Run( "notepad.exe")
WinWaitActive("[CLASS:Notepad]")
For $i = 1 To $aNewArray[0]
    ControlSend("[CLASS:Notepad]", "", "Edit1", $aNewArray[$i] & "{Enter}")
Next

_IEQuit($oIE)