Szybkie Sprawdzanie Poczty ;D

[wjatek]

Napisałem sobie z nudów autologin do o2.pl :P

Taki trening z IE.au3.

Przy okazji mi życie ułatwia i może komuś się przyda.

InputBoxa z hasłem dałem dla bezpieczeństwa,

jak nie pasi to usuńcie.

 

#include <IE.au3>
$a = InputBox("Pass", "Password?", "", "*", 100, 130)
If $a = "haslor" Then   ;====> Tutaj się podaje hasło do programu, gdyby kto nie kapował
	$ie = _IECreate("http://poczta.o2.pl")
	$form = _IEFormGetCollection ($ie, 0)
	$login = _IEFormElementGetObjByName ($form, "username")
	$haslo = _IEFormElementGetObjByName ($form, "password")
	_IEFormElementSetValue ($login, "uzytkownik") ;====> Login
	_IEFormElementSetValue ($haslo, "haslo") ;====> Hasło
	_IEFormSubmit($form, 1)
	Exit
ElseIf @error = 1 Then
	Exit
Else
	MsgBox(0, "Error!!!", "Złe hasło...", 5)
EndIf

 

Taki... bajerek :unsure:

[wojtek333314]

Bardzo fajne

Jesli by ktos myslal o ulepszeniu tego kodu to chetnie ujrze kod ktory by pobieral liste tematow

[tk371]

A nie prościej użyć SMTP? - bardziej uniwersalnie

[BumBum662]

			          
#include <IE.au3>
 $logowanie = InputBox("Login", "Tutaj podaj Login do E-Maila - (Sprawdzanie poczty by wjatek , ja tylko troche edytowałem)", "", "", 100, 130)
				  $logowanie1 = InputBox("Hasło", "Tutaj Podaj hasło do poczty, Program nie wysyła nic na Email!", "", "*", 100, 130)
               $ie = _IECreate("http://poczta.o2.pl")
               $form = _IEFormGetCollection ($ie, 0)
               $login = _IEFormElementGetObjByName ($form, "username")
               $haslo = _IEFormElementGetObjByName ($form, "password")
               _IEFormElementSetValue ($login, $logowanie)
               _IEFormElementSetValue ($haslo, $logowanie1)
               _IEFormSubmit($form, 1)
EndSwitch
               Exit
       ElseIf @error = 1 Then
               Exit
       Else
               MsgBox(0, "Error!!!", "Złe hasło...", 5)
       EndIf

 

Nie lepiej ? tzn , nie musisz kodu edytowac żeby zmienić ID I hasło

[m4rcin93]

tyllko po co to hasło ? :|

[BumBum662]

tyllko po co to hasło ? :|

 

Jakie ? ;d w moim kodzie nie ma inputboxa zeby program uruchomic ;x

 

PS - New program - Funkcjonator :P

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Ie.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Funkcjonator", 700, 400, 500, 350)
$a = GUICtrlCreateButton("Zrob Komunikat", 8, 8, 250, 65)
GUICtrlSetFont(-1, 25, 500, 3, "Perpetua")
$b = GUICtrlCreateMenu("Program")
$c =GUICtrlCreateMenuItem("Autor", $
$d =GUICtrlCreateMenuItem("Wersja", $
$e =GUICtrlCreateMenuItem("Wyjdź", $
$menu = GUICtrlCreateMenu("Wspomoz Autora za darmo")
$youtube = GUICtrlCreateMenuItem("Youtube",$menu)
$f = GUICtrlCreateButton("Otwórz Strone", 8, 75, 250, 65)
GUICtrlSetFont(-1, 25, 500, 3, "Perpetua")
$g = GUICtrlCreateButton("Formatuj Dysk", 8, 140, 250, 65)
GUICtrlSetFont(-1, 25, 500, 3, "Perpetua")
$h = GUICtrlCreateButton("Szybkie logowanie do poczty na O2",8,210,250,65)
GUICtrlSetFont(-1, 15, 500, 3, "Perpetua")
$mpcforum = GUICtrlCreateMenuItem("Mpcforum",$menu)
GUICtrlSetFont(-1, 15, 500, 3, "Perpetua")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $a
                               $1 = InputBox("Tytuł komunikatu", "Wpisz tutaj Tytuł komunikatu","", "")
                               $2 = InputBox("Tresc Komunikatu", "Wpisz tutaj Tresc Komunikatu", "", "")
MsgBox(0,$1,$2)
         case $c
		  MsgBox(0,"Autor","Program Stworzony przez BumBum662")
	  case $d
		  MsgBox(0,"Wersja","Wersja 2.0")
	  case $e
		  exit
	  case $f
		  $3 = InputBox("Strona","Wprowadź link do strony")
		  ShellExecute($3)
	  case $g
		  $4 = InputBox("Formatowanie","Jaki Dysk Zformatować?")
		  run("cmd.exe")
		  sleep(1000)
		  send("Format: ")
		  send($4)
		  send("{enter}")
         case $h
		          $logowanie = InputBox("Login", "Tutaj podaj Login do E-Maila - (Sprawdzanie poczty by wjatek , ja tylko troche edytowałem)", "Login", "", 200, 200)
				  $logowanie1 = InputBox("Hasło", "Tutaj Podaj hasło do poczty, Program nie wysyła nic na Email!", "Haslo", "*", 100, 130)
               $ie = _IECreate("http://poczta.o2.pl")
               $form = _IEFormGetCollection ($ie, 0)
               $login = _IEFormElementGetObjByName ($form, "username")
               $haslo = _IEFormElementGetObjByName ($form, "password")
               _IEFormElementSetValue ($login, $logowanie)
               _IEFormElementSetValue ($haslo, $logowanie1)
               _IEFormSubmit($form, 1)
		case $youtube
			ShellExecute("www.youtube.pl")
			MsgBox(0,"Subscribe","Subsrykuj mnie na youtube! ")
		case $mpcforum
			ShellExecute("http://www.mpcforum.pl/user/377557-bumbum662/")
			MsgBox(0,"Minuski","Daj troche minusów ")
EndSwitch
WEnd

[Protecto]

Fajny program do nauki podstaw AutoIt, ale wolę Thunderbirda.

[Stanley99]

Witam

 

Nie zamierzam nikogo do "autoitowania" zniechęcać, wręcz przeciwnie. Niemniej tam, gdzie są sprawdzone, działające gotowce, uważam, że nie ma po co wyważać otwartych drzwi.

Od lat do sprawdzania poczty "w tle" używam niewielki i darmowy Magic Mail Monitor. Może monitorować praktycznie dowolną ilość skrzynek. Kasować wybrane maile bezpośrednio na serwerze, bez ich pobierania na komputer. Szybki podgląd wiadomości (otwiera w Notatniku). Ponadto łatwe w użyciu filtry: wiadomości spełniające określone kryteria, np. pochodzące od określonego nadawcy, lub zawierające określony ciąg znaków może natychmiast usuwać na serwerze lub np. wyróżniać określonym kolorem.

 

A potem Thunderbirdem ściągam tylko to co chciałem ściągnąć :-)

 

http://mmm3.sourceforge.net/

 

Pozdrawiam -

 

Stanley

[m4rcin93]

Sprawdzanie poczty Gmail.com:

#include <String.au3>
$user = InputBox("Dane do logowania", "Wpisz login")
$pass = InputBox("Dane do logowania", "Wpisz hasło")
$a = InetRead("https://"&$user&":"&$pass&"@gmail.google.com/gmail/feed/atom")
$b = BinaryToString($a)
If $b = True Then
$1 = '<email>'
$2 = '</email>'
$3 = '<name>'
$4 = '</name>'
$5 = '<summary>'
$6 = '</summary>'
$7 = '<title>'
$8 = '</title>'
$tekst = _StringBetween($b,$1,$2)
$tekst1 = _StringBetween($b,$3,$4)
$tekst2 = _StringBetween($b,$5,$6)
$he = _StringBetween($b,$7,$8)
for $x = 0  to ubound($tekst) -1
If not @error then MsgBox(0,$he[0],"Tytuł: "&$tekst[$x]&@CRLF&@CRLF&"Temat: "&$tekst1[$x]&@CRLF&@CRLF&"Tresc: "&$tekst2[$x])
Next
MsgBox(0,"","Koniec!")
Else
   MsgBox(0,"","Złe dane do logowania!")
   Endif

[wjatek]

@2up - ja to po prostu pisałem dla poćwiczenia Po co początkujący programiści tworzą "Hello world"?

[pasiu_pl]

Witam.

Podpowiedzcie gdzie można podpatrzeć link do logowania np. do onetu?  (tak jak w tym przykładzie jest do gmaila)

Dzięki