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

　　接下来让我们一起来学习如何做vbs百度小助手吧！
　　操作方法
　　01：hr打开电脑，右键单击选择新建文本文档。
　　02：hr建立成功后，桌面上会出现新建文本文档的图标，双击打开。
　　03：hr输入
　　xzInputBox（1。我要回答；2。歌曲搜索；3，新闻搜索；Chr（13）4。网页搜索；5。贴吧搜索；6。知道搜索；Chr（13）7。图片搜索；8。视频搜索；9；百科搜索；，百度小助手〔Nullvbt〕，）
　　IfLen（xz）0Then
　　MsgBox没有选择，脚本退出！，64，错误
　　WScript。Quit
　　else
　　SelectCasexz
　　Case1
　　xUrlcode（InputBox（请输入要回答的问题，百度我要回答，））
　　IfLen（x）0Then
　　MsgBox没有检测到内容，脚本退出！，64，错误
　　WScript。Quit
　　else
　　strurlhttp：zhidao。baidu。comq？ct17pn0rn10lm65536franswersearch0
　　Endif
　　Case2
　　xUrlcode（InputBox（请输入要搜索的歌曲名，百度歌曲搜索，））
　　IfLen（x）0Then
　　MsgBox没有检测到内容，脚本退出！，64，错误
　　WScript。Quit
　　Else
　　strurlhttp：mp3。baidu。comm？tnbaidump3ct134217728lm1
　　Endif
　　Case3
　　xUrlcode（InputBox（请输入要搜索的新闻标题，百度新闻搜索，））
　　IfLen（x）0Then
　　MsgBox没有检测到内容，脚本退出！，64，错误
　　WScript。Quit
　　else
　　strurlhttp：news。baidu。comns？cl2rn20t1
　　Endif
　　Case4
　　xUrlcode（InputBox（请输入要搜索的内容，百度网页搜索，））
　　IfLen（x）0Then
　　MsgBox没有检测到内容，脚本退出！，64，错误
　　WScript。Quit
　　else
　　strurlhttp：www。baidu。coms？cl3x
　　Endif
　　Case5
　　xUrlcode（InputBox（请输入要搜索的贴子标题，百度贴吧搜索，））
　　IfLen（x）0Then
　　MsgBox没有检测到内容，脚本退出！，64，错误
　　WScript。Quit
　　else
　　strurlhttp：tieba。baidu。comf？x
　　Endif
　　Case6
　　xInputBox（请输入要搜索的知道标题，百度知道搜索，）
　　IfLen（x）0Then
　　MsgBox没有检测到内容，脚本退出！，64，错误
　　WScript。Quit
　　else
　　strurlhttp：zhidao。baidu。comq？ct17pn0rn10x
　　Endif
　　Case7
　　xUrlcode（InputBox（请输入要搜索的图片标题，百度图片搜索，））
　　IfLen（x）0Then
　　MsgBox没有检测到内容，脚本退出！，64，错误
　　WScript。Quit
　　else
　　strurlhttp：image。baidu。comi？ct201326592lm1cl2t3
　　Endif
　　Case8
　　xUrlcode（InputBox（请输入要搜索的视频标题，百度视频搜索，））
　　IfLen（x）0Then
　　MsgBox没有检测到内容，脚本退出！，64，错误
　　WScript。Quit
　　else
　　strurlhttp：video。baidu。comv？ct301989888rn20pn0db0s7x
　　Endif
　　Case9
　　xUrlcode（InputBox（请输入要搜索的百科标题，百度百科搜索，））
　　IfLen（x）0Then
　　MsgBox没有检测到内容，脚本退出！，64，错误
　　WScript。Quit
　　else
　　strurlhttp：baike。baidu。comw？ct17lm0tnbaiduWikiSpn0rn10x
　　Endif
　　EndSelect
　　Endif
　　SetobjIeCreateObject（InternetExplorer。Application）
　　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：hr输入完成后，点击左上角另存为，把文件名的后缀改为vbs，点击保存。
　　05：hr这样就做好了，桌面会显示制作成功后，桌面出现了一个以新建文本文档。vbs为文件名的文件，它就是我们制作的百度小助手。
　　06：hr双击打开，如下图所示。