欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

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

更新时间: 2014-01-05 01:52:53 责任编辑: Author_N1

 

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 & sFormat

Set 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 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:53
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2478/
本文WWW.DOC100.NET DOC100.NET版权所有。