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

接下来让我们一起来学习如何做vbs百度小助手吧！操作方式 01 打开电脑，右键单击选择新建文本文档。

文章插图

02 【教你做超简单的vbs百度小助手！】成立当作功后，桌面上会呈现新建文本文档的图标，双击打开。

文章插图

文章插图

03 输入

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"
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"
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"
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
if
Case 5
x=Urlcode(InputBox("请输入要搜刮的贴子题目","百度贴吧搜刮",""))
If Len(x)=0 Then
MsgBox "没有检测到内容，剧本退出！",64,"错误"
WScript.Quit
else
strurl="http://tieba.baidu.com/f?kw=" & x
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
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"
if
Case 8
x=Urlcode(InputBox("请输入要搜刮的视频题目","百度视频搜刮",""))