WinObject的GetVisibleText(取值)

#点击主界面
Dialog("AA2.0").Activate  
#点击工具tab
Dialog("AA2.0").WinButton("Button_2").Click
#点击卸载软件tab
Dialog("AA2.0").WinButton("Button").Click
#定义变量
Dim i,aa,bb,cc,dd
#循环，一个接一个地取软件的信息
For i=0 to 5
#点击winlistview中的第I行。
Dialog("AA2.0").WinListView("WinListView").Select i
#取得这行的第（i,0)的值。即软件名称
dd=Dialog("AA2.0").WinListView("WinListView").GetSubItem(i,0)
#取得winobject的值。由于是标准控件，可以完全取出值来。
aa=Dialog("AA2.0").WinObject("上次使用时间：2004-1-5  使用频率：有时").GetVisibleText
#创建文件对象
Set bb=createobject("scrīpting.FileSystemObject")
#以追加的方式打开文件。如果没有此文件，则创建文件。
Set cc=bb.opentextfile("d:\aa.txt",8,true)
#表示第几条信息的标志。直接写入I变量
cc.write(i)
cc.write(":")
#写入winlistview取得的值。即软件名称
cc.write(dd)
#写入一行空行。为了AA的代容不会直接接着dd写下去。
cc.writeline( )
#写入AA的代容。
cc.writeline(aa)
#关闭文件
cc.close()
Set cc=nothing

Next

Set cc=nothing

WinObject的GetVisibleText(取值).完全取出来,由于控件是标准控件.把内容写入到TXT中,以追加的形式写入.如果此文件不存在则创建.