vbs 百度小助手_vbs

运行它直接选择:
1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索;
然后输入需要搜索的内容即可直接自动打开转到指定网址自动进行搜索.

复制代码 代码如下:

xz=InputBox("1.我要回答;2.歌曲搜索;3,新闻搜索;" & Chr(13) & "4.网页搜索;5.贴吧搜索;6.知道搜索;" & Chr(13) & "7.图片搜索;8.视频搜索;9;百科搜索;","百度小助手 [Null_vbt]","")
If Len(xz)=0 Then
MsgBox "没有选择,脚本退出!",64,"错误"
WScript.Quit
else
Select Case xz
Case 1
x=Urlcode(InputBox("请输入要回答的问题","百度我要回答",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://zhidao.baidu.com/q?word=" & x & "&ct=17&pn=0&tn=ikaslist&rn=10&lm=65536&fr=answersearch_0"
End if
Case 2
x=Urlcode(InputBox("请输入要搜索的歌曲名","百度歌曲搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
Else
strurl="http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&word=" & x & "&lm=-1"
End if
Case 3
x=Urlcode(InputBox("请输入要搜索的新闻标题","百度新闻搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://news.baidu.com/ns?cl=2&rn=20&tn=news&word=" & x & "&t=1"
End if
Case 4
x=Urlcode(InputBox("请输入要搜索的内容","百度网页搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://www.baidu.com/s?cl=3&wd=" & x
End if
Case 5
x=Urlcode(InputBox("请输入要搜索的贴子标题","百度贴吧搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://tieba.baidu.com/f?kw=" & x
End if
Case 6
x=InputBox("请输入要搜索的知道标题","百度知道搜索","")
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://zhidao.baidu.com/q?ct=17&pn=0&tn=ikaslist&rn=10&word=" & x
End if
Case 7
x=Urlcode(InputBox("请输入要搜索的图片标题","百度图片搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://image.baidu.com/i?tn=baiduimage&ct=201326592&lm=-1&cl=2&word=" & x & "&t=3"
End if
Case 8
x=Urlcode(InputBox("请输入要搜索的视频标题","百度视频搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://video.baidu.com/v?ct=301989888&rn=20&pn=0&db=0&s=7&word=" & x
End if
Case 9
x=Urlcode(InputBox("请输入要搜索的百科标题","百度百科搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://baike.baidu.com/w?ct=17&lm=0&tn=baiduWikiSearch&pn=0&rn=10&word=" & x
End if
End Select
End if
Set objIe = CreateObject("InternetExplorer.Application")
objie.visible=true
objIe.Navigate strUrl
function Urlcode(InpStr)
Dim InpAsc,I
For I = 1 To Len(InpStr)
InpAsc = Asc(Mid(InpStr, I, 1))
If ((InpAsc < 58) And (InpAsc > 47)) Or ((InpAsc < 91) And (InpAsc > 64)) Or ((InpAsc < 123) And (InpAsc > 96)) Then
Urlcode = Urlcode & Chr(InpAsc)
Else
Urlcode = Urlcode & "%" & mid(Trim(Hex(InpAsc)),1,2) & "%" & mid(Trim(Hex(InpAsc)),3,2)
End If
Next
end Function

时间: 2024-10-26 08:42:18

vbs 百度小助手_vbs的相关文章

实用vbs提醒小程序_vbs

      使用方法:       1. 将下面的代码保存为:Ring.vbs (文件名可自定)       2. 将Ring.vbs移动到程序启动组,这样可以随WINDOWS自动启动了(位置是:开始--程序--启动,XP的启动组位置是:C:\Documents and Settings\你的用户名\「开始」菜单\程序\启动\)       3. 我这里使用的是Window自带的Media Player播放音乐,所以先打开您的Media Player,将"正在播放列表"另存到D:\Mu

小脑袋百度竞价助手总结浮雕类网站的几种主流推广方法

跟着互联网的翻开,现在不断添加的公司把生意逐渐往互联网上转移,电子商务一定成为将来翻开的一个趋势,作为一个站长,能显着感受到网络给日子带来的改动,可是从别的一个方面,竞赛也是分外严厉,所以只能有自个的战略,小脑袋百度竞价助手总结浮雕类网站的几种主流推广方法,有自个中心竞赛力的网络营销才调持续翻开,今天我联络自个的一段作业经向来同享浮雕类网站的一些根底推行办法,希望能给一些无从下手的站长一些启示. &http://www.aliyun.com/zixun/aggregation/37954.htm

小脑袋百度竞价助手告诉你收录下降的原因

小脑袋百度 竞价助手告诉你收录下降的原因 &http://www.aliyun.com/zixun/aggregation/37954.html">nbsp; 一.空间安全:如因安全要素被 他人偷挂了马或恶意代码,那是最不值了,搜索引擎能够解析出来这些代码,为了确保用户领会,下降对你的信赖度 是在所难免的了.   二.过度优化:搜索引擎越来越偏重的是用户领会,网站呈现给用户的,而不是喂蜘蛛的.因而一个过度优化的网站必定极没有用户领会,搜索引擎对这类站点也是坚持间隔的.    三.其

百度手机助手世界杯小贴士:啤酒虽好酒驾危险

世界杯期间严查酒驾百度手机助手送球迷安全回家巴西世界杯热火来袭.球迷朋友们聚在酒吧,喝着啤酒看着球,或呼喊助威或咒骂抱怨,尽情发泄,最畅快不过了.不过,百度手机助手也要提醒球迷朋友们,喝酒观赏球赛是乐,酒后疲劳开车是悲,在享受足球快乐的同时,交通安全不容忽视.每一次世界杯期间,都是酒后驾车的高发时段.由于存在时差,世界杯赛事多集中于深夜和凌晨,宾馆.饭店.餐厅.酒吧.大排档.城市广场等场所球迷聚集观赛的情况也大量增加.酒后驾驶.疲劳驾驶等交通违法行为随之增多.据统计,2010年南非世界杯期间,全

小脑袋百度推广助手解说关键词排名优化

关键词排名一般分成左侧与右侧,关键词排名是一种在搜索引擎搜索结果中以相近字.词.词组等方式显示于http://www.aliyun.com/zixun/aggregation/8612.html">网站排名结果的方式.可以分为左侧自然排名无需付费,左侧顶部和右侧竞价关键词依每个点击收费. 左侧关键词排名:左侧的自然排名由SEO服务公司影响排名,关键词排名一般是由搜索引擎对所有相关网站索引运算后的结果,一般可以通过SEO优化技术来达到关键词排名提升. 右侧关键词排名:右侧关键词广告由搜索引擎

小脑袋百度推广助手:企业需警惕的负面SEO

负面SEO是很多企业网站为何排名总是低迷的一个重要因素,因为百度的更新,主要是针对负面SEO的处罚,而只要你有竞争对手,就可能会有人默默的帮你做负面SEO ,而结果就是你的排名被恶意推后. 何谓负面SEO 网站操作SEO都是希望可以对于http://www.aliyun.com/zixun/aggregation/8612.html">网站排名提高,也就是所谓正面SEO,相反何谓负面SEO 呢? 我们应该如何避免呢? 这里小脑袋百度推广助手就要提到了一个非常重要的概念是"百度是会

小脑袋百度推广助手:关键词密度多少合适

关键字密度有人称为关键字语法.关键字法.关键字设定,在这里我们就统一称关键字密度吧! 关键字密度指的是,一个关键字在一个网页上出现的百分比,出现的次数越多则关键字密度越高,相反的其他的文字出现的次数越多,则关键字密度越低. 关键字密度多少合适?下面,小脑袋http://www.aliyun.com/zixun/aggregation/11238.html">百度推广助手就来谈谈: 关键字密度对SEO优化来说,是最基本但也是最关键的seo工作之一,关键字密度过高过低都不好,至于多少比例的关键

营销网站推广方法有哪些,小脑袋百度调价助手有妙招

在精心预备了两个月后,我的网站开通了.做为一个并不资深的http://www.aliyun.com/zixun/aggregation/7474.html">草根站长,我挑选了网址站做为第一个网站.理由有二,一是网址站门槛低,不需要凌乱的技术,乃至像单个站长说的会打字就能把网址站建起来.二是空间本钱.维护本钱低,网址站内容相对其它网站来说不需要不时更新,运用的空间数据量也小,维护难度小.当然有利就有弊,面对网络上不可胜数的网址站,怎么把自个的网站凸显出来是很大的一个疑问,下面联络我做这个站

小脑袋百度竞价助手分析网站推广的注意点

网站推广是网站的一个关键工作,一项杂乱的工作,也是一个练习人的工作.网站推广 不只需坚持耐性的推广,也要在推广工作中不断的总结经验.留心以下 几点,网站推广将事半功倍. &http://www.aliyun.com/zixun/aggregation/37954.html">nbsp; (1)网站准备安排稳妥   网站推广的条件是网站基础工作要做好,比方网站的内容缔造,网站的功用缔造,网站的超卓领会,搜索引擎的友善.假定你的网站没有做好, 那么就不要提前挑选推广,假定你推广了,用户