|
7#
楼主 |
发表于 2007-11-30 12:07:31
|
只看该作者
脚本如下
Sub Main
Dim Result As Integer
dim songcyc as integer
'Initially Recorded: 2007-11-28 15:23:29
'Script Name: AddSong
for songcyc = 1 to 20
Window SetContext, "Caption=资源管理系统", ""
Window Click, "", "Coords=678,23"
TreeView Click, "Text=Tree1;\;ItemText=媒体库->歌曲", ""
TreeView Click, "Text=Tree1;\;ItemText=媒体库->歌曲->test"&songcyc, ""
TreeView Right_Click, "Text=Tree1;\;ItemText=媒体库->歌曲->test"&songcyc, ""
PopupMenuIDSelect 32776
Window SetContext, "Caption=打开", ""
Window Click, "", "Coords=35,-10"
ListView Click, "Text=FolderView;\;ItemText=test"&songcyc, "Coords=37,9"
PushButton Click, "Text=打开(O)"
DelayFor (2000)
Window SetContext, "Caption=资源管理系统", ""
DelayFor (1000)
Window Click, "", "Coords=779,26"
next songcyc
End Sub |
|