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

AutoIt Version: 3.3.6.1
Author: H. Tsubota

Script Function:
    Webサイトからpngの画象データのみを取得

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

$oIE = _IECreate ("http://www.autoitscript.com/site/autoit/")
$oImages = _IETagNameGetCollection ( $oIE, "img")

$oFSO = ObjCreate("Scripting.FileSystemObject")
$NumImages = $oImages.length -1
For $i=1 To $NumImages    
    $oImage = $oImages($i)
    
    $sExtension = $oFSO.GetExtensionName($oImage.src)
    if $sExtension = "png" Then
        InetGet ( $oImage.src, $oFSO.GetFileName($oImage.src) , 16)
    EndIf
Next

_IEQuit($oIE)