IE Loop though list of user names

[ekim415]

I have made a script that works to export data from a stubborn email archive, the code is below.  We have hundreds of email addresses that this must be run on and in the script there is the word $VARIABLE three times.  I need assistance in figuring out how to loop this script and make it run though a list of user names placed in the three locations in the code below. 

Any ideas/direction is greatly appreciated. 

 

expandcollapse popup

#include <IE.au3>


Call ("signin")

Func signin ()

Global $oIE = _IECreate("\\archive")

; win state sets window to maximum.
WinSetState("Search Archive - Internet Explorer", "", @SW_MAXIMIZE)

Local $username = _IEGetObjById ($oIE, "user_username")
Local $password = _IEGetObjById ($oIE, "user_password")
Local $loginbutton = _IEGetObjById ($oIE,"user_submit")

_IEFormElementSetValue ($username, "UserName")
_IEFormElementSetValue ($password, "Password")

_IEAction ($loginbutton, "click")

EndFunc


_IELoadWait ($oie)


Call ("search")

Func search ()


Local $subject = _IEGetObjById ($oIE, "search_name")
Local $sender = _IEGetObjById ($oIE, "search_sender")

_IEFormElementSetValue ($subject, "Outbound $VARIABLE Jan1-March31 2015")
_IEFormElementSetValue ($sender, "$VARIABLE@email.com")

EndFunc


Send ("{PGDN}" & "{PGDN}" & "{PGDN}" & "{PGDN}")
Sleep (2000)
;Selects date on Calendar
MouseClick("left", 671,450)



Local $searchbutton = _IEGetObjByName ($oIE,"save_results")

_IEAction ($searchbutton, "click")


Sleep(2000)

Global $exportnote = _IEGetObjById ($oIE, "export_note")
_IEFormElementSetValue ($exportnote, "Outbound $VARIABLE Jan1-March31 2015")

 

 

 

 

[AutoBert]

What's about: opening the Help and learning the basics, specialy about variables, arrays, reading(/writing) from(/in files), Loops (while...wend, Do...until) and  concatenating strings?

I can't find a variable named $VARIABLE in your script only the word $VARIABLE as text. 

Edited January 25, 2016 by AutoBert

[ekim415]

You are correct, there is no variable.  I was simply trying to explain what I am working to achieve in a clear manner.

[mLipok]

2 hours ago, ekim415 said:

I need assistance in figuring out how to loop this script and make it run though a list of user names placed in the three locations in the code below. 
Any ideas/direction is greatly appreciated. 

 

Start from code CleanUp.

expandcollapse popup

#include <IE.au3>

Global $oIE = _IECreate("\\archive")
_Example()

Func _Example()
    signin()
    _IELoadWait($oIE)
    search()

    Send("{PGDN}" & "{PGDN}" & "{PGDN}" & "{PGDN}")
    Sleep(2000)
    ;Selects date on Calendar
    MouseClick("left", 671, 450)

    Local $searchbutton = _IEGetObjByName($oIE, "save_results")
    _IEAction($searchbutton, "click")
    _IELoadWait($oIE)

    Local $exportnote = _IEGetObjById($oIE, "export_note")
    _IEFormElementSetValue($exportnote, "Outbound $VARIABLE Jan1-March31 2015")
EndFunc   ;==>_Example

Func signin()
    ; win state sets window to maximum.
    WinSetState("Search Archive - Internet Explorer", "", @SW_MAXIMIZE)

    Local $username = _IEGetObjById($oIE, "user_username")
    Local $password = _IEGetObjById($oIE, "user_password")
    Local $loginbutton = _IEGetObjById($oIE, "user_submit")

    _IEFormElementSetValue($username, "UserName")
    _IEFormElementSetValue($password, "Password")
    _IEAction($loginbutton, "click")
EndFunc   ;==>signin

Func search()
    Local $subject = _IEGetObjById($oIE, "search_name")
    Local $sender = _IEGetObjById($oIE, "search_sender")

    _IEFormElementSetValue($subject, "Outbound $VARIABLE Jan1-March31 2015")
    _IEFormElementSetValue($sender, "$VARIABLE@email.com")
EndFunc   ;==>search

Now you should see what can be done.

 

btw.

You do not need to use Call(.....) 

 

[ekim415]

1 hour ago, mLipok said:

Start from code CleanUp.

Your post was very helpful, thank you.

[mLipok]

btw.

What you intend to do here:
 

Send("{PGDN}" & "{PGDN}" & "{PGDN}" & "{PGDN}")
    Sleep(2000)
    ;Selects date on Calendar
    MouseClick("left", 671, 450)

 

[ekim415]

3 minutes ago, mLipok said:

btw.

What you intend to do here:
 

Send("{PGDN}" & "{PGDN}" & "{PGDN}" & "{PGDN}")
    Sleep(2000)
    ;Selects date on Calendar
    MouseClick("left", 671, 450)

 

I don't like that code but I am unable to fill out the form unless I open the pop out calendar and click the date.  So what this is doing is moving to the bottom of the page and selecting the date on a the calendar.

Here is the code from inspect element in case you see a different way to input:

 

<div class="field clear">
      <label class="_" for="search_begin_string">Begins on</label>
      <input name="search[begin_string]" class="custom_date_range calendar hasDatepicker" id="search_begin_string" type="text" size="30" readonly="readonly"><img title="..." class="ui-datepicker-trigger" alt="..." src="/images/calendar.gif">
    </div>

 

[mLipok]

Try this:

Local $oButton = _IEGetObjByID($oIE, 'search_begin_string')
_IEAction($oButton, 'click')

 

[ekim415]

1 hour ago, mLipok said:

Try this:

Local $oButton = _IEGetObjByID($oIE, 'search_begin_string')
_IEAction($oButton, 'click')

 

Thank you for this!

[mLipok]

I encourage you to read:   How to use IE.au3  UDF with  AutoIt v3.3.14.x 
And I hope now you have Idea how to solve your main problem.

mLipok

 

[ekim415]

I have watched several videos and read though some examples and I have learned that this can be solved with an array.  I understand how to make an array and in my example below I have been able to make it function as a msgbox and consolewrite but I am unable to figure out how to get this into the three places I need it to go below currently defined as $a .   Could someone point me to an example or function on how to implement this properly

 

Global $Array[10]

$Array[0] = "user1"
$Array[1] = "user2"
$Array[2] = "user3"
$Array[3] = "user4"
$Array[4] = "user5"
$Array[5] = "user6"
$Array[6] = "user7"
$Array[7] = "user8"
$Array[8] = "user9"
$Array[9] = "user10"

For $a in $Array
    MsgBox(0,"output", $a)
Next

expandcollapse popup

#include <IE.au3>

Global $oIE = _IECreate("\\archive")
_main()

Func _main()
    signin()
    _IELoadWait($oIE)
    search()

    Local $oButton = _IEGetObjByID($oIE, 'search_begin_string')
    _IEAction($oButton, 'click')

    Local $searchbutton = _IEGetObjByName($oIE, "save_results")
    _IEAction($searchbutton, "click")
    _IELoadWait($oIE)

    Local $exportnote = _IEGetObjById($oIE, "export_note")
    _IEFormElementSetValue($exportnote, "Outbound" & $a & "Jan1-March31 2015")
EndFunc   ;==>_Example

Func signin()
    ; win state sets window to maximum.
    WinSetState("Search Archive - Internet Explorer", "", @SW_MAXIMIZE)

    Local $username = _IEGetObjById($oIE, "user_username")
    Local $password = _IEGetObjById($oIE, "user_password")
    Local $loginbutton = _IEGetObjById($oIE, "user_submit")

    _IEFormElementSetValue($username, "UserName")
    _IEFormElementSetValue($password, "Password")
    _IEAction($loginbutton, "click")
EndFunc   ;==>signin

Func search()
    Local $subject = _IEGetObjById($oIE, "search_name")
    Local $sender = _IEGetObjById($oIE, "search_sender")

    _IEFormElementSetValue($subject, "Outbound" & $a & "Jan1-March31 2015")
    _IEFormElementSetValue($sender, $a & "@email.com")
EndFunc   ;==>search

 

[ekim415]

The Array is working as standalone code by when implemented below with the For loop all $Array variables come across and blank.  What am I missing?

 

expandcollapse popup

#include <IE.au3>

Global $Array[3]

$Array[0] = "user1"
$Array[1] = "user2"
$Array[2] = "user3"

Global $oIE = _IECreate("\\archive")
_main()

Func _main()
    For $Array = 0 to 2
    signin()
    _IELoadWait($oIE)
    search()

    Local $oButton = _IEGetObjByID($oIE, 'search_begin_string')
    _IEAction($oButton, 'click')

    Local $searchbutton = _IEGetObjByName($oIE, "save_results")
    _IEAction($searchbutton, "click")
    _IELoadWait($oIE)

    Local $exportnote = _IEGetObjById($oIE, "export_note")
    _IEFormElementSetValue($exportnote, "Outbound" & $Array & "Jan1-March31 2015")
    Next
EndFunc   ;==>_main

Func signin()
    ; win state sets window to maximum.
    WinSetState("Search Archive - Internet Explorer", "", @SW_MAXIMIZE)

    Local $username = _IEGetObjById($oIE, "user_username")
    Local $password = _IEGetObjById($oIE, "user_password")
    Local $loginbutton = _IEGetObjById($oIE, "user_submit")

    _IEFormElementSetValue($username, "UserName")
    _IEFormElementSetValue($password, "Password")
    _IEAction($loginbutton, "click")
EndFunc   ;==>signin

Func search()
    Local $subject = _IEGetObjById($oIE, "search_name")
    Local $sender = _IEGetObjById($oIE, "search_sender")

    _IEFormElementSetValue($subject, "Outbound" & $Array & "Jan1-March31 2015")
    _IEFormElementSetValue($sender, $Array & "@email.com")
EndFunc   ;==>search

 

[mLipok]

_IEFormElementSetValue($exportnote, "Outbound" & $Array & "Jan1-March31 2015")

HINT: When you are using Array You should use index.

Edited January 26, 2016 by mLipok

[ekim415]

1 hour ago, mLipok said:

_IEFormElementSetValue($exportnote, "Outbound" & $Array & "Jan1-March31 2015")

HINT: When you are using Array You should use index.

Thank you for leading me to the answer!  This works properly if I call the For loop on the main function otherwise I get an error stating its not defined in the other functions which makes sense because the $i is not global.  Thank you again, I started learning AutoIt two weeks ago so I apologize if I missed some very basic things but greatly appreciate your help!

 

expandcollapse popup

#include <IE.au3>
#include <Array.au3>

Global $Array[3]

$Array[0] = "user1"
$Array[1] = "user2"
$Array[2] = "user3"

Global $oIE = _IECreate("\\archive")

For $i = 0 to 2
    _main()
Next

Func _main()
    signin()
    _IELoadWait($oIE)
    search()

    Local $oButton = _IEGetObjByID($oIE, 'search_begin_string')
    _IEAction($oButton, 'click')

    Local $searchbutton = _IEGetObjByName($oIE, "save_results")
    _IEAction($searchbutton, "click")
    _IELoadWait($oIE)

    Local $exportnote = _IEGetObjById($oIE, "export_note")
    _IEFormElementSetValue($exportnote, "Outbound" & $Array[$i] & "Jan1-March31 2015")
EndFunc   ;==>_main

Func signin()
    ; win state sets window to maximum.
    WinSetState("Search Archive - Internet Explorer", "", @SW_MAXIMIZE)

    Local $username = _IEGetObjById($oIE, "user_username")
    Local $password = _IEGetObjById($oIE, "user_password")
    Local $loginbutton = _IEGetObjById($oIE, "user_submit")

    _IEFormElementSetValue($username, "UserName")
    _IEFormElementSetValue($password, "Password")
    _IEAction($loginbutton, "click")
EndFunc   ;==>signin

Func search()
    Local $subject = _IEGetObjById($oIE, "search_name")
    Local $sender = _IEGetObjById($oIE, "search_sender")

    _IEFormElementSetValue($subject, "Outbound" & $Array[$i] & "Jan1-March31 2015")
    _IEFormElementSetValue($sender, $Array[$i] & "@email.com")
EndFunc   ;==>search

 

[AutoBert]

Declare your funcs with params: {example: Func signin($sUser, $Pass)}
and call it with the params and it would work. 

Btw.: where are your passwords stored?

Edited January 27, 2016 by AutoBert

[ekim415]

12 hours ago, AutoBert said:

Btw.: where are your passwords stored?

Thank you for the tip on declaring the functions.

There are no passwords stored.  In the signin function the defined value for username and password is static because with the cabinet admin account we have access to everything by only defining the email address in the search.