教你做超简单的vbs百度小助手!
接下来让我们一起来学习如何做vbs百度小助手吧!
操作方法
打开电脑,右键单击选择新建文本文档。
建立成功后,桌面上会出现新建文本文档的图标,双击打开。
输入
xz=InputBox("1.我要回答;2.歌曲搜索;3,新闻搜索;" & Chr(13) & "4.网页搜索;5.贴吧搜索;6.知道搜索;" & Chr(13) & "7.图片搜索;8.视频搜索;9;百科搜索;","百度小助手 [Null_vbt]","")
If Len(xz)=0 Then
MsgBox "没有选择,脚本退出!",64,"错误"
else
Select Case xz
Case 1
x=Urlcode(InputBox("请输入要回答的问题","百度我要回答",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
else
strurl=" & 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,"错误"
Else
strurl=" & x & "&lm=-1"
End if
Case 3
x=Urlcode(InputBox("请输入要搜索的新闻标题","百度新闻搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
else
strurl=" & x & "&t=1"
End if
Case 4
x=Urlcode(InputBox("请输入要搜索的内容","百度网页搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
else
strurl=" & x
End if
Case 5
x=Urlcode(InputBox("请输入要搜索的贴子标题","百度贴吧搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
else
strurl=" & x
End if
Case 6
x=InputBox("请输入要搜索的知道标题","百度知道搜索","")
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
else
strurl=" & x
End if
Case 7
x=Urlcode(InputBox("请输入要搜索的图片标题","百度图片搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
else
strurl=" & x & "&t=3"
End if
Case 8
x=Urlcode(InputBox("请输入要搜索的视频标题","百度视频搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
else
strurl=" & x
End if
Case 9
x=Urlcode(InputBox("请输入要搜索的百科标题","百度百科搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
else
strurl=" & x
End if
End Select
End if
Set objIe = CreateObject("ication")
ble=true
gate 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
输入完成后,点击左上角另存为,把文件名的后缀改为vbs,点击保存。
这样就做好了,桌面会显示制作成功后,桌面出现了一个以“新建文本文档”为文件名的文件,它就是我们制作的百度小助手。
双击打开,如下图所示。
-
手机微信公众号上的视频怎么下载
如果移动设备的天下,无论是网购,看新闻等等,都在手机上完成,那么我们在手机版的微信公众号上看到好的视频,想下载,怎么下呢操作方法(01)在微信公众号上,点击分享,弹出的分享页面中,我们选择【发送到我的电脑】(02)然后在电脑上登录QQ账号,在【我的设备】中打开会话框(03)在我的...
-
HTTP 错误 500.22 - Internal Server Error图解
网站管理员在配置IIS服务器的时候会出血一系列的报错无问题,今天给大家分享一个关于iis7HTTP错误500.22-InternalServerError的解决办法操作方法(01)出现如图错误“检测到在集成的托管管道模式下不适用的ASP.NET设置”,那么我们应该如何解决呢?继续向下。(02)第一步,我...
-
Python中如何应用split
我们用python处理字符串的时候经常会需要分割字符串,这个时候我们会用到split。那么你真的会用它吗?下面小编来给大家分享一下split的使用以及注意事项操作方法(01)首先我们在python环境中先来建立一个字符串,如下图所示(02)然后我们调用split方法,已冒号作为分隔符,如...
-
linux怎么解压zip包
linux怎么解压zip包,在linux中,解压ZIP压缩包,是相对容易的,使用unzip命令即可操作方法(01)连接到linux远程主机,并进入zip文件所在目录(02)使用LS命令列出目录中文件,确认zip文件的全称(03)使用unzip命令解压zip压缩包(04)inflating,看到该单词,表明ZIP解压缩成功了(05)如果不放...