Pop up Log in Time out (How to detect it?)

[ToyBoi]

Hello, for those who are tldr, is there a way for autoit to detect that the script hasn't done anything in , say 1 minute, and quit IE and restart it? (not the whole script, but a certain point in the loop where it got stuck.)

I have this script which logs into about 50 servers individually and retrieves info.

expandcollapse popup

for $a = 0 to 48
    $oIE = _IECreate($IP[$a],0,1,0,1)

    sleep(2000) 
if WinActive("Connect to" ) then
    send ($username)
    sleep (500)
    send ("{Tab}")
    send ($password) 
    sleep(500)
    Send("{enter}")
    sleep(2000)
endif

;enters the username and password

while WinActive("Connect to" )
        sleep(400)
        send ($password) 
        sleep(400)
        Send("{enter}")
        _IELoadWait ($oIE)
wend


    _IENavigate($oIE, $IP[$a] & "/0/page15.htm")
    _IELoadWait ($oIE)
    Sleep(1000)

    $oTable = _IETableGetCollection ($oIE,1)
    $aTableData = _IETableWriteToArray ($oTable, True)
    
    WinActivate("[TITLE:Microsoft Excel]", "")
    _ExcelSheetActivate($oExcel, $ServerName[$a])
    _ExcelWriteSheetFromArray($oExcel, $aTableData, 1, 1, 0, 0)
    sleep(300)
    _IEQuit ($oIE)
    sleep(2500)
next

what happens is that for every server I start a new IE, and it will ask me for the user name and password pop up

sometimes this log in pop up shows up once, and I will have to enter both the username and password. Sometimes it shows up a second time right after asking for the password only, again. then it authenticates me in and I can do my stuff

The problem is that after trying my code few times, I noticed that almost every time I run it, at some random server, it will get stuck at this stage (This problem so far only happens once per runtime)

Which means I have to manually enter the password for the program to keep running or it will just sit there. I would like to be able to walk away or do something else which this program runs, so I thought if I can come up with a way for autoit to detect that it hasn't done anything in a minute. It will just close this IE instance and restart IE at that specific server and try again.

Sorry this is long, but thanks for any help

[JSThePatriot]

I would recommend (probably just a dirty trick) using a global variable, and the AdLib() function. The function you declare in the AdLib() can count how many seconds go by without that global variable being set, and if it reaches 60, it restarts that part of the code or something.

Thanks,

Jarvis

[ToyBoi]

I would recommend (probably just a dirty trick) using a global variable, and the AdLib() function. The function you declare in the AdLib() can count how many seconds go by without that global variable being set, and if it reaches 60, it restarts that part of the code or something.

Thanks,

Jarvis

do you mean AdlibEnable ?

AdlibEnable("myadlib",120000)
;...
Exit

Func myadlib()
    sleep(8000)
    If WinActive("Connect to") Then
    _IEQuit ($oIE)
    EndIf
EndFunc

I have no idea where to place this function, and I need some help on how I can have autoit restart at the point it got stuck. say it got stuck at $a = 7 (7th valuable of the array)

[GreenCan]

@ToyBoi

I found this a while ago. As JSThePatriot, I believe that this could do it.

in combination with a restart function, see

http://www.autoitscript.com/forum/index.ph...st&p=652658

AdLibEnable("_UpdateTimer", 100)

Global $nTimer = 0
Global $OldMousePosition = MouseGetPos()
GLobal $NewMousePosition


While(1)
    sleep(10)
WEnd

Func _UpdateTimer()
    $nTimer += 100 ;100 ms
    
    $NewMousePosition = MouseGetPos()
    if (($NewMousePosition[0] == $OldMousePosition[0]) and ($NewMousePosition[1] == $OldMousePosition[1])) Then
        ; The user is still idle (you might also want to check for key presses
    Else
        ; The user moved, we should start the timer over.
        $OldMousePosition = $NewMousePosition
        $nTimer = 0
    EndIf
    
    if ($nTimer >= 5000) Then
        _OnTimerFinish()
        $nTimer = 0
    EndIf
EndFunc

Func _OnTimerFinish()
    MsgBox(0, "", "You were idle for 5 seconds, and I cought you!")
    AdLibDisable()
    Exit
EndFunc

Edited March 6, 2009 by GreenCan

[ToyBoi]

thanks Greencan and JSThePatriot,

@ Greencan. I do not wish to restart the entire script because that would be a waste of time, but wherever it got stuck

my for loop is basically

for $a = 1 to 48

.

.

.

.

next $a

when i use adlibenable to find out that it got stuck at $a = 7, how do I have it restart at that point. the restart function thread I understand would restart from scratch

Edited March 6, 2009 by ToyBoi

[JSThePatriot]

You would want your program setup with functions. If you had your main for loop in a function that accepted parameters then you could supply it the number you were stuck on. You would need to make $a into a global variable so you would be able to get that number out to supply it back in.

Regards,

Jarvis

[GreenCan]

Are these servers in your network or are they websites?

You could avoid these pop-ups by mapping each drive

DriveMapAdd ( "device", "remote share" [, flags [, "user" [, "password"]]] )

do the stuff you need and delete the map afterwards.

DriveMapDel ( "device" )

Alternatively, you can also automate the login in IE, something like this:

#include <IE.au3>

$sUsername = "blabla"
$sPassword = "blablabla"
    
$oIE = _IECreate("http://etcetc.htm",0,0,0,1)
sleep(1000)
ControlSend("Username", "", "Edit2", $sUsername ,0)
ControlSend("Password", "", "Edit3", $sPassword & "{ENTER}" ,0)

GreenCan

[ToyBoi]

Are these servers in your network or are they websites?

You could avoid these pop-ups by mapping each drive

DriveMapAdd ( "device", "remote share" [, flags [, "user" [, "password"]]] )

do the stuff you need and delete the map afterwards.

DriveMapDel ( "device" )

Alternatively, you can also automate the login in IE, something like this:

#include <IE.au3>

$sUsername = "blabla"
$sPassword = "blablabla"
    
$oIE = _IECreate("http://etcetc.htm",0,0,0,1)
sleep(1000)
ControlSend("Username", "", "Edit2", $sUsername ,0)
ControlSend("Password", "", "Edit3", $sPassword & "{ENTER}" ,0)

GreenCan

Hi Greencan yes these are servers in our own network, so can i still map each drive?

and what is the difference between your login automation and mine?

note sometimes, the server will ask for the password twice, the second time it will only ask for the password.

if WinActive("Connect to" ) then
    send ($username)
    sleep (500)
    send ("{Tab}")
    send ($password)
    sleep(500)
    Send("{enter}")
    sleep(2000)
endif

;enters the password only

while WinActive("Connect to" )
        sleep(400)
        send ($password)
        sleep(400)
        Send("{enter}")
        _IELoadWait ($oIE)
wend