如下代码:
SwfWindow("客宁玖玖宾馆管理系统 V1.0").SwfWindow("FTTFrom").SwfButton("9301 普标 ¥249.00").Click 50,16,micRightBtn
Dim wshShell
Set wshShell=CreateObject("WScript.Shell")
For i=1 to 3
wshShell.SendKeys "{DOWN}"
Next
wait 5
wshShell.Sendkeys "{ENTER}"
SwfWindow("客宁玖玖宾馆管理系统 V1.0").SwfToolbar("contextKF").Select "入住登记"