Help on Embedded

[GRB]

Ok here is the code!

#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;Globals
Global $oIE = _IECreateEmbedded()   ;Cria o Internet Explorer Object
Global $URL = "http://ikariam.com.pt/" ;Site
Global $botname = "Ikariam PT Bot"
$oForm = _IEFormGetObjByName ($oIE, "loginForm")
$oName = _IEFormElementGetObjByName ($oForm, "name")

#Region ### START Koda GUI section ### Form=
GUICreate($botname, 1206, 712, -1, -1)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 50, 1186, 612)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$oForm = _IEFormGetObjByName ($oIE, "loginForm")
$oQuery = _IEFormElementGetObjByName ($oForm, "name")

_IENavigate ($oIE, $URL)
_IELoadWait ($oIE)
$oForm = _IEFormGetObjByName ($oIE, "loginForm")
$oName = _IEFormElementGetObjByName ($oForm, "name")
_IEFormElementSetValue ($oName, "mixmax")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

And here is the output!

C:\Programas\AutoIt3\Include\IE.au3 (1247) : ==> Variable must be of type "Object".:

$o_col = $o_object.document.forms.item($s_Name)

$o_col = $o_object.document^ ERROR

Any special reason why im getting this error? Aparently the code is all fine.

GrB

[99ojo]

Ok here is the code!

#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;Globals
Global $oIE = _IECreateEmbedded()   ;Cria o Internet Explorer Object
Global $URL = "http://ikariam.com.pt/" ;Site
Global $botname = "Ikariam PT Bot"
$oForm = _IEFormGetObjByName ($oIE, "loginForm")
$oName = _IEFormElementGetObjByName ($oForm, "name")

#Region ### START Koda GUI section ### Form=
GUICreate($botname, 1206, 712, -1, -1)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 50, 1186, 612)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$oForm = _IEFormGetObjByName ($oIE, "loginForm")
$oQuery = _IEFormElementGetObjByName ($oForm, "name")

_IENavigate ($oIE, $URL)
_IELoadWait ($oIE)
$oForm = _IEFormGetObjByName ($oIE, "loginForm")
$oName = _IEFormElementGetObjByName ($oForm, "name")
_IEFormElementSetValue ($oName, "mixmax")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

And here is the output!

Any special reason why im getting this error? Aparently the code is all fine.

GrB

Hi,

try this:

#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;Globals
Global $oIE = _IECreateEmbedded()   ;Cria o Internet Explorer Object
Global $URL = "http://ikariam.com.pt/" ;Site
Global $botname = "Ikariam PT Bot"
;$oForm = _IEFormGetObjByName ($oIE, "loginForm"); empty site or other site loaded? -> object without values
;$oName = _IEFormElementGetObjByName ($oForm, "name") ; no values -> error

#Region ### START Koda GUI section ### Form=
GUICreate($botname, 1206, 712, -1, -1)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 50, 1186, 612)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;$oForm = _IEFormGetObjByName ($oIE, "loginForm") ;dto.
;$oQuery = _IEFormElementGetObjByName ($oForm, "name") ; dto.

_IENavigate ($oIE, $URL)
_IELoadWait ($oIE)
$oForm = _IEFormGetObjByName ($oIE, "loginForm")
$oName = _IEFormElementGetObjByName ($oForm, "name")
_IEFormElementSetValue ($oName, "mixmax")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

You may work with Function IsObj () for error control.

;-))

Stefan

Edited September 30, 2009 by 99ojo

[GRB]

well aparently nothing was wrong, it worked with the same code i had! Maybe was something about the web site! But thanks for the fast reply!

Edit, yes when i copy passed the code i forgot to delete the same lines i had to test the best place to put them, sorry for that!

Ok now i have other problem, tryed every way to click on submit and dont work, theres anyway i can do _IEFormElementGetObjById ?? couse the submit button only have this

<input type="submit" class="button" value="Login" />

Edited September 30, 2009 by GRB

[GRB]

not working even using this

_IELinkClickByText( $oForm, "Login")

or this

_IEFormSubmit ($oForm)

It just reset the form and stay on the same login page, think its required a click to make it valid, anyway to bypass this?

[GRB]

bump, plz any1 able to help?