51Testing软件测试论坛

标题: 下面代码为什么导不出内存信息？？ [打印本页]

作者: gily19821116 时间: 2009-8-21 17:25
标题: 下面代码为什么导不出内存信息？？
下边这段代码是拿来别人的用，由于对编程语言不熟悉，调试好久，通过了，但是没有结果导出~~~，不知道什么原因，请高手指点

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 编辑 ]

作者: gily19821116 时间: 2009-8-21 17:47
哈哈，我倒出来了，是缺了memory参数！

作者: liujinkui 时间: 2009-8-21 21:05
学习

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