[problem] IE.au3 - Logowanie Plemiona.pl - problem :/

[Phoenix_PL]

Potrzebuję pomocy

Chciałem napisać skrypt logujący do plemion, ale mam następujący problem:

 

kod programu:

#include <IE.au3>
$ie = _IECreate ("http://www.plemiona.pl/", 0, 1, 1, 1)
$loginform = _IEFormGetCollection ($ie)
$userin = _IEFormElementGetObjByName ($loginform, "user")
$passin = _IEFormElementGetObjByName ($loginform, "password")
_IEFormElementSetValue ($userin, "login")
_IEFormElementSetValue ($passin, "haslo")
_IEFormSubmit ($loginform)

 

Kod formy która odpowiada za logowanie:

    <form action="index.php?action=login&server_list=1" method="post" id="login_form" style="display: none;" onsubmit="return Index.login_submit();">
       <div>
           <label for="user">
               <strong >Imię użytkownika:</strong>
               <span >
                   <input id="user" name="user" class="text" type="text" value=""
                          onkeydown="if((e=window.event||event) && e.keyCode == 13) $('#login_form').trigger('submit');"/>
               </span>
           </label>
           <label for="password">
               <strong >Hasło:</strong>
               <span >
                   <input name="clear" type="hidden" value="true" />
                   <input id="password" name="password" class="text" type="password"
 onkeydown="if((e=window.event||event) && e.keyCode == 13) $('#login_form').trigger('submit');"/>
               </span>
           </label>

<div id="js_login_button">
<a href="#" onclick="$('#login_form').trigger('submit'); return false;" class="login_button">
<span class="button_left"></span>
<span class="button_middle">Login</span>
<span class="button_right"></span>
</a>
</div> 

           <br style="clear:both;"/>
           <label for="cookie" style="text-align:right;">
               <input id="cookie" type="checkbox" name="cookie" value="true"  />
Zalogować bez przerwy
           </label>
           <p><a href="http://www.plemiona.pl/lost_pw.php">Zapomniałem hasła / zmień hasło</a></p>
                   </div>
   </form>
</div>

 

I to co wyskakuje:

 

>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "D:\AutoIt\TMP2.au3" /UserParams    
+>18:00:40 Starting AutoIt3Wrapper v.2.1.0.8    Environment(Language:0415  Keyboard:00000415  OS:WIN_XP/Dodatek Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.22.0)  from:C:\Program Files\AutoIt3
+>18:00:40 AU3Check ended.rc:0
>Running:(3.3.8.1):C:\Program Files\AutoIt3\autoit3.exe "D:\AutoIt\TMP2.au3"    
--> IE.au3 V2.4-0 Error from function _IEFormElementGetObjByName, $_IEStatus_InvalidObjectType
--> IE.au3 V2.4-0 Error from function _IEFormElementGetObjByName, $_IEStatus_InvalidObjectType
--> IE.au3 V2.4-0 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 V2.4-0 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 V2.4-0 Error from function _IEFormSubmit, $_IEStatus_InvalidObjectType
+>18:00:50 AutoIT3.exe ended.rc:0
>Exit code: 0    Time: 11.845

 

Pomocy? Co zrobiłem źle?

[KingSP1MPC]

_IEFormElementSetValue nie działa (trzeba wyłączyć obsługę java script w przeglądarce) chyba jakiś mechaniz zabezpieczający.

 

Udało mi się takie coś skombinować,niestety nie wiem do końca jak kliknąć w button ,po ID nie działa ,więc zastąpiłem go kliknięciem klawisza enter.

.przeanalizuj

 

#include <IE.au3>
local $Login,$haslo ;deklaracja zmiennych

$oIE = _IECreate("plemiona.pl") ;otwieramy internet explorer z adresem plemiona.pl
$Login = _IEGetObjByName($oIE, "user") ;;pobieramy nazwę pola do loginu
Local $hwnd = _IEPropertyGet($oIE, "hwnd") ;;pobieramy pole do  uchwytu okna przeglądarki
_IEAction($Login, "focus") ;aktywacja pola login
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "Login") ; wysłanie textu
$haslo = _IEGetObjByName($oIE, "password") ;;pobieramy nazwę pola do hasła
_IEAction($haslo, "focus") ;aktywacja pola z haslem
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "haslo") ; wysłanie textu
$loguj = _IEGetObjByName($oIE,"Login")
_IEAction($haslo, "click")
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "({ENTER}") ; wysłanie textu
_IELoadWait($oIE) ; czekamy na zaladowanie stronki