Run 2 scripts in sequence or combine

[Vikramjeet]

I have 2 scripts which must be run one after the other since the second script gets a value due to the action of first script, the second script must not start till the first is complete. Can I combine the 2 scripts so second does not start till first is complete

expandcollapse popup

;;;;Script 1

#include <MsgBoxConstants.au3>

WinActivate("Application")
WinWaitActive("Application")

Send("S*L/USER01/16AUG/US")
Sleep(2000)
Send("{ENTER}")
Sleep(3000)
Send("MB")
Sleep(3000)
Send("{ENTER}")
Sleep(4000)

;;;;;;End Script 1

;;;;;;Script 2

#include <MsgBoxConstants.au3>

$file = @ScriptDir & "\T.log"

$iNum = StringRegExp(FileRead($file), "(?sm).*^\h*(\d{1,3})", 1)[0]
ConsoleWrite($iNum & @CRLF)

WinActivate("Application")
Local $hWnd = WinWaitActive("Application", "", 5)

If $hWnd Then
    For $i = 1 To $iNum
        Send("SEQUENCE" & $i & "{ENTER}")
        Sleep(2000)
    Next
Else
    MsgBox(0, "", '"Application" window not found.')
EndIf

;;;;;;;;;End Script 2

 

[FrancescoDiMuro]

@Vikramjeet

Sure you can

Just split them in two different files ( .au3 obviousely ), and call the second script in the last line of your first script.

I think that you should check the success of the first script, disposing a boolean/integer variable or some If...Else...EndIf, in order to see is everything has gone as you were expecting in the first script.

Look at Run() and ShellExecute() functions.

Edited August 17, 2018 by FrancescoDiMuro

[Vikramjeet]

It did not work because the log file which Script2 looks at is empty at the time script1 starts. Script2 must not be called till script1 is complete. I prefer to have 1 script which performs Script1 (Does not even look at Script2) and then start Script2 once Script1 is complete

;;;;Script 1

#include <MsgBoxConstants.au3>
Script2()

WinActivate("Application")
WinWaitActive("Application")

Send("S*L/USER01/16AUG/US")
Sleep(2000)
Send("{ENTER}")
Sleep(3000)
Send("MB")
Sleep(3000)
Send("{ENTER}")
Sleep(4000)

Func Script2()
    Local $iPID = Run("APP2.exe")
EndFunc
;;;;;;End Script 1

 

[FrancescoDiMuro]

2 hours ago, Vikramjeet said:

Script2 must not be called till script1 is complete.

What tells to Script2 that Script1 has done his job correctly?

[careca]

;;;;Script 1

#include <MsgBoxConstants.au3>

;Script2() <<< I shouldn't be here, but in the end of script 1

WinActivate("Application")
WinWaitActive("Application")

Send("S*L/USER01/16AUG/US")
Sleep(2000)
Send("{ENTER}")
Sleep(3000)
Send("MB")
Sleep(3000)
Send("{ENTER}")
Sleep(4000)

Local $iPID = Run("APP2.exe") ;Start 2 only at the end of 1. 

;;;;;;End Script 1

Quote

Script2 must not be called till script1 is complete.

Edited August 17, 2018 by careca