Framp's blog
Powered by FrampCMS
Powered by FrampCMS
#include <ie.au3>
#include <date.au3>
Do
$path = FileOpenDialog ("Scegli il file da uppare su ImageShack", @DesktopDir, "ImageShack (*.jpg;*.jpeg;*.png;*.gif;*.bmp;*.tif;*.tiff;*.swf)",1)
If not @error Then
$o = _IECreate ("http://imageshack.us/",0, 0)
$form = _IEFormGetObjByName($o, "upform")
$inp = _IEGetObjByName ($form, "fileupload")
_IEAction($inp, "focus")
$h = _IEPropertyGet($o, "hwnd")
ControlSend($h, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", $path)
$sub = _IEGetObjByName ($form, "butan")
_IEAction ($sub, "click")
_IELoadWait ($o)
FileDelete (@TempDir & "imageshacker.tmp")
FileWrite (@TempDir & "imageshacker.tmp", _IEBodyReadHTML ($o))
$temp = StringSplit (Fileread (@TempDir & "imageshacker.tmp"), "<a href=""http://imageshack.us""><img src=""", 1)
$temp2 = StringSplit ($temp[2], """", 1)
$link = $temp2[1]
;;
$linkth = ""
$asd = StringSplit ($temp2[1], ".")
For $x= 1 to $asd[0]
$linkth = $linkth & $asd[$x] & "."
If $x = $asd[0]-1 then $linkth = $linkth & "th."
Next
;;
FileWrite ("links.txt", _Now () & " - I tuoi link:" & @CRLF & $link & @CRLF & $linkth & @CRLF & @CRLF)
ShellExecute ("links.txt")
EndIf
Until MsgBox (4, "Ancora?", "Vuoi uppare un altro file su ImageShack?")=7
MKbis
19, 12, 2007 - 16:15:54
Bravo rampa XD continua con l'autoit anke se sei su linuz. E da cheerstian>: Fanculo e ascolta meno house XD
Framp
Admin - 30, 12, 2007 - 15:16:05
Thx :P
che classe cheerstian, inconfondibile come sempre XD
mDQGnkoU
8, 6, 2009 - 02:49:26
hSQPdg <a href="http://ucxqtyilpuan.com/">ucxqtyilpuan</a>, [url=http://bhcfqlxdbbvs.com/]bhcfqlxdbbvs[/url], [link=http://lxezbkbfahwq.com/]lxezbkbfahwq[/link], http://bjtvbxrzoair.com/