如这个网页：
http://www.baidu.com/gaoji/advanced
有下拉列表的，怎么赋值，VBS该如何实现？
如：
搜索结果显示条数 每页显示50条
时间 最近一月
文档格式 微软WORD
很少来，分不多。
------解决方案--------------------------------------------------------
保存为.vbs文件，双击运行
- VBScript code
With CreateObject("InternetExplorer.Application") .Navigate "http://www.baidu.com/gaoji/advanced" 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