vbs 自动填表 下拉列表 赋值,该怎么处理

vbs 自动填表 下拉列表 赋值
如这个网页：
http://www.baidu.com/gaoji/advanced.html

有下拉列表的，怎么赋值，VBS该如何实现？

如：

搜索结果显示条数 每页显示50条
时间 最近一月
文档格式 微软WORD




很少来，分不多。

[解决办法]
保存为.vbs文件，双击运行

VBScript code

With CreateObject("InternetExplorer.Application")    .Navigate "http://www.baidu.com/gaoji/advanced.html"    Do Until (.ReadyState = 4) And (Not .Busy)        WSH.Sleep 100    Loop    .document.f1.rn(2).selected = True
[解决办法]
还有方法：
VBScript code
    sURL = "http://www.baidu.com/s?"    sMonth = "&lm=30"    '最近一个月    sPage = "&rn=50"    '每页50条    sFormat = "&ft=doc"    '类型为Doc    sWord = "q1=" & ConvertStr("帅") '& "&q2=&q3=&q4="    sNewURL = sURL & sWord & sPage & sMonth & sFormatSet oIE = CreateObject("InternetExplorer.Application")    oIE.Navigate sNewURL    oIE.Visible = 1        WScript.Quit'************************************************************'搜索字符转换函数，简单起见，只转换一个字'************************************************************Function ConvertStr(s)    strTMP = Hex(Asc(s))    ConvertStr = "%" & Left(strTMP,2) & "%" & Right(strTMP,2)End Function