IE autologin script, skips login

[madmega]

Hi, like the title says, when i run this script, it doesn't fill in the login/username field, it just skips it.
 

 

#include <IE.au3>

Call ("Signin")

Func Signin ()
Global $oIE = _IEcreate ("https://customers.rolandce.com/login.php")

Local $user_name = _IEGetObjByName ($oIE, "user_name")
Local $password = _IEGetObjByName ($oIE, "password")

_IEFormElementSetValue ($user_name, "myname@me.nl")
_IEFormElementSetValue ($password, "1234567")

EndFunc

 

 

[m16318]

Try to put 0 at the end, like this:

_IEFormElementSetValue ($user_name, "myname@me.nl",0)
_IEFormElementSetValue ($password, "1234567",0)

 

[madmega]

Great thank you !!!

Now i have to find a way to press the submit button (which has no name in the code)

[m16318]

Try to use TAB:

Send("{TAB}")

I think you would need to have a double TAB to reach log in button after your password field.

Then just send Enter

Send("{Enter}")

[MuffinMan]

Have you looked at the _IEFormSubmit function in the Help File?

[madmega]

3 hours ago, m16318 said:

Try to use TAB:

Send("{TAB}")

I think you would need to have a double TAB to reach log in button after your password field.

Then just send Enter

Send("{Enter}")

I will try that, thank you

 

Quote

Have you looked at the _IEFormSubmit function in the Help File?

Yes, i did, but nothing happened when i tried that.

 

[madmega]

Both of them don't work, any ideas ?
I do not know why it can't be "TABBED" or why ieformsubmit does not work

[madmega]

It took around 5 tabs and then enter ;-)

 

[aa2zz6]

You don't have to set $oIE as a global variable since it's only used in one area.

Global $oIE = _IEcreate ("https://customers.rolandce.com/login.php")

 

It'll post in Password but you'll have to take a look at the user/email input box and the submit button. Might want to look at the HTML for those.

#include <IE.au3>

Local $oIE = _IEcreate ("https://customers.rolandce.com/login.php")

$test1 = "Email/Username here"
$test2 = "Password Here"

Local $username = _IEGetObjByName ($oIE, "user_name")
local $password = _IEGetObjByName ($oIE, "password")
local $button = _IEGetObjByName ($oIE, "submit")

_IEFormElementSetValue ($username, $test1)
_IEFormElementSetValue ($password, $test2)
sleep(1000)
$oBtn = _IEGetObjById($oIE, "submit")
_IEAction($oBtn, "click")

 

Edited February 2, 2016 by aa2zz6

[mLipok]

Maybe like this:

#include <IE.au3>

_Example()
Func _Example()
    ; do not use Global inside Function
    Local $oIE = _IECreate("https://customers.rolandce.com/login.php")

    Signin($oIE)

EndFunc

Func Signin(ByRef $oIE)
    Local $user_name = _IEGetObjById($oIE, "user_name")
    _IEFormElementSetValue($user_name, "myname@me.nl",0)

    Local $password = _IEGetObjById($oIE, "password")
    _IEFormElementSetValue($password, "1234567",0)

    _IENavigate($oIE, "https://customers.rolandce.com/login-2.php")

EndFunc    ;==>Signin

 

[madmega]

9 hours ago, mLipok said:

Maybe like this:

#include <IE.au3>

_Example()
Func _Example()
    ; do not use Global inside Function
    Local $oIE = _IECreate("https://customers.rolandce.com/login.php")

    Signin($oIE)

EndFunc

Func Signin(ByRef $oIE)
    Local $user_name = _IEGetObjById($oIE, "user_name")
    _IEFormElementSetValue($user_name, "myname@me.nl",0)

    Local $password = _IEGetObjById($oIE, "password")
    _IEFormElementSetValue($password, "1234567",0)

    _IENavigate($oIE, "https://customers.rolandce.com/login-2.php")

EndFunc    ;==>Signin

 

It seems to work but it won't login, just got the error that something is not correct

[aa2zz6]

Maybe include something to click the submit button:

local $button = _IEGetObjByName ($oIE, "submit")
$oBtn = _IEGetObjById($oIE, "submit")
_IEAction($oBtn, "click")

 

[MuffinMan]

If you can't submit their form, try making your own and submitting it.  I tried it and got the same results as entering bad data into the form normally.  Add your credentials to the code below and see if it works...

#include <IE.au3>
$Username = "myname@me.nl"
$Password = "1234567"
Local $oIE = _IECreate()
Local $sHTML = ""
$sHTML &= "<HTML><BODY>" & @CRLF
$sHTML &= "<form id='contact_form' action='https://customers.rolandce.com/login-2.php' method='post'>" & @CRLF
$sHTML &= "  <input type='hidden' name='rce_target' value='0' >" & @CRLF
$sHTML &= "  <input type='hidden' name='current_lid' value='EN' />" & @CRLF
$sHTML &= "  <input type='text' name='user_name' id='user_name' value='" & $Username & "' />" & @CRLF
$sHTML &= "  <input type='password' name='password' id='password' value='" & $Password & "' /> " & @CRLF
$sHTML &= "  <input name='token' id='token_input' class='form_input ' type='password' />" & @CRLF
$sHTML &= "  <button type='submit' class='positive'>Log In</button> " & @CRLF
$sHTML &= "</form></BODY></HTML>"
_IEDocWriteHTML($oIE, $sHTML)
_IEAction($oIE, "refresh")
$oForm = _IEFormGetObjByName($oIE, "contact_form")
_IEFormSubmit($oForm)

 

Edited February 3, 2016 by MuffinMan
Adding details

[madmega]

This seems to work great, but when i put it in the rest of my script, it seems to halt everything.
Maybe i am doing it wrong but after the _IEFormSubmit($oForm) nothing happens.

 

expandcollapse popup

#include <IE.au3>

FileDelete("C:\roland\*")

Call ("Signin")

Func Signin ()
$Username = "login"
$Password = "paswword"
Local $oIE = _IECreate()
Local $sHTML = ""
$sHTML &= "<HTML><BODY>" & @CRLF
$sHTML &= "<form id='contact_form' action='https://customers.rolandce.com/login-2.php' method='post'>" & @CRLF
$sHTML &= "  <input type='hidden' name='rce_target' value='0' >" & @CRLF
$sHTML &= "  <input type='hidden' name='current_lid' value='EN' />" & @CRLF
$sHTML &= "  <input type='text' name='user_name' id='user_name' value='" & $Username & "' />" & @CRLF
$sHTML &= "  <input type='password' name='password' id='password' value='" & $Password & "' /> " & @CRLF
$sHTML &= "  <input name='token' id='token_input' class='form_input ' type='password' />" & @CRLF
$sHTML &= "  <button type='submit' class='positive'>Log In</button> " & @CRLF
$sHTML &= "</form></BODY></HTML>"
_IEDocWriteHTML($oIE, $sHTML)
_IEAction($oIE, "refresh")
$oForm = _IEFormGetObjByName($oIE, "contact_form")
_IEFormSubmit($oForm)


EndFunc

#include <InetConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>

; Download a file in the background.
; Wait for the download to complete.

Example()
_IEQuit($oIE)

Func Example()
    ; Save the downloaded file to the temporary folder.
    Local $sFilePath = _WinAPI_GetTempFileName("c:\roland")


    ; Download the file by waiting for it to complete. The option of 'get the file from the local cache' has been selected.
    Local $iBytesSize = InetGet("https://customers.rolandce.com/rcenet/export_avail.php", "c:\roland\roland.xls", $INET_BINARYTRANSFER)

EndFunc   ;==>Example



#include <FTPEx.au3>
#include <MsgBoxConstants.au3>


Local $sServer = 'ftp.myftp.com'
Local $sUsername = 'login'
Local $sPass = 'pass'

Local $hOpen = _FTP_Open('MyFTP Control')
Local $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass)
If @error Then
    MsgBox($MB_SYSTEMMODAL, '_FTP_Connect', 'ERROR=' & @error)
Else

_FTP_FilePut ($hConn, 'c:\roland\roland.xls' , '/roland.xls')

EndIf
Local $iFtpc = _FTP_Close($hConn)
Local $iFtpo = _FTP_Close($hOpen)

 

[madmega]

Ah...i changed it to _IEFormSubmit($oForm, 0) and now it seems to work.

Edited February 5, 2016 by madmega

[mLipok]

2 minutes ago, madmega said:

But i am getting this error

IEQuit(): undefined function.

IEQuit 

or 

_IEQuit 

 

??

 

[madmega]

Indeed it was a stupid typo, _IEQuit  it was...but the whole script works !!!