[DL][KOD] Wordpress Quickpress

[Zkumeku]

Witajcie!

 

Każdy z posiadaczy wordpressa wie co to jest wchodzenie, logowanie się itp. Teraz każdą swoją myśl możesz umieścić bez potrzeby wchodzenia na swojego wordpressa! Pewnie zaczniecie pytać czemu to akurat rozwiązałem za pomocą IE.

 

Więc tłumaczę. AutoIT jest to język na windowsa, ale działa także na np linuksie. Więc odnośnie windowsa, zawiera on domyślnie internet explorera. Użytkownik nie jest zmuszony do instalowania żadnej innej przeglądarki (np FF), co sprawia go wygodnym w użyciu.

 

Zastrzegam sobie prawa do kodu. Proszę o nie rozpowszechnianie kodu jak i programu bez mojej zgody.

 

 

# Kod

 

Plik .au3

 

 

#cs ----------------------------------------------------------------------------
Name: Wordpress Quickpress
Author:		 Zkumeku
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wordpress Quickpress by Zkumeku", 394, 394, 363, 280)
$Label1 = GUICtrlCreateLabel("Tytuł", 8, 8, 29, 17)
$Input1 = GUICtrlCreateInput("Tutaj wpisz swój tytuł...", 8, 32, 377, 21)
$Label2 = GUICtrlCreateLabel("Treść", 8, 56, 31, 17)
$Edit1 = GUICtrlCreateEdit("", 8, 80, 377, 217)
GUICtrlSetData(-1, "Wpisz tu treść swojego wpisu...")
$Label3 = GUICtrlCreateLabel("Tagi", 8, 304, 25, 17)
$Input2 = GUICtrlCreateInput("Tutaj wpisz swoje tagi...", 8, 328, 377, 21)
$Button1 = GUICtrlCreateButton("Zapisz szkic", 8, 352, 97, 33)
$Button2 = GUICtrlCreateButton("Wyczyść", 112, 352, 97, 33)
$Button3 = GUICtrlCreateButton("Opublikuj!", 288, 352, 97, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

 $oIE = _IECreateEmbedded ()

    $link = IniRead("settings.ini", "link", "link", "http://google.pl")

   logowanie()

While 1
   $var = Ping("google.com",3000)
   If Not $var Then
       Traytip("Wordpress Quickpress by Zkumeku","Utracono połączenie sieciowe!",4000 , 3)
   Else
   EndIf

   $nMsg = GUIGetMsg()
   Switch $nMsg
       Case $GUI_EVENT_CLOSE
           logout()
           Exit
    Case $Button2
           GUICtrlSetData($Edit1, "")
       Case $Button3
           uzupelnianie()
           publikacja()
       Case $Button1
           uzupelnianie()
           szkic()
   EndSwitch
WEnd


Func logowanie()
       $link = IniRead("settings.ini", "panel_administracyjny", "link", "http://google.pl")
   $oIE = _IECreate($link, 1, 0, 0)
   _IELoadWait($oIE)
   $login = IniRead("settings.ini", "dane_logowania", "login", "admin")
   $haslo = IniRead("settings.ini", "dane_logowania", "haslo", "admin1")
              	 $oForm = _IEFormGetObjByName($oIE, 0)
                   $oUser = _IEGetObjByName($oForm, "log")
                  	   _IEFormElementSetValue ($oUser, $login)
                   $oPass = _IEGetObjByName($oForm, "pwd")
                           _IEFormElementSetValue ($oPass, $haslo)
   _IEFormSubmit($oForm,0)
EndFunc

Func uzupelnianie()
   _IELoadWait($oIE)
   $tytul = GuiCtrlRead($Input1)
   $tresc = GuiCtrlRead($Edit1)
   $tagi = GuiCtrlRead($Input2)
              	 $oForm1 = _IEFormGetObjByName($oIE, "quick-press")
                   $oTytul = _IEGetObjByName($oForm1, "post_title")
                  	   _IEFormElementSetValue ($oTytul, $tytul)
                   $oTresc = _IEGetObjByName($oForm1, "content")
                           _IEFormElementSetValue ($oTresc, $tresc)
                   $oTagi = _IEGetObjByName($oForm1, "tags_input")
                       If $tagi = "Tutaj wpisz swoje tagi..." Then
                           _IEFormElementSetValue ($oTagi, "")
                       Else
                           _IEFormElementSetValue ($oTagi, $tagi)
                       EndIf
EndFunc

Func publikacja()
   $oForm1 = _IEFormGetObjByName($oIE, "quick-press")
   $oSubmit = _IEGetObjByName($oForm1, "publish")
   _IEAction($oSubmit, "click")
   MsgBox(0,"Wordpress Quickpress by Zkumeku","Twój wpis został opublikowany!")
EndFunc

Func szkic()
   $oForm1 = _IEFormGetObjByName($oIE, "quick-press")
   $oSubmit = _IEGetObjByName($oForm1, "save")
   _IEAction($oSubmit, "click")
EndFunc

Func logout()
   $link2 = IniRead("settings.ini", "link_strony", "link", "http://google.pl")
   _IENavigate($oIE, $link2 &"/wp-login.php?action=logout")
   _IELinkClickByText($oIE, "wylogować")
   _IEQuit($oIE)
EndFunc

 

 

 

Plik .ini

 

 

[link_strony]
link=http://strona.pl
[panel_administracyjny]
link=http://strona.pl/wp-admin
[dane_logowania]
login=admin
haslo=admin1

 

 

 

# Download

http://speedy.sh/fnb5P/Wordpress-Quickpress-by-Zkumeku.zip

# Skan

https://www.virustotal.com/file/bcadc46d4a4aee1d7184e4c8ba448f9c5a9b7b0902f5c059435fc02374349d3a/analysis/1332628280/

# Hasło

zkumeku

[Protecto]

Quickpressa mogę sobie wrzucić na zakładkę i jeszcze szybciej będzie i wygodniej.

 

PS Zastrzegać prawa to sobie możesz...

Jak Ci tak na tym zależy to wygoogluj Creative Commons.