1.首先将焦点给select
2.然后模拟按键alt+↓。模拟按键是使用activex控件来完成的。
代码如下：
<object type="application/x-oleobject" id=shell
classid="clsid:f935dc22-1cf0-11d0-adb9-00c04fd58a0b"></object>
<select id=cbosort >
<option value=none selected>none</option>
<option value=col1>序号</option>
<option value=col2>抄表册</option>
<option value=col3>抄表册名称</option>
<option value=col4>抄表册性质</option>
<option value=col5>抄表周期</option>
<option value=col6>管理部门</option>
<option value=col7>变压器组号</option>
<option value=col8>变压器性质</option>
<option value=col9>抄表员代码</option>
<option value=col10>抄表员姓名</option>
<option value=col11>抄表列日</option>
<option value=col12>浮动天数</option>
<option value=col13>初始化标志</option>
<option value=col14>缴费天数</option>
<option value=col15>抄表方式</option>
</select>
<button onclick="demo();">展开</button>
js版
<script language= "javascript">
function demo(){
cbosort.focus();
var wshshell = new activexobject("wscript.shell");
try{
wshshell.sendkeys("%{down}");
}
catch(e){}
wshshell.quit;
}
</script>
js的<object>版
<script language= "javascript">
function demo2(){
cbosort.focus();
shell.sendkeys("%{down}");
shell.quit;
}
</script>
vb版:
<script language="vbscript">
sub demo1()
cbosort.focus()
set wshshell = createobject("wscript.shell")
wshshell.sendkeys "%{down}"
end sub
</script>
