当前访客身份:游客 [ 登录 | 加入 OSCHINA ]

代码分享

当前位置:
代码分享 » Shell/批处理  » 配置/脚本/批处理
wimas

VBS 调用百度的搜索

wimas 发布于 2011年07月02日 15时, 6评/1261阅
分享到: 
收藏 +0
1
用VBS 写的调用百度的搜索
标签: 百度

代码片段(1) [全屏查看所有代码]

1. [代码][Shell/批处理]代码     跳至 [1] [全屏预览]

dim str
str = inputBox("输入你要搜索的内容:")
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = false
ie.Navigate("http://www.baidu.com")
WScript.Sleep 2000

Set obj = ie.document.all

obj.nameItem("kw").value = str  ' 百度输入框赋值

obj.nameItem("su").click    ' 点击搜索按钮

'ie.Quit



开源中国-程序员在线工具:Git代码托管 API文档大全(120+) JS在线编辑演示 二维码 更多»

发表评论 回到顶部 网友评论(6)

开源从代码分享开始 分享代码
wimas的其它代码 全部(1)...