Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Problem] IE.au3 / Poczta WP


Rekomendowane odpowiedzi

Opublikowano

Witam. Mam taki kod:

 

#include
#include
#include
#include
#include
#include
#include

$Form = GUICreate("Reader", 668, 616, 192, 124)
$Start = GUICtrlCreateButton("Start", 8, 8, 145, 49, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Start
	$IECreate = _IECreateEmbedded()
	$OknoIE = GUICtrlCreateObj($IECreate, 8, 72, 652, 532)
	_IENavigate($IECreate, "http://profil.wp.pl/login.html?idu=100&url=%2Fwizytowka.html%3F")
	_IELoadWait($IECreate)
	$PLogin = _IEGetObjByName($IECreate, "login_username")
	$PPass = _IEGetObjByName($IECreate, "login_password")
	$BLogin = _IEGetObjByClass($IECreate, "zal")
	_IEFormElementSetValue($PLogin, "jakis_login")
	_IEFormElementSetValue($PPass, "jakies_haslo")
	_IEAction($BLogin, "click")
	_IELoadWait($IECreate)
	_IENavigate($IECreate, "http://poczta.wp.pl/d686/napisz.html?sessid=2056602688155454&wid=")
	_IELoadWait($IECreate)
	$POdbiorca = _IEGetObjById($IECreate, "odd")
	$PTemat = _IEGetObjByName($IECreate, "temat")
	$PText = _IEGetObjByClass($IECreate, "mceContentBody")
	$BSend = _IEGetObjById($IECreate, "wysbutd")
	_IEFormElementSetValue($POdbiorca, "[email protected]")
	_IEFormElementSetValue($PTemat, "Object-01")
	_IEFormElementSetValue($PText, "Error, error hasło nieprawidłowe ")
	_IEAction($BSend, "click")
	_IELoadWait($IECreate)
	_IENavigate($IECreate, "http://poczta.wp.pl/d686/index.html")
	_IELoadWait($IECreate)
	_IENavigate($IECreate, "http://poczta.wp.pl/wyloguj.html")
	_IELoadWait($IECreate)
	_IENavigate($IECreate, "http://profil.wp.pl/login.html?url=http%3A%2F%2Fpoczta.wp.pl%2Findex.html%3Fflg%3D1&serwis=nowa_poczta_wp")
	_IELoadWait($IECreate)
EndSwitch
WEnd

 

 

I wszystko działa tak jak powinno. Program loguje się na pocztę WP. Tworzy nową wiadomość, wpisuje odbiorce, tytuł, no i tu jest problem bo chociaż znalazłem firebugiem głęboko zakopane ID oraz Class pola na treść wiadomości to nie działa pojawia mi się taki błąd:

--> IE.au3 V2.4-0 Warning from function _IEGetObjByClass, $_IEStatus_NoMatch (mceContentBody)
--> IE.au3 V2.4-0 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType

Jak używam _IEGetObjById to taki sam jest.

Po za tym wszystko wykonuje dobrze.

Proszę o pomoc. Like.

obraz24.png


Opublikowano

kilkaset krotnie szybszy i lepszy do poczty bedzie SMTP...

Jak to działa masz tu:

 http://www.mpcforum.pl/topic/556516-kod-sendtoall-czyli-wyslij-maila-do-wszystkich-jednym-kliknieciem/ 

 

Zero czekania na ładowanie stron, zamulania łącza tylko prosty i skuteczny sposób :)

Opublikowano

Nie działa mi wszystko podaję chyba dobrze bo sprawdzałem i wszystko się zgadza, taki mam błąd:

### COM Error ! Number: 80020009 ScriptLine: 56 Description:Nie powiodło się połączenie warstwy transportu z serwerem.

 

@Edit

Już działa. Wystarczyło zmienić pop.gmail.com na smtp.gmail.com.

 

 

@Edit Jak zrobić, żeby program uruchamiał się z systemem i nie było tej ikonki w tray'u.

To drugie już wiem.

Wie ktoś może, jak odjąć ostatni znak od zmiennej?

Czyli jak mam np. "Witaj Marek", to po odjęciu znaku było "Witaj Mare".

obraz24.png


Weteran
Opublikowano

Przykład jak przyciąć.

Local $result = StringTrimRight("I am a string", 3)
MsgBox(0, "String without rightmost 3 characters is:", $result)

 

Musisz skopiować skrypt do autostartu, FileCopy.

1329036830-U154499.png
Opublikowano

Wiem, że już o to pytałem, ale znikło kilka postów i zapomniałem jak to zrobić :(.

 

Mianowicie:

Wie ktoś może, jak odjąć ostatni znak od zmiennej string?

obraz24.png


Weteran
Opublikowano
Local $result = StringTrimRight("I am a string", 3)
MsgBox(0, "String without rightmost 3 characters is:", $result)

1329036830-U154499.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...