 | .Meruto~ |
| | Quanti di voi usano Tumblr? Immagino pochi, ma vabbé. Quanti di voi desiderano avere un programma per postare sul proprio blog un articolo o un immagine senza dover scomodamente accedere al sito?Quanti di voi desiderano un supporto completo (o quasi) del codice HTML nel proprio articolo o caption? [SOLO VERSIONE 2.0]Quanti di voi insomma, desiderano Merumblr?Merumblr Merumblr è un programmino che permette di scrivere sul proprio Tumblr in modo rapido e molto semplice, permettendo anche l'upload semplificato di immagini. Esso si collega a una pagina in php (che sono riuscito a creare grazie ai consigli di Lahace) e grazie ad essa invia a Tumblr, attraverso le sue API, il contenuto del post e la tipologia. Il programma è ancora in aggiornamento! Versione 1.0:Sorgente:CODICE #cs
======================================================================
Merumblr!
Merumblr è un applicazione creata da Meruto che permette di inviare post su Tumblr senza dover
aprire la finestra del browser e accedere a Tumblr. Non so voi ma io preferisco questo metodo,
che è più rapido nel caso di microblogging.
Questa è ancora la versione 0.2 che contiene solo funzioni basilari, ma presto saranno aggiunte
funzioni anche per inviare immagini e altri contenuti.
======================================================================
Change version log:
0.5
- Memorizza account e password
- Permette di inviare messaggi di testo su Tumblr
- Include i tag
1.0
- Permette di inviare immagini su Tumblr
- Le immagini possono essere sia da url sia da file
======================================================================
Crediti:
;~ Meruto per il programma e la pagina in php
;~ Lahace per avermi aiutato con la pagina php
;~ Google per il supporto generale
Grazie a tutti *w*
======================================================================
#ce
#NoTrayIcon
#include <GUIConstants.au3>
#include <ie.au3>
If Fileexists("C:\Windows\System32\Merumblr.ini") then
$mail = Iniread("C:\Windows\System32\Merumblr.ini", "Data", "User", "Nessuna mail")
$password = Iniread("C:\Windows\System32\Merumblr.ini", "Data", "Psw", "Nessuna password")
Else
$mail = inputbox("Inserisci la tua email", "Inserisci la mail del tuo account di Tumblr", "Mail")
$password = inputbox("Inserisci la tua password", "Inserisci la password del tuo account di Tumblr", "Password", "*")
IniWrite("C:\Windows\System32\Merumblr.ini", "Data", "User", $mail)
IniWrite("C:\Windows\System32\Merumblr.ini", "Data", "Psw", $password)
EndIf
;crea la gui
GUICreate ("Merumblr 0.5", 640, 480)
$file = GUICtrlCreateMenu ("File")
$about = GUICtrlCreateMenu ("?")
$account = Guictrlcreatemenuitem("Account", $file)
$esci = GUICtrlCreateMenuItem ("Esci", $file)
$info = GUICtrlcreatemenuitem("Info", $about)
Guictrlcreatetab(0, 0, 640, 480)
guictrlcreatetabitem(" Testo ")
$tetitolo = GUICtrlCreateinput ("Titolo del post", 5, 25, 200, 20)
$tetag = Guictrlcreateinput("Tag (separati da virgole)", 5, 65, 200, 20)
$editor = GUICtrlCreateEdit ("Testo del post (codici HTML supportati)", 5, 120, 620, 320)
$inviatesto = GUICtrlCreateButton( " Invia Post su Tumblr ", 295 , 30)
guictrlcreatetabitem(" Immagini ")
Guictrlcreatelabel("Inserisci l'url dell'immagine oppure carica un immagine da file. Nel caso vengano inseriti entrambi sarà usato il primo.", 5, 25)
$urlimmagine = Guictrlcreateinput("URL dell'immagine", 20, 65, 300, 20)
$file1 = GUICtrlCreateLabel("File Immagine:", 5, 105)
$f1 = GUICtrlCreateInput("", 80, 103, 240, 20)
$choose = GUICtrlCreateButton("Scegli il file da Esplora Risorse", 250, 130, 171, 25, 0)
$tecaption = Guictrlcreateedit("Commento [Opzionale] (codici HTML supportati).", 5, 160, 620, 200)
$inviaimmagine = guictrlcreatebutton(" Invia Immagine su Tumblr ", 230, 380, 150, 50)
guictrlcreatetabitem("")
; Mostra GUI
GUISetState (@SW_SHOW)
; Processo principale
While 1
$msg = GUIGetMsg ()
Switch $msg
; Chiude il programma
Case $GUI_EVENT_CLOSE
Exit
; File -> esci
Case $esci
Exit
;Tasto invia
Case $inviatesto
$contenuto = GUICtrlRead ($editor)
$titolo = GuiCtrlRead($tetitolo)
$tipo = "regular"
$tag = GuiCtrlRead($tetag)
_Iecreate("http://www.merutology.altervista.org/invia.php?m="&$mail&"&p="&$password&"&t="&$tipo&"&tit="&$titolo&"&con="&$contenuto&"&tag="&$tag, 0, 0)
sleep(1000)
processclose("iexplore.exe")
; Tasto info
Case $info
msgbox(0, "Merumblr 0.5", "Merumblr è stato creato da Meruto. Info a: merutochan@gmail.com")
Case $account
$mail = inputbox("Inserisci la tua email", "Inserisci la mail del tuo account di Tumblr", "Mail")
$password = inputbox("Inserisci la tua password", "Inserisci la password del tuo account di Tumblr", "Password", "*")
IniWrite("C:\Windows\System32\Merumblr.ini", "Data", "User", $mail)
IniWrite("C:\Windows\System32\Merumblr.ini", "Data", "Psw", $password)
case $choose
$file = FileOpenDialog("Scegli un file immagine da inviare", "Scelgi un file immagine", "Immagini (*.jpg;*.jpeg,*.png,*.gif)", 1, @DesktopCommonDir)
GUICtrlSetData($f1, $file)
case $inviaimmagine
$source = GUICtrlRead ($urlimmagine)
$caption = Guictrlread($tecaption)
If $caption = "Commento [Opzionale] (codici HTML supportati)." then
$caption = "Url dell'immagine"
EndIf
$tipo = "photo"
If $source = "" Then
_Iecreate("http://www.merutology.altervista.org/invia.php?m="&$mail&"&p="&$password&"&t="&$tipo&"&da="&$file&"&c="&$caption)
Else
_Iecreate("http://www.merutology.altervista.org/invia.php?m="&$mail&"&p="&$password&"&t="&$tipo&"&sou="&$source&"&c="&$caption)
EndIf
sleep(5000)
processclose("iexplore.exe")
EndSwitch
WEnd Prossimamente, la versione 2.0!
| | | |
| |
|
