录制的脚本播放不了，请指教

unknow-ask · 发表于 2005-7-6 11:48:35

脚本如下：Sub Main
Dim Result As Integer

'Initially Recorded: 2005-7-6 11:21:42
'Script Name: 可视呼叫

Window SetContext, "Caption=企业通信平台;Class=ATL:01A482A0", ""
GenericObject Click, "Class=BtlImageListBox;ClassIndex=1", "Coords=25,32"
PopupMenuSelect "可视呼叫(C)"（从这之后不能播放）

Window SetContext, "Caption=音视频通讯", ""
GenericObject Right_Click, "Class=ATL:038BF5C0;ClassIndex=1", "Coords=104,58"
GenericObject Left_Drag, "Class=ATL:038BF5C0;ClassIndex=1", "Coords=1,37,-12,35"
GenericObject Right_Click, "Class=ATL:038BF5C0;ClassIndex=1", "Coords=77,115"
PopupMenuSelect "放大(Z)"

Window SetContext, "Class=ATL:038BF488", ""
GenericObject Right_Click, "Class=ATL:038BF628;ClassIndex=1", "Coords=220,100"
GenericObject Click, "Class=BtlButton;ClassIndex=2", "Coords=11,5"

Window SetContext, "Class=ATL:06178250", ""
Window Right_DblClick, "", "Coords=445,315"

Window SetContext, "Class=ATL:038BF488", ""
GenericObject Click, "Class=BtlButton;ClassIndex=3", "Coords=8,8"

Window SetContext, "Caption=音视频通讯", ""
GenericObject Right_Click, "Class=SingleVideoWnd;ClassIndex=1", "Coords=86,46"
PopupMenuSelect "播放(P)"
GenericObject Right_Click, "Class=SingleVideoWnd;ClassIndex=1", "Coords=97,69"
PopupMenuSelect "暂停(A)"
GenericObject Right_Click, "Class=SingleVideoWnd;ClassIndex=1", "Coords=28,23"
PopupMenuSelect "播放(P)"
Window MoveTo, "", "Coords=285,170"

Window SetContext, "Caption=企业通信平台;Class=ATL:01A482A0", ""
GenericObject Click, "Text=FuncMenuBtn", "Coords=12,0"
PopupMenuSelect "系统设置(S)"

Window SetContext, "Class=CBtlPropertySheetImpl", ""
RadioButton Click, "Text=320x240(0)"
GenericObject Click, "Text=确定", "Coords=17,6"

End Sub