只需要输入操作窗口、对象以及列表索引即可操作：

Function SelectDropdownItem (win, obj, index)
   Window(win).WinObject(obj).Click 1,1

   Set WshShell = CreateObject("Wscrīpt.Shell")
   For i=1 to index
      WshShell.sendKeys "{DOWN}"
   Next
      WshShell.sendKeys "{ENTER}"
   Wait (1)
   Set WshShell = nothing
End Function

SelectDropdownItem.zip
(2007-12-28 16:46:52, Size: 391 B , Downloads: 0)