Jump to content
Sign in to follow this  
ConsultingJoe

Cool Flash Grabber

Recommended Posts

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)

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites
ConsultingJoe

Cool

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

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites
UTA

I get the same error message as mike.

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

Share this post


Link to post
Share on other sites
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.


[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites
ConsultingJoe

Posted ImagePosted ImagePosted ImagePosted ImagePosted ImagePosted ImagePosted Image

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

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×