[ 本帖最后由 amy_alex 于 2008-5-4 10:45 编辑 ]作者: amy_alex 时间: 2008-5-5 09:26
1 Sub Main
2 dim i as integer
3 dim LObject as string
4 for i=8 to 12
5 LObject="ObjectIndex=1;\;ItemText="&i
6 Window SetContext, "Class=#32770;Level=8", ""
7 ListView Click, LObject , "Coords=84,8"
8 next i
9 End Sub