[Source] Wklej.org uploader

[Phoenix_PL]

Witam.

 

Udostępniam na szybko pisany kawałek kodu który wrzuca nam zawartość pliku na wklej.org oraz kopiuje link do schowka. Praktyczna rzecz, jeśli wrzucamy jakiś kod :P

 

 

#include <IE.au3>
 
$oIE = _IECreate("wklej.org", 0, 0, 1, 1)
$textarea = _IEGetObjById($oIE, "id_body")
$okbutton = _IEGetObjById($oIE, "submit")
 
$FileDialog = FileOpenDialog("Wybierz plik do wrzucenia", @DesktopDir, "Wszystkie pliki (*.*)", 3)
If @error Then
    MsgBox(16, "Błąd!", "Wybrałeś nieprawidłowy plik!")
    Exit
EndIf
 
$FileDialog = StringReplace($FileDialog, "|", "\")
 
$fstream = FileOpen($FileDialog)
$fread = FileRead($fstream)
FileClose($fstream)
 
_IEFormElementSetValue($textarea, $fread)
_IEAction($okbutton, "click")
 
While _IEPropertyGet($oIE, "busy")
    Sleep(100)
WEnd
 
$link = _IEPropertyGet($oIE, "locationurl")
 
$choice = InputBox("Adres", "Adres wklejki, kliknij OK zeby wkleić go do schowka.", $link)
If $choice = 0 Then ClipPut($link)

_IEQuit($oIE) ;zapomniałem o tym 
 
Exit

[m4rcin93]

 

#include <String.au3>

$plik = FileOpenDialog("Wybierz plik do wrzucenia", @DesktopDir, "Wszystkie pliki (*.*)", 3)
If @error Then
    MsgBox(48,"Error!","Nie wczytano zawartosci pliku!")
    Exit
EndIf

$plik = FileRead($plik)
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("POST","http://wklej.org/",False)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send("syntax=&body="&$plik)
$zrodlo = $oHTTP.ResponseText()

$link = _StringBetween($zrodlo,'Wklejka #',' – Wklej.org')
$link = $link[0]

$komunikat = MsgBox(68,"Informacja","Wkleić link do schowka?")
If $komunikat = 6 Then ClipPut("http://wklej.org/id/"&$link)

 

Szybciej

[Phoenix_PL]

Trzeba się WinHTTP zacząć uczyć :P