dim ws
set ws=createobject("wscript.shell")
'右键菜单已经打开时
ws.sendkeys "{down}" '按向下方向键
ws.sendkeys "{enter}" '按enter键
set ws=nothing '释放对象
dim ws
set ws=createobject("wscript.shell")
'右键菜单已经打开时
ws.sendkeys "{down}" '按向下方向键
ws.sendkeys "{enter}" '按enter键
set ws=nothing '释放对象