|
脚本回放时,下拉列表框无法选择,只是打开了下拉列表框,但是没有自动选择
以下是脚本:
Sub Main
Dim Result As Integer
'Initially Recorded: 2008-12-22 11:08:15
'Script Name: AddUser
Window SetContext, "Caption=直放站综合网管系统", ""
GenericObject Click, "Text=MainMenu", "Coords=16,11"
Window SetContext, "Class=TdxBarSubMenuControl", "Activate=0"
Window Click, "", "Coords=34,25"
Window SetContext, "Caption=用户管理", ""
GenericObject Click, "Text=增加用户", "Coords=37,8"
Window SetContext, "Caption=用户信息", ""
GenericObject Click, "Class=TcxCustomInnerTextEdit;ClassIndex=7", "Coords=28,5"
InputKeys "zfy"
GenericObject Click, "Class=TcxCustomInnerTextEdit;ClassIndex=4", "Coords=15,7"
InputKeys "abc"
GenericObject Click, "Class=TcxCustomInnerTextEdit;ClassIndex=6", "Coords=35,6"
InputKeys "123456"
GenericObject Click, "Class=TcxCustomInnerTextEdit;ClassIndex=5", "Coords=35,6"
InputKeys "123456"
GenericObject Click, "Class=TcxImageComboBox;ClassIndex=2", "Coords=48,6"
GenericObject Click, "Class=TcxImageComboBoxListBox;ClassIndex=1", "Coords=47,20"
GenericObject Click, "Class=TcxImageComboBox;ClassIndex=1", "Coords=52,11"
GenericObject Click, "Class=TcxImageComboBoxListBox;ClassIndex=1", "Coords=52,6"
GenericObject Click, "Class=TcxCustomInnerTextEdit;ClassIndex=2", "Coords=39,11"
InputKeys "12"
GenericObject Click, "Class=TcxCustomInnerTextEdit;ClassIndex=1", "Coords=28,8"
InputKeys "23"
GenericObject Click, "Class=TcxCustomInnerTextEdit;ClassIndex=3", "Coords=19,7"
InputKeys "45"
GenericObject Click, "Text=确认", "Coords=52,9"
Window SetContext, "Caption=用户管理", ""
GenericObject Click, "Text=关闭", "Coords=24,9"
End Sub |
|