接下来让我们一起来学习如何做vbs百度小助手吧！ 操作方法 01： 打开电脑，右键单击选择新建文本文档。 02： 建立成功后，桌面上会出现新建文本文档的图标，双击打开。 03： 输入 xzInputBox（1。我要回答；2。歌曲搜索；3，新闻搜索；Chr（13）4。网页搜索；5。贴吧搜索；6。知道搜索；Chr（13）7。图片搜索；8。视频搜索；9；百科搜索；，百度小助手〔Nullvbt〕，） IfLen（xz）0Then MsgB没有选择，脚本退出！，64，错误 WScript。Quit else SelectCasexz Case1 xUrlcode（InputBox（请输入要回答的问题，百度我要回答，）） IfLen（x）0Then MsgB没有检测到内容，脚本退出！，64，错误 WScript。Quit else http：zhidao。baidu。comq？ct17pn0rn10lm65536franswersearch0 Endif Case2 xUrlcode（InputBox（请输入要搜索的歌曲名，百度歌曲搜索，）） IfLen（x）0Then MsgB没有检测到内容，脚本退出！，64，错误 WScript。Quit Else http：mp3。baidu。comm？tnbaidump3ct134217728lm1 Endif Case3 xUrlcode（InputBox（请输入要搜索的新闻标题，百度新闻搜索，）） IfLen（x）0Then MsgB没有检测到内容，脚本退出！，64，错误 WScript。Quit else http：news。baidu。comns？cl2rn20t1 Endif Case4 xUrlcode（InputBox（请输入要搜索的内容，百度网页搜索，）） IfLen（x）0Then MsgB没有检测到内容，脚本退出！，64，错误 WScript。Quit else http：www。baidu。coms？cl3x Endif Case5 xUrlcode（InputBox（请输入要搜索的贴子标题，百度贴吧搜索，）） IfLen（x）0Then MsgB没有检测到内容，脚本退出！，64，错误 WScript。Quit else http：tieba。baidu。comf？x Endif Case6 xInputBox（请输入要搜索的知道标题，百度知道搜索，） IfLen（x）0Then MsgB没有检测到内容，脚本退出！，64，错误 WScript。Quit else http：zhidao。baidu。comq？ct17pn0rn10x Endif Case7 xUrlcode（InputBox（请输入要搜索的图片标题，百度图片搜索，）） IfLen（x）0Then MsgB没有检测到内容，脚本退出！，64，错误 WScript。Quit else http：image。baidu。comi？ct201326592lm1cl2t3 Endif Case8 xUrlcode（InputBox（请输入要搜索的视频标题，百度视频搜索，）） IfLen（x）0Then MsgB没有检测到内容，脚本退出！，64，错误 WScript。Quit else http：video。baidu。comv？ct301989888rn20pn0db0s7x Endif Case9 xUrlcode（InputBox（请输入要搜索的百科标题，百度百科搜索，）） IfLen（x）0Then MsgB没有检测到内容，脚本退出！，64，错误 WScript。Quit else http：baike。baidu。comw？ct17lm0tnbaiduWikiSpn0rn10x Endif EndSelect Endif SetobjIeCreateObject（InternetExplorer。A） objie。visibletrue objIe。NavigatestrUrl functionUrlcode（InpStr） DimInpAsc，I ForI1ToLen（InpStr） InpAscAsc（Mid（InpStr，I，1）） If（（InpA58）And（InpA47））Or（（InpA91）And（InpA64））Or（（InpA123）And（InpA96））Then UrlcodeUChr（InpAsc） Else UrlcodeUmid（Trim（Hex（InpAsc）），1，2）mid（Trim（Hex（InpAsc）），3，2） EndIf Next endFunction 04： 输入完成后，点击左上角另存为，把文件名的后缀改为vbs，点击保存。 05： 这样就做好了，桌面会显示制作成功后，桌面出现了一个以“新建文本文档。vbs”为文件名的文件，它就是我们制作的百度小助手。 06： 双击打开，如下图所示。
用EXCEL做的各种表格超实用的ppt动画中如何让文字一个一个的出来如何将pdf格式转换成ppt格式WiFi无线上网速度慢怎么办？解决网速慢的办法如何运营微信公众号？公众号运营要点斗鱼如何举报斗鱼如何举报主播快手怎么修改快手号，快手ID怎么修改京东白条更换绑定电话相关教程怎么在电脑上打开QQ情侣空间美团如何查询自己的会员等级如何提升会员等级不用有线电视如何直接用wifi看电视直播如何下载B站视频