Download all the autoit forum "winks"

[z0mgItsJohn]

What it dose.. it gos to "http://www.autoitscript.com/forum/style_emoticons/autoit/" and extracts all the wink names from it and then downloads it and saves it to a folder called "winks"... simple basic and too the point.. xD

source.au3 :

#Include <File.Au3>
DirCreate ('Winks')
If FileExists ('extract.html') Then FileDelete ('extract.html')
INetGet ('http://www.autoitscript.com/forum/style_emoticons/autoit/','extract.html')
$Count = _FileCountLines ('extract.html')
$Scan = '<tr><td valign="top"><img src="/icons/image2.gif" alt="[IMG]"></td><td><a href="'
For $A = '1' To $Count 
$Read = FileReadLine ('extract.html', $A)
If StringInStr ($Read, $Scan) <> '0' Then 
$String = StringReplace ($Read, $Scan, '')
$String = StringSplit ($String, '">')
If $String['0'] > '0' Then INetGet ('http://www.autoitscript.com/forum/style_emoticons/autoit/' & $String['1'], 'Winks/' & $String['1'])
EndIf 
Next
FileDelete ('extract.html')

enjoy ^^;

- John

Edited April 7, 2009 by John2006

[gseller]

You must have been real bored. LOL We all usually benefit from your boredom tho. Thanks for sharing..