原帖由 lingxin5013 于 2008-11-6 09:48 发表
Dim index
index=7
Set WshShell = CreateObject("WScript.Shell")
WshShell.sendkeys "^{esc}"
For i =1 to index
WshShell.sendKeys "{DOWN}"
Next
WshShell.sendKeys "{ENTER}"
Set WshShell = nothi ...
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) | Powered by Discuz! X3.2 |