当前位置:DOS资源站资料中心VBS脚本 → 用VBS调用百度搜索

用VBS调用百度搜索

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-4-24 15:21:12

dim ie,wd
wd=inputbox("输入搜索关键字:","百度","cmdos.net")
if trim(wd)<>"" then
set ie=createobject("internetexplorer.application")
ie.visible=true
ie.navigate "http://www.baidu.com/s?tn=jxb1983_pg&word=" & wd
end if