0

I am trying to use DoEvents in my QTP script - but getting error - Type mismatch: 'DoEvents'

Below is my script:

Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400
Const SYNCHRONIZE = &H100000
Extern.Declare micHwnd, "CloseHandle", "kernel32", "CloseHandle", micLong
Extern.Declare micHwnd, "WaitForSingleObject", "kernel32", "WaitForSingleObject", micLong, micLong
Extern.Declare micHwnd, "OpenProcess", "kernel32", "OpenProcess", micLong, micLong, micLong
Extern.Declare micHwnd, "GetExitCodeProcess", "kernel32", "GetExitCodeProcess", micLong, micLong


Public Function Run_XML(exeStr, ByVal logFile)

Dim pid, ExitEvent
Dim lineStr
Dim okFlg
Dim hProcess
Dim wait_time

wait_time =  input_details.Items()(19)

xmlCount = "0"
okFlg = 0

Dim SystemProcess
Set SystemProcess = DotNetFactory.CreateInstance("System.Diagnostics.Process")

Dim processStartInfo
Set processStartInfo = DotNetFactory.CreateInstance("System.Diagnostics.ProcessStartInfo")
processStartInfo.UseShellExecute = false

processStartInfo.FileName = "plink.exe"
processStartInfo.Arguments = Chr(34) + " -load " +  Chr(34) + session_name + Chr(34) + " -l " + Chr(34) + login_id + Chr(34) + " -pw " + Chr(34) + pwd + Chr(34) + " -m " + Chr(34) + cmd_dir + "commands.txt" + Chr(34) + " >> " + Chr(34) + log_dir & log_filename + Chr(34)
Dim myProcess
Set myProcess = SystemProcess.Start(processStartInfo)
pid = myProcess.Id

hProcess = Extern.OpenProcess(SYNCHRONIZE, False, pid)
ExitEvent = Extern.WaitForSingleObject(hProcess, (wait_time + 5) * 1000)

Do 
    Extern.GetExitCodeProcess hProcess, ExitEvent
    DoEvents
Loop While ExitEvent = STILL_ACTIVE

Extern.CloseHandle(hProcess)

End Function

Can you please suggest if Doevents is valid in QTP or not? If not then any other alternative or any other method to use the same?

Krishna
  • 27
  • 1
  • 1
  • 9

2 Answers2

1

If you just want to wait for the process to exit before proceeding, you can call Process.WaitForExit().

myProcess.WaitForExit

However, you state in comments on another answer that you want to wait for specific output from the console process. If you console app/batch file or whatever is outputting things line-by-line you could read it like this:

'Your other ProcessStartInfo code here. Configure 2 extra options as below.
processStartInfo.UseShellExecute = false
processStartInfo.RedirectStandardOutput = true

Dim myProcess
Set myProcess = SystemProcess.Start(processStartInfo)

Dim stdOut
'Redirect standard output so you can read it.
Set stdOut = myProcess.StandardOutput
Do
  Wait 0, 100
  'Store the line in a variable and check it for whatever condition you want instead of printing as below.
  print myProcess.StandardOutput.ReadLine()
Loop While (not myProcess.HasExited)
'Get any leftover output at the end of execution.
print myProcess.StandardOutput.ReadToEnd()
Xiaofu
  • 15,523
  • 2
  • 32
  • 45
0

DoEvents is not supported by QTP.

QTP uses VBScript as its scripting language and VBScript doesn't supports DoEvents.

Pankaj Jaju
  • 5,371
  • 2
  • 25
  • 41
  • is there any other alternative for `DoEvents`?? I was using it to wait for Unix batch command to wait for specific output and then break the loop to do further processing. Is there anything that you can help/suggest that can be done?? – Krishna Jan 30 '14 at 22:56
  • So is your current code is not without `DoEvents`, i.e. `Loop While ExitEvent = STILL_ACTIVE`? Also is `STILL_ACTIVE` defined somewhere in your code? If not then the loop wont work as the value would be `Null` as STILL_ACTIVE is being treated as a variable. Is it supposed to be a string? – Pankaj Jaju Jan 30 '14 at 23:11
  • Also, you should not need DoEvents to wait till the console applications finish their tasks. – Pankaj Jaju Jan 30 '14 at 23:16
  • I have added declaration of `STILL_ACTIVE` and other variables that are being used. If I don't use `DoEvents` - then it is not waiting for the Unix command to finish and comes out of the loop immediately. – Krishna Jan 31 '14 at 14:54