51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1815|回复: 2
打印 上一主题 下一主题

[求助] 下面代码为什么导不出内存信息??

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-8-21 17:25:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
下边这段代码是拿来别人的用,由于对编程语言不熟悉,调试好久,通过了,但是没有结果导出~~~,不知道什么原因,请高手指点


Function CreateExcel( )

   Set  Excelapp=CreateObject("Excel.Application")
   ExcelApp.Workbooks.App
   ExcelApp.Visible=True
   Set CreatExcel=ExcelApp
   
End Function

Function PutValueInfile(sfilePath,ishee,irow,icolumn,value)
Set ExcelObj=CreateObject("Excel.Application")
ExcelObj.Workbooks.Open sfilePath
Set NewSheet=ExcelObject.Sheet.Item(isheet)
NewSheet.Cells(irow,icolumn)=value
ExcelObj.Application.Quit
Set ExcelObj=Nothing
GetValueInFile=value
End Function

Function MemoryCollection(T1,T2,Processname,sfilename)
  Set ExcelObj=CreateObject("Excel.Application")
  ExcelObj.workbooks.Open sfilename
  Set NewSheet=ExcelObj.Sheets.Item(3)
  Set oShell = CreateObject("WSCript.shell")
  oShell.run"Taskmgr.exe"
  Dialog("regexpwndtitle:=Windows 任务管理器").Minimize
  For i=1 to T1
                                   Memory = Dialog("nativeclass:=#32770","regexpwndtitle:=windows 任务管理器","text:=windows 任务管理器").Winlistview("regexpwndclass:=Syslistview32","window id:=1009").GetSubItem(Processname,"内存使用")
                   value=date&"_"&Time&":"&ProcessName&"内存使用情况:"&NewSheet.cells(i+1,1)=value
                                   wait T2
Next
                                 
Set oShell=Nothing
ExcelObj.ActiveWorkbook.Save
ExcelObj.Application.Quit
Set ExcelObj=Nothing
Dialog("regexpwndtitle:=Windows 任务管理器").Close
End Function

MemoryCollection 2,1,"zwcad.exe","E:\qtptest\复件 saveas\data1.xls"

[ 本帖最后由 gily19821116 于 2009-8-21 17:34 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2009-8-21 17:47:34 | 只看该作者
哈哈,我倒出来了,是缺了memory参数!
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2016-8-25 11:11
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    3#
    发表于 2009-8-21 21:05:42 | 只看该作者
    学习
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-15 00:27 , Processed in 0.070598 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表