QTP Code Segment

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