模拟键盘操作

Public Function SelectItem(Selectcount)
     Set WshShell = CreateObject("WScript.Shell")
     For i=1 to Selectcount
          WshShell.SendKeys "{DOWN}"   '模拟键盘操作
      Next
      wait 1
      WshShell.SendKeys "{ENTER}"     '模拟键盘操作
End Function

调用：

SelectItem 2