Cool Flash Grabber

[ConsultingJoe]

It may need error checking but It downloads the first occourence of ".swf" to FLASH.swf

try it on the site

http://www.albinoblacksheep.com/flash/hampster

and anywhere else you can think of

let me know what you think and tweak away

You must have beta and ie.au3

#include <ie.au3>
AutoItSetOption( "WinTextMatchMode", 2)
TrayTip("Flash Downloader", "select the browser to search in", 3)
while 1
    $title = WinGetTitle ( "" )
    if StringInStr( $title, " - Microsoft Internet Explorer") Then ExitLoop
    WEnd
$title = StringReplace($title, " - Microsoft Internet Explorer", "")
$oIE1 = _IEAttach ($title)
$source = _IEBodyReadHTML ($oIE1)
$end = StringInStr ( $source, ".swf" )
$begin = 1
$i = 0
while $begin > 0 and $begin < $end
$i = $i + 1
$begin = StringInStr ($source, "http://", 0, $i)
WEnd
$i = $i - 1
$begin = StringInStr ($source, "http://", 0, $i)
$address = StringMid ( $source, $begin, $end - $begin + 4 )
$size = InetGetSize ( $address )
InetGet ( $address,"FLASH.swf", 1, 1)
TrayTip( "Flash Address:", $address, 2)
sleep(2000)
While @InetGetActive
  TrayTip("Downloading", @InetGetBytesRead & "/" & $size, 10, 16)
  Sleep(250)
Wend
TrayTip("Download Complete", "100%", 10, 16)
sleep(1500)

[dnsi]

Cool

[ConsultingJoe]

Cool

lol, you just now found this, it doesn't like to work with banners because of variables tho

[UTA]

I get the same error message as mike.

Sorry, does not work for me...a IE.au3-problem....

[ConsultingJoe]

I get the same error message as mike.

Sorry, does not work for me...a IE.au3-problem....

what you need is the IE.au3 and an already opened Internet Explorer window else it will put out the error.

goto: this link then minimize the window and run the script.

[ConsultingJoe]

Ohh, I tried this on a different pc and I'm getting $object is not type object. I don't know exactly why this is doing this. I will ask dale. thanks