用VBS调用百度搜索

 

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=txwb_pg&word=" & wd
end if

 

 

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛https://bbs.txwb.com

关注天下网吧微信,了解网吧网咖经营管理，安装维护: