pics.lt

CFIHS

Ich möchte den Imagehoster pics.lt automatisieren, leider ist in der kostenlosen Version des verwendeten PHP-Scripts keine API enthalten.

http://pics.lt/index.php?lang=english

Vielen Dank im Vorraus!

Spoiler anzeigen

[autoit]

#include <WinHttp.au3>
#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$hOpen = _WinHttpOpen()
$hConnect = _WinHttpConnect($hOpen, "pics.lt")

[/autoit] [autoit][/autoit] [autoit]

$aHeader = _WinHttpSimpleRequest($hConnect, "GET", "", $WINHTTP_NO_REFERER, $WINHTTP_NO_REQUEST_DATA, $WINHTTP_NO_ADDITIONAL_HEADERS, True)
$aCookie = _StringBetween($aHeader[0], "Cookie: ", ";")
$hImage = FileOpenDialog("", @ScriptDir, "(*.bmp; *.gif; *.png; *.jpg)")
$bImage = FileOpen($hImage, 16)

[/autoit] [autoit][/autoit] [autoit]

;$sHeader = ?!

[/autoit] [autoit][/autoit] [autoit]

_WinHttpSimpleRequest($hConnect, "POST", "/upload.php", "pics.lt", $bImage, $sHeader)

[/autoit]

CFIHS

Ich habe es gerade geschafft.

Spoiler anzeigen

[autoit]

#include <WinHttp.au3>
#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$hOpen = _WinHttpOpen()
$hConnect = _WinHttpConnect($hOpen, "pics.lt")

[/autoit] [autoit][/autoit] [autoit]

$hImage = FileOpenDialog("", @ScriptDir, "(*.bmp; *.gif; *.png; *.jpg)")

[/autoit] [autoit][/autoit] [autoit]

$aSS = StringSplit($hImage, "\")
$aDescription = StringSplit($aSS[$aSS[0]], ".")

[/autoit] [autoit][/autoit] [autoit]

$sSource = _WinHttpSimpleFormFill($hConnect, "/upload.php", Default, _
"name:file[]", $hImage, _
"name:alt[]", $aDescription[1])

[/autoit] [autoit][/autoit] [autoit]

$aSB = _StringBetween($sSource, '<div class="img_box">', '" title="' & $aDescription[1] & '" class="lightbox" >')
$aURL = StringSplit($aSB[0], '"')

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite("URL: " & $aURL[2])

[/autoit] [autoit][/autoit] [autoit]

_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)

[/autoit]