Dim WshShell
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{ENTER}"
set WshShell = nothing
Dim WshShell
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{ENTER}"
set WshShell = nothing
转载于:https://www.cnblogs.com/ellie-test/p/3312354.html