Jump to content
Valnurat

IE problems

Recommended Posts

Valnurat

I really don't understand how to enter text to a field in a IE.

 

Local $oIE = _IECreate("http://company.org:81/mwp/login.jsp", 1)
_IELoadWait($oIE)
Local $oForm = _IEFormGetObjByName($oIE, "frmLogin")
Local $oInputFile = _IEFormElementGetObjByName($oForm,"j_password")
_IEAction($oInputFile, "focus")
_IEAction($oInputFile, "selectall")
Send("This works")

Maybe I do something wrong?


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites
mLipok

try this:

Local $oIE = _IECreate("http://company.org:81/mwp/login.jsp", 1)
_IELoadWait($oIE)
Local $oForm = _IEFormGetObjByName($oIE, "frmLogin")
Local $oInputFile = _IEFormElementGetObjByName($oForm,"j_password")
_IEFormElementSetValue($oInputFile, 'MyCurrentPassword123@!$#$!@')

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API Forum Rules *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST APIErrorLog.au3 UDF - A logging Library
 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2018-10-31

Share this post


Link to post
Share on other sites
Valnurat

It seems both solutions works.

If I run the code 1 time, IE starts, but no text is entered.

But if I run it again without closing IE, the code catch IE and enter the text.

What do I need to do for doing that?

Edited by Valnurat

Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites
aa2zz6

mLipok posted this piece of code a while back in another IE topic and I think it would work here. Revise it to your needs. I would suggest adding some type of WinActive to check whether the page is already active and then run the Signin($oIE) and if the page doesn't exists then run a IECreate.

Hope it helps.

#include <IE.au3>

_Example()
Func _Example()

    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

 

 

Share this post


Link to post
Share on other sites
Valnurat

I tried this:

_Main()
Func _Main()
    Local $oIE = _IECreate("http://Company.org:81/mwp/login.jsp",1)
    _IELoadWait($oIE)
    if WinActive('Log On - Microsoft Internet Explorer - Company','Log On -') Then
        MsgBox($MB_SYSTEMMODAL, "", "Exists")
        Signin($oIE)
    Else
        MsgBox($MB_SYSTEMMODAL, "", "Do not exists")
    EndIf
EndFunc

Func Signin(ByRef $oIE)
    Sleep(5000)
    Local $user_name = _IEGetObjById($oIE, "j_username")
    _IEFormElementSetValue($user_name, "donkey",0)

    Local $password = _IEGetObjById($oIE, "j_password")
    _IEFormElementSetValue($password, "Gofish",0)
EndFunc    ;==>Signin

I get a message that the windows exists, but it will not fil in the text and if I run it again without closing IE, it will fill out the text.

 

Console output:

>Running:(3.3.14.2):C:\Program Files (x86)\AutoIt3\autoit3_x64.exe "UserDelete.au3"   
--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
--> IE.au3 T3.0-2 Error from function _IELoadWait, $_IESTATUS_ClientDisconnected (-2147023179, Browser has been deleted prior to operation.)
--> IE.au3 T3.0-2 Error from function _IELoadWait, $_IESTATUS_InvalidObjectType ()
Exists

--> IE.au3 T3.0-2 Error from function _IEGetObById, $_IESTATUS_InvalidObjectType
--> IE.au3 T3.0-2 Error from function _IEFormElementSetValue, $_IESTATUS_InvalidDataType
--> IE.au3 T3.0-2 Error from function _IEGetObById, $_IESTATUS_InvalidObjectType
--> IE.au3 T3.0-2 Error from function _IEFormElementSetValue, $_IESTATUS_InvalidDataType
+>09:54:05 AutoIt3.exe ended.rc:0
+>09:54:05 AutoIt3Wrapper Finished.
>Exit code: 0    Time: 1.748

Edited by Valnurat

Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites
aa2zz6

You need to declare the $oIE as a Global variable since you are referencing it outside of the function.

Code:

Global $oIE = _IECreate("http://Company.org:81/mwp/login.jsp",1)

A little revision: I tested this with the link below and it works fine.

#include <IE.au3>
#include <MsgBoxConstants.au3>

Opt("WinTitleMatchMode", 2)

_Main()

Func _Main()
    Global $oIE = _IECreate("https://customers.rolandce.com/login.php", 1)
    _IELoadWait($oIE)
    If WinActive("Internet Explorer") = True Then
        MsgBox($MB_SYSTEMMODAL, "", "Exists", 1)
        Signin($oIE)
    Else
        MsgBox($MB_SYSTEMMODAL, "", "Do not exists", 1)
        Global $oIE1 = _IECreate("https://customers.rolandce.com/login.php", 1)
        _IELoadWait($oIE1)
        Signin($oIE1)
    EndIf

    EndFunc   ;==>_Main

    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)

    EndFunc   ;==>Signin

 

Edited by aa2zz6

Share this post


Link to post
Share on other sites
Valnurat

I'm sorry to say, but it still do not work.

Opt("WinTitleMatchMode", 2)

_Main()

Func _Main()
    Global $oIE = _IECreate("http://company.org:81/mwp/login.jsp", 1)
    _IELoadWait($oIE)
    if WinActive('Log On - Microsoft Internet Explorer - company') = True Then
        MsgBox($MB_SYSTEMMODAL, "", "Exists", 1)
        ConsoleWrite("Exists" & @CRLF)
        WinActivate('Log On - Microsoft Internet Explorer - company')
        Signin($oIE)
    Else
        MsgBox($MB_SYSTEMMODAL, "", "Do not exists", 1)
        Global $oIE1 = _IECreate("http://company.org:81/mwp/login.jsp", 1)
        ConsoleWrite("Do not exists" & @CRLF)
        _IELoadWait($oIE1)
        WinActivate('Log On - Microsoft Internet Explorer - company')
        Signin($oIE1)
    EndIf
EndFunc

 

I get this in my console:

--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
--> IE.au3 T3.0-2 Warning from function _IEAttach, $_IESTATUS_NoMatch
--> IE.au3 T3.0-2 Error from function _IELoadWait, $_IESTATUS_ClientDisconnected (-2147023179, Browser has been deleted prior to operation.)
--> IE.au3 T3.0-2 Error from function _IELoadWait, $_IESTATUS_InvalidObjectType ()
Exists
--> IE.au3 T3.0-2 Error from function _IEGetObById, $_IESTATUS_InvalidObjectType
--> IE.au3 T3.0-2 Error from function _IEFormElementSetValue, $_IESTATUS_InvalidDataType
--> IE.au3 T3.0-2 Error from function _IEGetObById, $_IESTATUS_InvalidObjectType
--> IE.au3 T3.0-2 Error from function _IEFormElementSetValue, $_IESTATUS_InvalidDataType

 

Edited by Valnurat

Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites
aa2zz6

Try this:

#include <IE.au3>
#include <MsgBoxConstants.au3>

Opt("WinTitleMatchMode", 2)

_Main()

Func _Main()
    Global $oIE = _IECreate("http://company.org:81/mwp/login.jsp", 1)
    _IELoadWait($oIE)
    if WinActive('Log On - Microsoft Internet Explorer - company') = True Then
        MsgBox($MB_SYSTEMMODAL, "", "Exists", 1)
        ConsoleWrite("Exists" & @CRLF)
        WinActivate('Log On - Microsoft Internet Explorer - company')
        Signin($oIE)
    Else
        MsgBox($MB_SYSTEMMODAL, "", "Do not exists", 1)
        Global $oIE = _IECreate("http://seluas01.alfalaval.org:81/mwp/login.jsp", 1)
        ConsoleWrite("Do not exists" & @CRLF)
        _IELoadWait($oIE)
        WinActivate('Log On - Microsoft Internet Explorer - company')
        Signin($oIE)
    EndIf
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)

EndFunc   ;==>Signin

 

Edited by aa2zz6

Share this post


Link to post
Share on other sites
Valnurat

Sorry, the same result.


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites
AutoBert

Without the URL or the source of the site it's like reading tea leaves.

Share this post


Link to post
Share on other sites
aa2zz6

I would suggest going on Google chrome and inspecting the username and password input boxes. Post the input ID of each, along with the url. 

Share this post


Link to post
Share on other sites
Valnurat
On ‎04‎-‎03‎-‎2016 at 4:54 PM, AutoBert said:

Without the URL or the source of the site it's like reading tea leaves.

Please tell me how I can post the source?


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites
Valnurat

Is this useful?

login[1].txt


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites
AutoBert

yes, this is the source of the site and will help solving the problem.

 

Share this post


Link to post
Share on other sites
Valnurat

Ok. Could someon tell me what I should do.

As it is now it will work if I run it twice.


Yours sincerely

Kenneth.

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

  • Similar Content

    • 2Toes
      By 2Toes
      Hi all..
      I'm having slight issue that has be a bit puzzled.
      I have an Input control.. After a certain function runs, it Disables that Input control, and sets it to ReadOnly.
      When running another certain function, it re-Enables that Input control, and sets the style back to Default.
      Which does work, however, when typing into the Input control after re-Enabling it, the text appears as a light gray color, rather than its original black color.
      I'm sure there's a simple solution here.. But what that is, appears to be beyond me.
      Here is a simplified example code:
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= Global $Form1 = GUICreate("Form1", 245, 215, 192, 124) Global $disableBTN = GUICtrlCreateButton("Disable", 32, 64, 75, 25) Global $enableBTN = GUICtrlCreateButton("Enable", 128, 64, 75, 25) Global $Input1 = GUICtrlCreateInput("", 32, 120, 169, 21) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $disableBTN disable() Case $enableBTN enable() EndSwitch WEnd Func disable() GUICtrlSetState($Input1, $GUI_DISABLE) GUICtrlSetStyle($Input1, $ES_READONLY) EndFunc Func enable() GUICtrlSetState($Input1, $GUI_ENABLE) GUICtrlSetStyle($Input1, $GUI_SS_DEFAULT_INPUT) EndFunc  
      Any help would be greatly appreciated
      Thank you in advance!
    • jantograaf
      By jantograaf
      Hi all,
      I'm trying to create a script that runs a JSON-query and then can retrieve some variables out of the returned, decoded object using JSON.au3. I have tried some other examples on this forum, but I'm stuck at one point. My query works perfectly and gets loaded into the variable $data. Then, decoding $data to $object seems to work as well. But then I can't get the date-field out of this JSON-structure with my script.
      The JSON-structure returned looks like this:
      { "content": [ { "id": "451ec583-8f27-4926-82a3-a2d85e57a110", "createdDate": "2018-08-08T08:40:57.449004Z", "updatedDate": "2018-08-08T08:40:57.449004Z", "lastOpenedDate": "2018-08-08T08:40:57.449004Z", "date": "2018-04-26T00:00:00", "description": "X-Ray Exam", "patient": { "id": "f857238a-c75d-4760-b8d1-8f50f8f9bbfa", "createdDate": "2018-08-08T08:40:37.623976Z", "updatedDate": "2018-08-08T08:40:37.623976Z", "lastOpenedDate": "2018-08-08T08:40:37.623976Z", "name": "Fuerstonia", "birthDate": "2014-06-08", "breed": "", "chip": "", "color": "", "damsire": "", "sire": "", "neutered": false, "orthancUuid": "", "sex": "U", "species": "Paard", "ueln": "De 431310762114", "pmsReference": "", "origin": "" }, "type": "study", "accessionNumber": "KME201806960467", "instanceUid": null, "orthancUuid": "", "sent": false, "seriesCount": 0, "modalityType": "RX", "typeAndModality": "study RX", "client": { "id": "be627195-8458-4927-8446-f1ef37b917a4", "createdDate": "2018-08-08T08:40:31.433968Z", "updatedDate": "2018-08-08T08:40:31.433968Z", "lastOpenedDate": "2018-08-08T09:26:49.512298Z", "via": "", "extraInfo": "", "pmsReference": "", "contact": { "id": "406cc555-c491-4c29-b6bb-8d903f0e35a9", "createdDate": "2018-08-08T08:40:31.428968Z", "updatedDate": "2018-08-08T08:40:31.428968Z", "lastName": "Client 1", "firstName": "", "company": "", "email": "", "language": "nl", "phone": "", "address": { "id": "6fc7703c-137a-4e0a-ba96-8c7f38f2044b", "city": "", "country": "", "line": "", "postalCode": "" } } } }, My script looks like this:
      #RequireAdmin #include <json.au3> #include <inet.au3> #include <File.au3> ;Create a handle to a logfile (will be created if it doesnt exist) Global $logfile = FileOpen("C:\VSOL\VSTK\Logs\MigrationFix\MigrationFix.log",9) FileWriteLine($logfile,"Start script") ;Create the URL with the JSON-query $URL = "http://localhost:8080/v0/studies/?seriesCount=1" ;Catch the query output into a variable $data = _INetGetSource($URL) ;Check if there is any data at all in this variable, if not, exit If Not $data Then MsgBox(1,"Error","No answer. Server is probably not running.") Exit EndIf ;For debugging purposes FileWriteLine($logfile,$data) ;Decode the JSON_string into a useable object $object = Json_Decode($data,1000) If @error Then FileWriteLine($logfile,"Error decoding JSON") Exit EndIf Local $i = 0 ;Start a loop to retrieve the study date of each study... While 1 $study_date = json_get($object,'[' & $i & '].date') If @error Then FileWriteLine($logfile,"Study-Date retrieval error") ExitLoop EndIf $i = $i + 1 WEnd ;Close the logfile FileWriteLine($logfile,"Stop script") FileClose($logfile) ;Open the logfile for quick reference ShellExecute("C:\VSOL\VSTK\Logs\MigrationFix\MigrationFix.log") If believe it has something to do with my json_get($object...)-command. Anyone who can point me in the right direction?
      Thanks in advance!
      Kind regards
    • gahhon
      By gahhon
      Hi Guys,
      I was trying to read some data from the excel file and without opening the file. But I tried a lot of methods, it still open the file.
      And also, I am able to capture the ColumnA value but not Column B.
      Thanks for advance information.
      Global $oDataA, $oDataB Call ("ExcelRead", "B2", "C2") Func ExcelRead($oColumnA, $oColumnB) Local $oPath = @ScriptDir & "\MyFile.xlsx" Local $oExcel = _Excel_Open() Local $oWorkbook = _Excel_BookOpen($oExcel, $oPath, 1, 0) $oDataA = _Excel_RangeRead($oWorkbook, "Sheet 1", $oColumnA) $oDataB = _Excel_RangeRead($oWorkbook, "Sheet 1", $oColumnB) MsgBox(0, "Test Value", $oDataA & ", " & $oDataB) EndFunc  
    • SharpDressedMan
      By SharpDressedMan
      I have an array of subarrays, eg:
      local $a[3] = [ 1, 2, 3 ] local $b[3] = [ 4, 5, 6 ] local $c[2] = [ $a, $b ] I can read read a subarray element of the array, as follows:
      local $c12 = ($c[1])[2] ; result: $c12 = 6 However, when I try to set a subarray element as follows, it fails:
      ($c[1])[2] = 12 ; this fails to set subarray element local $c12 = ($c[1])[2] ; result: $c12 = 6 How to set a subarray element ?
      Thanks
    • nooneclose
      By nooneclose
      Good morning everyone, I thought I had already solved this issue but it turns out I did not. 
      My code finds unread emails with this specific subject line of "request" but when I change the subject to SKIPPED + "request" = ("SKIPPED request") the program still finds the email and tries to process it. I only want to process emails with the exact match subject of "request".
      Here is my code that "finds" the unread emails with the subject of "request" or so I thought. 
      Func ListUnreadEmails() ;******************************************************************************* ; Lists all unread E-mails from the folder Outlook-UDF-Test ;******************************************************************************* ; Stores all the unRead emails into an array Global $aItems = _OL_ItemFind($oOutlook, "*\Outlook-UDF-Test", $olMail, _ "[UnRead]=True", "Subject", "request", "EntryID,Subject", "", 1) ; Displays the array of unRead emails If IsArray($aItems) Then ;_ArrayDisplay($aItems, "OutlookEX UDF: _OL_ItemFind - Unread mails") Else MsgBox(48, "OutlookEX UDF: _OL_ItemFind Example Script", _ "Could not find an unread mail. @error = " & @error & ", @extended: " & @extended) EndIf ; Gets the number of unread emails Global $numberOfUnRead = UBound($aItems, $UBOUND_ROWS) - 1 ;MsgBox("", "Number of Unread emails", $numberOfUnRead) EndFunc It acts as if any part of the subject containing the word "request" and the email is unread that it will try to process it. (I think)
×