Sign in to follow this  
Followers 0
ConsultingJoe

Cool Flash Grabber

6 posts in this topic

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



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

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

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

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  
Followers 0