51Testing软件测试论坛

标题: QTP脚本运行前可不可以查检某个程序是否有运行!!!?? [打印本页]

作者: ddpl2004 时间: 2007-11-21 09:49
标题: QTP脚本运行前可不可以查检某个程序是否有运行!!!??
例如我做了一个TEST,不过运行这个TEST前,想判断是否有运行其它程序(如IE,文本文件 .......等),请教!!

作者: skyzhu 时间: 2007-11-21 11:03
可以判断进程是否存在

作者: ddpl2004 时间: 2007-11-21 11:07
请教有没有什么函数可以判断

作者: gy21st 时间: 2007-11-21 11:26
简单点你可以用窗口来判断。检查窗口是否存在。
复杂点调用windows api来实现。

作者: shaofei19820625 时间: 2007-11-21 11:59
标题: 回复 4# 的帖子
如果要调用Windows api ,那能不能详细说一下步骤?谢谢了

作者: ddpl2004 时间: 2007-11-21 12:21
对,我都想知道,API 在QTP中起什么作用,怎样查找及其与参数的使用!!!

作者: rivermen 时间: 2007-11-21 13:20
systemutil.colseprocessbyname "iexplore.exe"
放在脚本的最前头。关闭相应的进程

具体查找F1

[ 本帖最后由 rivermen 于 2007-11-21 13:22 编辑 ]

作者: gy21st 时间: 2007-11-21 13:57
我刚才试了一下，貌似用WMI最简单，写了一个简单的函数，供大家参考

Function CheckProcessName (strProcessName)

Dim strMachine
Dim objWMI
Dim bExist

strMachine = "\\."
bExist = False

On Error Resume Next

set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}" & "!" & strMachine).InstancesOf("Win32_Process")

For each oProcess in objWMI

      If LCase(oProcess.name) = LCase(strProcessName) Then
      bExist = True
      Exit For
      End If

Next

Set objWMI = Nothing

CheckProcessName = bExist

End Function

MsgBox CheckProcessName("FIREfox.exe")

作者: walker1020 时间: 2007-11-21 22:45
楼上的朋友好强，学习了！

作者: ppent 时间: 2007-11-22 10:14
猛人，厉害

作者: xiaoyaoke 时间: 2007-11-22 11:19
学习了，非常感谢

作者: sandsor 时间: 2008-8-19 11:32
学习，
正好用到关闭进程的判断，

留个脚印先~~

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)