Stop Running IE Func

[abdulrahmanok]

Welcome To all Brothers,

I  have Func to start IE and Automate login And I want to stop this running func by another button or hotkey but I couldn't do this and I tried to by button exit whole program ... Is there is any way to stop running IE func ? I found old Threads talking about this but i couldn't match it with my program My code:

expandcollapse popup

#include <IE.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
$asd = "I have another variables and this is just Example"
$MyGui = GUICreate("QU Job Calculator  Hours", 650, 484, -1, -1, -1, -1)
$start = GUICtrlCreateButton("Start", 234, 15, 165, 30, -1, -1)
GUICtrlSetOnEvent($start, "Start")
$stop = GUICtrlCreateButton("Stop", 234 + 30, 15 + 30, 165, 30, -1, -1)
GUICtrlSetOnEvent($stop, "Stopfunc")
GUISetState(@SW_SHOW, $MyGui)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func Start()

    Global $EraseTemp = FileOpen(@ScriptDir & "\Temp.qu", 2)
    Global $EraseTemp2 = FileWrite($EraseTemp, "")
    If ProcessExists("iexplore.exe") Then ;The process that you want to check
        ProcessClose("iexplore.exe") ;The process that you want to close
    EndIf

    $sAnswer = InputBox("Question", "Your Qu ID ?", "", "")
    If Not IsDeclared($sAnswer) Then Global $sAnswer
    $hFO2 = FileOpen(@ScriptDir & "/info.qu", 2)
    FileWrite($hFO2, $sAnswer)
    FileWrite($hFO2, @CRLF)
    FileClose($hFO2)
    $sPasswd = InputBox("Your Password", "Password here", "", "*")
    $hFO3 = FileOpen(@ScriptDir & "/info.qu", 3)
    FileWriteLine($hFO3, $sPasswd)
    FileWrite($hFO3, @CRLF)
    FileClose($hFO3)

    $opennew = @ScriptDir & "/info.qu"
    Local $readQuId = FileReadLine($opennew, 1)
    Local $readPass = FileReadLine($opennew, 2)
    Local $oIE = _IECreate("https://mybanner.qu.edu.qa/PROD/twbkwbis.P_WWWLogin")


    ;***************************************************************************  User Login - Internet Explorer
    Do

        ToolTip("Input Username And Password", 0, 0)
        If WinWait("User Login - Internet Explorer", "", 2) = 0 Then ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            ToolTip("Your Connection Is to Slow !", 0, 0)
        Else
            ExitLoop
        EndIf
    Until WinWaitActive("User Login - Internet Explorer", "", 2) = 1
    $oForms = _IEFormGetCollection($oIE)
    $Index = 0
    For $oForm In $oForms
        $oFormElements = _IEFormElementGetCollection($oForm)
    Next
    If IsObj($oFormElements) Then
        $IndexElement = 0
    EndIf
    For $oElement In $oFormElements
    Next
    $oForm2 = _IEFormGetObjByName($oIE, "loginform")

    $oElement = _IEFormElementGetObjByName($oForm2, "sid")
    _IEFormElementSetValue($oElement, $readQuId)
    $oElement = _IEFormElementGetObjByName($oForm2, "PIN")
    _IEFormElementSetValue($oElement, $readPass)
    _IEFormSubmit($oForm2)
    ;***************************************************************************  "Student Services
    Do
        ToolTip("Student Services", 0, 0)
        If WinWait("Main Menu - Internet Explorer", "", 3) = 0 Then
            ToolTip("Your Connection Is to Slow !", 0, 0)
        Else
            ExitLoop
        EndIf
    Until WinWaitActive("Main Menu - Internet Explorer", "", 2) = 1
    Local $sMyString = "Student Services"
    Local $oLinks = _IELinkGetCollection($oIE)
    For $oLink In $oLinks
        Local $sLinkText = _IEPropertyGet($oLink, "innerText")
        If StringInStr($sLinkText, $sMyString) Then
            _IEAction($oLink, "click")
            ExitLoop
        EndIf
    Next
EndFunc   ;==>_Start

Func Stopfunc()
    MsgBox(0, "", "Finally Stopped")
    Exit 0
EndFunc   ;==>Stopfunc

 

Edited November 25, 2016 by abdulrahmanok

[mLipok]

Please TIDY your code in SciTE4AutoIt  (just press CTRL+T  ), and edit your posted AutoIt script snippet.

[abdulrahmanok]

@mLipok Thanks for reply
Thats it:

expandcollapse popup

#include <IE.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
$asd = "I have another variables and this is just Example"
$MyGui = GUICreate("QU Job Calculator  Hours", 650, 484, -1, -1, -1, -1)
$start = GUICtrlCreateButton("Start", 234, 15, 165, 30, -1, -1)
GUICtrlSetOnEvent($start, "Start")
$stop = GUICtrlCreateButton("Stop", 234 + 30, 15 + 30, 165, 30, -1, -1)
GUICtrlSetOnEvent($stop, "Stopfunc")
GUISetState(@SW_SHOW, $MyGui)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func Start()

    Global $EraseTemp = FileOpen(@ScriptDir & "\Temp.qu", 2)
    Global $EraseTemp2 = FileWrite($EraseTemp, "")
    If ProcessExists("iexplore.exe") Then ;The process that you want to check
        ProcessClose("iexplore.exe") ;The process that you want to close
    EndIf

    $sAnswer = InputBox("Question", "Your Qu ID ?", "", "")
    If Not IsDeclared($sAnswer) Then Global $sAnswer
    $hFO2 = FileOpen(@ScriptDir & "/info.qu", 2)
    FileWrite($hFO2, $sAnswer)
    FileWrite($hFO2, @CRLF)
    FileClose($hFO2)
    $sPasswd = InputBox("Your Password", "Password here", "", "*")
    $hFO3 = FileOpen(@ScriptDir & "/info.qu", 3)
    FileWriteLine($hFO3, $sPasswd)
    FileWrite($hFO3, @CRLF)
    FileClose($hFO3)

    $opennew = @ScriptDir & "/info.qu"
    Local $readQuId = FileReadLine($opennew, 1)
    Local $readPass = FileReadLine($opennew, 2)
    Local $oIE = _IECreate("https://mybanner.qu.edu.qa/PROD/twbkwbis.P_WWWLogin")


    ;***************************************************************************  User Login - Internet Explorer
    Do

        ToolTip("Input Username And Password", 0, 0)
        If WinWait("User Login - Internet Explorer", "", 2) = 0 Then ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            ToolTip("Your Connection Is to Slow !", 0, 0)
        Else
            ExitLoop
        EndIf
    Until WinWaitActive("User Login - Internet Explorer", "", 2) = 1
    $oForms = _IEFormGetCollection($oIE)
    $Index = 0
    For $oForm In $oForms
        $oFormElements = _IEFormElementGetCollection($oForm)
    Next
    If IsObj($oFormElements) Then
        $IndexElement = 0
    EndIf
    For $oElement In $oFormElements
    Next
    $oForm2 = _IEFormGetObjByName($oIE, "loginform")

    $oElement = _IEFormElementGetObjByName($oForm2, "sid")
    _IEFormElementSetValue($oElement, $readQuId)
    $oElement = _IEFormElementGetObjByName($oForm2, "PIN")
    _IEFormElementSetValue($oElement, $readPass)
    _IEFormSubmit($oForm2)
    ;***************************************************************************  "Student Services
    Do
        ToolTip("Student Services", 0, 0)
        If WinWait("Main Menu - Internet Explorer", "", 3) = 0 Then
            ToolTip("Your Connection Is to Slow !", 0, 0)
        Else
            ExitLoop
        EndIf
    Until WinWaitActive("Main Menu - Internet Explorer", "", 2) = 1
    Local $sMyString = "Student Services"
    Local $oLinks = _IELinkGetCollection($oIE)
    For $oLink In $oLinks
        Local $sLinkText = _IEPropertyGet($oLink, "innerText")
        If StringInStr($sLinkText, $sMyString) Then
            _IEAction($oLink, "click")
            ExitLoop
        EndIf
    Next
EndFunc   ;==>_Start

Func Stopfunc()
    MsgBox(0, "", "Finally Stopped")
    Exit 0
EndFunc   ;==>Stopfunc

 

[abdulrahmanok]

I'm still waiting for you suggestions ......

[abdulrahmanok]

I found this but i don't know how to apply it with my code..

 

[abdulrahmanok]

OK It seems Impossible to Stop Running IE Func After all searches I Only found way to Exit program completely but can't ever Interrupt IE Func.

[spudw2k]

Disrupting an executing _IE function...you're right...probably not going to happen unless you tailor the UDF.  Can you elaborate more on what you are looking to accomplish?

Which IE func are you looking to interrupt?  At what point should the interrupt occur (point of no return or anytime)?  What should happen when after the interruption?

[abdulrahmanok]

@spudw2k

Ty very much for your reply , Actually I want to Interrupt whole IE which in my script   (start) Func Because Some users write a mistake username or password so they will can stop IE Func and back to Gui to write correct User and password

Easy to figure but hard to apply it

If you need any more explaining please tell me .

 

[spudw2k]

Ok, if you look at the example on post #3 in the thread you linked to, notice the variable $running.  The scripter is using that as a flag to determine if his process/loop should continue.  What you need to do is find a breaking point to check to see if the $running var is still set correctly, and if not return from the function.  For an example I liberally applied a "break check" to your script (untested):

expandcollapse popup

#include <IE.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

Global $bRunning = False

$asd = "I have another variables and this is just Example"
$MyGui = GUICreate("QU Job Calculator  Hours", 650, 484, -1, -1, -1, -1)
$start = GUICtrlCreateButton("Start", 234, 15, 165, 30, -1, -1)
GUICtrlSetOnEvent($start, "Start")
$stop = GUICtrlCreateButton("Stop", 234 + 30, 15 + 30, 165, 30, -1, -1)
GUICtrlSetOnEvent($stop, "Stopfunc")
GUISetState(@SW_SHOW, $MyGui)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func Start()
    $bRunning = True
    Global $EraseTemp = FileOpen(@ScriptDir & "\Temp.qu", 2)
    Global $EraseTemp2 = FileWrite($EraseTemp, "")
    If ProcessExists("iexplore.exe") Then ;The process that you want to check
        ProcessClose("iexplore.exe") ;The process that you want to close
    EndIf

    $sAnswer = InputBox("Question", "Your Qu ID ?", "", "")
    If Not IsDeclared($sAnswer) Then Global $sAnswer
    $hFO2 = FileOpen(@ScriptDir & "/info.qu", 2)
    FileWrite($hFO2, $sAnswer)
    FileWrite($hFO2, @CRLF)
    FileClose($hFO2)
    $sPasswd = InputBox("Your Password", "Password here", "", "*")
    $hFO3 = FileOpen(@ScriptDir & "/info.qu", 3)
    FileWriteLine($hFO3, $sPasswd)
    FileWrite($hFO3, @CRLF)
    FileClose($hFO3)

    $opennew = @ScriptDir & "/info.qu"
    Local $readQuId = FileReadLine($opennew, 1)
    Local $readPass = FileReadLine($opennew, 2)
    Local $oIE = _IECreate("https://mybanner.qu.edu.qa/PROD/twbkwbis.P_WWWLogin")


    ;***************************************************************************  User Login - Internet Explorer
    Do

        ToolTip("Input Username And Password", 0, 0)
        If WinWait("User Login - Internet Explorer", "", 2) = 0 Then ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            ToolTip("Your Connection Is to Slow !", 0, 0)
        Else
            ExitLoop
        EndIf
        ;====>Break Check
        If Not $bRunning Then Return 0
    Until WinWaitActive("User Login - Internet Explorer", "", 2) = 1
    $oForms = _IEFormGetCollection($oIE)
    $Index = 0
    For $oForm In $oForms
        $oFormElements = _IEFormElementGetCollection($oForm)
        ;====>Break Check
        If Not $bRunning Then Return 0
    Next
    If IsObj($oFormElements) Then
        $IndexElement = 0
    EndIf
    ;===not sure what this loop is doing here o.O
    For $oElement In $oFormElements
    Next
    ;===not sure what this loop is doing here o.O
    $oForm2 = _IEFormGetObjByName($oIE, "loginform")

    $oElement = _IEFormElementGetObjByName($oForm2, "sid")
    _IEFormElementSetValue($oElement, $readQuId)
    $oElement = _IEFormElementGetObjByName($oForm2, "PIN")
    _IEFormElementSetValue($oElement, $readPass)
    _IEFormSubmit($oForm2)
    ;***************************************************************************  "Student Services
    Do
        ToolTip("Student Services", 0, 0)
        If WinWait("Main Menu - Internet Explorer", "", 3) = 0 Then
            ToolTip("Your Connection Is to Slow !", 0, 0)
        Else
            ExitLoop
        EndIf
        ;====>Break Check
        If Not $bRunning Then Return 0
    Until WinWaitActive("Main Menu - Internet Explorer", "", 2) = 1
    Local $sMyString = "Student Services"
    Local $oLinks = _IELinkGetCollection($oIE)
    For $oLink In $oLinks
        ;====>Break Check
        If Not $bRunning Then Return 0
        Local $sLinkText = _IEPropertyGet($oLink, "innerText")
        If StringInStr($sLinkText, $sMyString) Then
            _IEAction($oLink, "click")
            ExitLoop
        EndIf
    Next
EndFunc   ;==>_Start

Func Stopfunc()
    $bRunning = False
    MsgBox(0, "", "Finally Stopped")
    ;Exit 0
EndFunc   ;==>Stopfunc

 

[abdulrahmanok]

Nice Idea I understood it but unfortunately it's not working because in start() func

$bRunning = True

so it will start and when check

If Not $bRunning Then Return 0

will find it true and start loop so it's can't repsonse to Stopfunc() to read stop line

$bRunning = False

and that's why it doesn't work

thank you for efforts i felt that's I'm near to the solution

[spudw2k]

Not sure if I understand you right, but you say it's not working?  It probably has something to do with the fact that I haven't tried executing it, mainly because I see it is dependent on access to a particular website.  In theory though, this "running flag" should work; I know others have used and do use this method to break a function.  I assumed since you were using OnEvent mode (though still using GetMSG for some reason), clicking stop "should" interrupt the start function to display the msgbox and set the flag.  Now interrupting in this fashion and using a blocking function (something that waits for input, i.e. msgbox, arraydisplay) could crash the script.  It's just something to keep in mind and likely you'll have to play with and figure out the right order of operations.  I'd recommend having your stop function only set the running flag, then save your user alert for the actual end of the escaped start function.   

Hope that helps

edit: just to demo this method, here's a link to something I made that uses this approach to "pause" and animation.  I know there is a lot of code (mostly not relevant to your need), so search for the $bIsPlaying variable.  You find the global near the top, the check in the main loop and the _PlayToggle function that toggles it.

Edited November 30, 2016 by spudw2k

[abdulrahmanok]

Thank you for your sharing , I detected The problem from pervoius Code #10  :

I just was need to Delete "Do" , "Until" because script was stucking in this and didn't check

for flag , anyway I also tried to add checking flag in "Do" Statement and it didn't work.

Final Tested Code:

expandcollapse popup

#include <IE.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

Global $bRunning = False

$asd = "I have another variables and this is just Example"
$MyGui = GUICreate("QU Job Calculator  Hours", 650, 484, -1, -1, -1, -1)
$start = GUICtrlCreateButton("Start", 234, 15, 165, 30, -1, -1)
GUICtrlSetOnEvent($start, "Start")
$stop = GUICtrlCreateButton("Stop", 234 + 30, 15 + 30, 165, 30, -1, -1)
GUICtrlSetOnEvent($stop, "Stopfunc")
GUISetState(@SW_SHOW, $MyGui)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func Start()
    $bRunning = True
    Global $EraseTemp = FileOpen(@ScriptDir & "\Temp.qu", 2)
    Global $EraseTemp2 = FileWrite($EraseTemp, "")
    If ProcessExists("iexplore.exe") Then ;The process that you want to check
        ProcessClose("iexplore.exe") ;The process that you want to close
    EndIf
        If Not $bRunning Then Return 0

    $sAnswer = InputBox("Question", "Your Qu ID ?", "", "")
    If Not IsDeclared($sAnswer) Then Global $sAnswer
    $hFO2 = FileOpen(@ScriptDir & "/info.qu", 2)
    FileWrite($hFO2, $sAnswer)
    FileWrite($hFO2, @CRLF)
    FileClose($hFO2)
    $sPasswd = InputBox("Your Password", "Password here", "", "*")
    $hFO3 = FileOpen(@ScriptDir & "/info.qu", 3)
    FileWriteLine($hFO3, $sPasswd)
    FileWrite($hFO3, @CRLF)
    FileClose($hFO3)

    $opennew = @ScriptDir & "/info.qu"
    Local $readQuId = FileReadLine($opennew, 1)
    Local $readPass = FileReadLine($opennew, 2)
    Local $oIE = _IECreate("https://mybanner.qu.edu.qa/PROD/twbkwbis.P_WWWLogin")


    ;***************************************************************************  User Login - Internet Explorer
           If Not $bRunning Then Return 0

        ToolTip("Input Username And Password", 0, 0)
        If WinWait("User Login - Internet Explorer", "", 2) = 0 Then ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            ToolTip("Your Connection Is to Slow !", 0, 0)
        Else
            
        EndIf
        ;====>Break Check
        If Not $bRunning Then Return 0
    $oForms = _IEFormGetCollection($oIE)
    $Index = 0
    For $oForm In $oForms
        $oFormElements = _IEFormElementGetCollection($oForm)
        ;====>Break Check
        If Not $bRunning Then Return 0
    Next
    If IsObj($oFormElements) Then
        $IndexElement = 0
    EndIf
    ;===not sure what this loop is doing here o.O
    For $oElement In $oFormElements
    Next
    ;===not sure what this loop is doing here o.O
    $oForm2 = _IEFormGetObjByName($oIE, "loginform")

    $oElement = _IEFormElementGetObjByName($oForm2, "sid")
    _IEFormElementSetValue($oElement, $readQuId)
    $oElement = _IEFormElementGetObjByName($oForm2, "PIN")
    _IEFormElementSetValue($oElement, $readPass)
    _IEFormSubmit($oForm2)
    ;***************************************************************************  "Student Services
    
            If Not $bRunning Then Return 0
        ToolTip("Student Services", 0, 0)
        If WinWait("Main Menu - Internet Explorer", "", 3) = 0 Then
            ToolTip("Your Connection Is to Slow !", 0, 0)
        Else
            
        EndIf
        ;====>Break Check
        If Not $bRunning Then Return 0
    Local $sMyString = "Student Services"
    Local $oLinks = _IELinkGetCollection($oIE)
    For $oLink In $oLinks
        ;====>Break Check
        If Not $bRunning Then Return 0
        Local $sLinkText = _IEPropertyGet($oLink, "innerText")
        If StringInStr($sLinkText, $sMyString) Then
            _IEAction($oLink, "click")
            ExitLoop
        EndIf
    Next
EndFunc   ;==>_Start

Func Stopfunc()
    $bRunning = False
    MsgBox(0, "", "Finally Stopped")
    Exit 0
EndFunc   ;==>Stopfunc

The Only issue is it takes about 5 or 6 to stop script.