Forum Discussion

joffre's avatar
joffre
Regular Contributor
15 years ago

Wait for a command to continue executing

Hi all. I need to make the code below, wait until the "EXIT " is informed to move to the next line of code. I am using "Call Delay" but it isn't resolving, since not all commands invoked tak...
joffre's avatar
joffre
Regular Contributor
15 years ago
Thanks again for your time.



Here is the code adapted for VBScript:



Function LGComponentes

    ShellObj = Sys.OleObject("WScript.Shell")

    ShellObj.Run(ComandoCriarTabela & "1.LGComponentes\SQLServer\1.sql -o " &DirLog&"1.txt" & 1 & true)

End Function



And it returns the messages that I attached on this post. Any idea about how I can replace the code to adapt it perfectly?

Here is how I'm using the function. Is it correct?



Call directUIHWND.Keys("01 - LGComponentes[F2]1.LGComponentes[Enter][Enter]")

Call directUIHWND.Keys(CaminhoDaPasta3)

Call directUIHWND.Keys("Like %1%[F2]1.sql[Enter][BS]")

LGComponentes 'Replace the 3 lines below

'Call TestedApps.cmd.Run(1, True)

'Call Aliases.cmd.wndConsoleWindowClass.Keys(ComandoCriarTabela&"1.LGComponentes\SQLServer\1.sql -o " &DirLog&"1.txt[Enter]Exit[Enter]")

'Call Delay(10000)

Call directUIHWND.Keys(CaminhoDaPasta4)

Call directUIHWND.Keys("1.LGComponentes[Down]")

Log.Message("01.LGComponentes ready!!!")