如何写实时进程资源占用(memory)的脚本,在qtp里.

viviv_wang

如题.我想在qtp中写个函数来获得资源管理器中的某个进程资源占用的记录,有高手请指点下.thx.

xiaonan

这个要熟悉API函数的才能写,呵呵

Coffey111111

API函数是什么？为什么ＱＴＰ帮助里没有呀？sdlkfj8

miniyal

API是应用程序接口好像呵呵

xiaonan

API是windows提供给程序员调用系统应用函数的接口

wssgily

这个东西我也找了好长时间了,没有搞定.呵呵!有什么信息可以共享一下啊!

lovetest6

是不是可以使用tasklist命令，在命令行得到数据，再用QTP提取。
或者写个vbscript脚本查wmi脚本库就可以了。

提供一下连接供你参考：
http://www.microsoft.com/china/M ... pting.mspx?mfr=true

http://tech.163.com/06/0624/20/2KDKFDFF00091VCV.html

http://tech.sina.com.cn/c/2004-01-15/26930.html

lovetest6

如果是XP系统，
或许可以用以下脚本
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_PerfProc_Thread").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Context Switches Per Second: " & _
            objItem.ContextSwitchesPersec
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Elapsed Time: " & objItem.ElapsedTime
        Wscript.Echo "ID Process: " & objItem.IDProcess
        Wscript.Echo "ID Thread: " & objItem.IDThread
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Percent Privileged Time: " & _
            objItem.PercentPrivilegedTime
        Wscript.Echo "Percent Processor Time: " & objItem.PercentProcessorTime
        Wscript.Echo "Percent User Time: " & objItem.PercentUserTime
        Wscript.Echo "Priority Base: " & objItem.PriorityBase
        Wscript.Echo "Priority Current: " & objItem.PriorityCurrent
        Wscript.Echo "Start Address: " & objItem.StartAddress
        Wscript.Echo "Thread State: " & objItem.ThreadState
        Wscript.Echo "Thread Wait Reason: " & objItem.ThreadWaitReason
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next

或者自己去微软找对你有需要的脚本吧。
http://www.microsoft.com/technet ... fault.mspx?mfr=true

按说提供的信息已经应该足够解决你的问题了。

wssgily

原帖由 lovetest6 于 2007-3-7 09:23 发表
如果是XP系统，
或许可以用以下脚本
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer ...

版主能不能写一个监控QTPro.exe的内存和CPU的脚本啊,一直没有找到针对单个进程的.谢谢!
我这人笨,一直没有找到相应的函数!谢谢!

今天下午写了一个不调 API 能收集实时内存的脚本.还是希望能得到版主的脚本学习一下啊!

[ 本帖最后由 wssgily 于 2007-3-7 18:11 编辑 ]

lovetest6

呵呵，还是找个差不多的代码改一改吧。
好的代码都是改出来的。
呵呵。我不用.net,所以写的肯定没有你好了：）

wssgily

原帖由 lovetest6 于 2007-3-8 16:57 发表
呵呵，还是找个差不多的代码改一改吧。
好的代码都是改出来的。
呵呵。我不用.net,所以写的肯定没有你好了：）

我也不用.net,我写的代码直接是利用QTP的功能写出来.可用性还好了,就是还没有经过复杂程序测试过!

chbhaha

都是牛人

viviv_wang

这个东西用WMI来写还是有些麻烦，最好还是调用API来写，速度快些。

不过我找到了一个工具，taskinfo ，6.0的是中文版，瞒好的，能看到进程下的单个线程。