Sign in to follow this  
Followers 0
svaneenoo

Link does not work with _IECreateEmbedded

1 post in this topic

Hi all,

I am trying to login on a website, which I am displaying with _IECreateEmbedded.

Unfortunately, the link is not responding.

I have read in many places in this forum, that IEAction should be used, or the second example from the Help. These methods all talk about object. When I try this, I get error messages.

The login label in my case is a link with javascript.

I have also seen the IECreate2 script of Dale, but this is way to advanced for me. (I do not want to use scripts I don't understand,...although it worked perfectly)

I hope somebody can help me out.

Here is is the console output (errors)

-->IE.au3 V2.4-0 Warning from function _IEGetObjById, $_IEStatus_NoMatch (Log In)

--> IE.au3 V2.4-0 Error from function _IEAction, $_IEStatus_InvalidDataType

I have also attached the code. I think I need help on line 30 and 32 :mellow:

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <IE.au3>

Opt('MustDeclareVars', 1)

Admin()

Func Admin()

Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward

Local $GUI_Button_Home, $GUI_Button_Stop, $msg,$adminuser,$adminpass,$uPerformsite,$oSubmit

$adminuser ="xxxx"

$adminpass="xxxx"

$oIE = _IECreateEmbedded ()

$uPerformsite= "http://up01.rwd-deutschland.de/"

; Create a the form with the site embedded

GUICreate("uPerform Administrator Panel", @DesktopWidth, @DesktopHeight-50,-1,-1,BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))

$GUIActiveX = GUICtrlCreateObj ($oIE, -1, -1, @DesktopWidth, @DesktopHeight-200)

$GUI_Button_Back = GUICtrlCreateButton("Back", 10, @DesktopHeight-198, 100, 30)

$GUI_Button_Forward = GUICtrlCreateButton("Forward", 110, @DesktopHeight-198, 100, 30)

$GUI_Button_Home = GUICtrlCreateButton("Home", 210, @DesktopHeight-198, 100, 30)

$GUI_Button_Stop = GUICtrlCreateButton("Stop", 310, @DesktopHeight-198, 100, 30)

_IENavigate($oIE,$uPerformsite)

_IELoadWait ($oIE)

$oSubmit = _IEGetObjById ($oIE, "Log In")

_IEAction ($uPerformsite, "click")

GUISetState() ;Show GUI

; Waiting for user to close the window

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

Case $msg = $GUI_Button_Home

$oIE.navigate($uPerformsite)

Case $msg = $GUI_Button_Back

$oIE.GoBack

Case $msg = $GUI_Button_Forward

$oIE.GoForward

Case $msg = $GUI_Button_Stop

ExitLoop

EndSelect

WEnd

GUIDelete()

EndFunc

uperform_admin.au3

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0