教你做超简单的vbs百度小助手！

接下来我们来学习一下如何做一个vbs搜索助手。

详细介绍方法/步骤

打开计算机，右键单击并选择新建文本文档。

，桌面上会出现新文本文档的图标，双击打开。

输入

xz=inputbox("1。我想回答；2.歌曲搜索；3.新闻搜索；"chr(13) "4。网页搜索；5.贴吧搜索；6.“了解搜索，”chr(13) "7。图像搜索；8.视频搜索；9;“百科搜索，”，"搜索助手[null_vbt]"，"")

如果len(xz)=0，则

“没有选择，脚本退出！”，64，“错误”

wscript。放弃

其他

选择案例xz

案例1

x=urlcode(inputbox("请输入要回答的问题"，"搜索我想回答"，""))

如果len(x)=0，则

msgbox“未检测到内容，脚本退出！”，64，“错误”

wscript。放弃

其他

str url=" http://zhidao . baidu.com/q？word=" x " ct=17pn=0tn=ikaslistr=10lm=65536 fr=answersearch _ 0 "

如果…就会结束

案例2

x=urlcode(inputbox("请输入要搜索的歌曲名称"，"搜索歌曲搜索"，""))

如果len(x)=0，则

msgbox“未检测到内容，脚本退出！”，64，“错误”

wscript。放弃

其他

strurl="http://mp3.baidu.com/m？f=mstn=baidump3ct=134217728 lf=rn=word=" x " lm=-1 "

如果…就会结束

案例3

x=urlcode(inputbox("请输入要搜索的新闻标题"，"搜索新闻搜索"，""))

如果len(x)=0，则

msgbox“未检测到内容，脚本退出！”，64，“错误”

wscript。放弃

其他

strurl="http://news.baidu.com/ns？cl=2rn=20tn=newsword=" x "t=1 "

如果…就会结束

案例4

x=urlcode(inputbox("请输入要搜索的内容"，"搜索网页搜索"，""))

如果len(x)=0，则

msgbox“未检测到内容，脚本退出！”，64，“错误”

wscript。放弃

其他

strurl="http://www.baidu.com/s？cl=3wd=" x

如果…就会结束

案例5

x=urlcode(inputbox("请输入要搜索的帖子标题"，"搜索贴吧搜索"，""))

如果len(x)=0，则

msgbox“未检测到内容，脚本退出！”，64，“错误”

wscript。放弃

其他

strurl="http://tieba.baidu.com/f？kw=" x

如果…就会结束

案例6

x=inputbox("请输入要搜索的标题"，"搜索知道要搜索"，"")

如果len(x)=0，则

msgbox“未检测到内容，脚本退出！”，64，“错误”

wscript。放弃

其他

str url=" http://zhidao . baidu.com/q？ct=17pn=0tn=ikaslistr=10 word=" x

如果…就会结束

案例7

x=urlcode(inputbox("请输入要搜索图片的标题"，"搜索图片搜索"，""))

如果len(x)=0，则

msgbox“未检测到内容，脚本退出！”，64，“错误”

wscript。放弃

其他

strurl="http://image.baidu.com/i？tn=baiduimagect=201326592mm=-1cl=2 word=" x " t=3 "

如果…就会结束

案例8

x=urlcode(inputbox("请输入要搜索的视频标题"，"搜索视频搜索"，""))

如果len(x)=0，则

msgbox“未检测到内容，脚本退出！”，64，“错误”

wscript。放弃

其他

strurl="http://video.baidu.com/v？ct=301989888 rn=20pn=0db=0s=7 word=" x

如果…就会结束

案例9

x=urlcode(inputbox("请输入百科标题进行搜索"，"搜索百科搜索"，""))

如果len(x)=0，则

msgbox“未检测到内容，脚本退出！”，64，“错误”

wscript。放弃

其他

strurl="http://baike.baidu.com/w？ct=17lm=0tn=baiduwikisecarcpn=0rn=10 word=" x

如果…就会结束

结束选择

如果…就会结束

set objee=createobject(" internet explorer。应用")

objie.visible=true

objie。导航结构

函数url code(instr)

暗淡在我，我

对于i=1至len(输入字符串)

inpasc=asc(mid(inpstr，i，1))

如果((inpasc 58)和(inpasc 47))或((inpasc 91)和(inpasc 64))或((inpasc 123)和(inpasc 96))那么

urlcode=urlcode chr(inpasc)

其他

url code=url code“%”mid(trim(十六进制(inpasc))，1，2)“%”mid(trim(十六进制(inpasc))，3，2)

如果…就会结束

然后

结束功能

输入完成后，左上角的另存为，将文件名的后缀改为vbs，保存。

，桌面会显示成功制作后，一个名为“新文本文档”的文件。vbs”出现在桌面上，这是我们的搜索助手。

双击打开。

相关经验延伸阅读

问火火兔早教机请问耳朵彩灯怎么关掉总开着灯夜里对眼睛不好的

答只要按wifi键。

问火火兔早教机我想问下底部二维码识别不了怎么回事

答不应该。你可以通过扫描二维码来识别它

问澳典微型投影仪白天在教室能用吗

答我用不了。晚上要关灯才能用。一开始想给学生买，没用就吃了。

问火火兔早教机哪个版本音质很好

答音质差不多，用比较简单的。你的火兔早教机有很多功能，但是孩子不需要

问步步高学生平板电脑不管哪个地区的学校教科书都是一样的吗

答有几个版本，根据自己的版本，我们使用外部研究版本

问火火兔早教机快两个半月的宝宝适合用吗

答是的，把音量关小。我们宝宝刚买的，不喜欢。现在他会把一首歌换成下一首。宝宝不到一岁