Window("A").WinListView("B").Click 150, 233, micRightBtn '右鍵單擊出菜單
Window("A").WinObject("B").WinMenu("C").Select "新建(W);<Item 3>" '在彈出菜單中選擇功能功能
上述代碼在回放時回放不過去,改為
Window("A").WinListView("B").Click 150, 233, micRightBtn
Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
For i=1 to MoveNum
wshShell.SendKeys "{DOWN}" '模擬鍵盤操作
Next
wait 1
wshShell.SendKeys "{ENTER}" '模擬鍵盤操作
上述代碼在彈出菜單后可以實現向下移動選項,并選擇的功能.MoveNum是移動的次數
附: wsh鍵值表
鍵 參數
退格鍵 {BACKSPACE}、{BS}或{BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL或DELETE{DELETE}或{DEL}
下箭頭 {DOWN}
END {END}
ENTER {ENTER}或~
ESC {ESC}
HOME {HOME}
INS或INSERT{INSERT}或{INS}
左箭頭 {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN{PRTSC}
右箭頭 {RIGHT}
SCROLL LOCK{SCROLLLOCK}
TAB {TAB}
上箭頭 {UP}
F1、F2、F3...{F1}、{F2}、{F3}Q
wsh不僅僅是這個功能,只是作為一個引子,有時可以解決很多問題,希望大家多多研究,多多交流。
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/