vbs 百度小助手

运行它直接选择:
1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索;
然后输入需要搜索的内容即可直接自动打开转到指定网址自动进行搜索.


代码如下:

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"
End 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"
End 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"
End 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
End if
Case 5
x=Urlcode(InputBox("请输入要搜索的贴子标题","百度贴吧搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://tieba.baidu.com/f?kw=" & x
End 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
End 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"
End if
Case 8
x=Urlcode(InputBox("请输入要搜索的视频标题","百度视频搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://video.baidu.com/v?ct=301989888&rn=20&pn=0&db=0&s=7&word=" & x
End if
Case 9
x=Urlcode(InputBox("请输入要搜索的百科标题","百度百科搜索",""))
If Len(x)=0 Then
MsgBox "没有检测到内容,脚本退出!",64,"错误"
WScript.Quit
else
strurl="http://baike.baidu.com/w?ct=17&lm=0&tn=baiduWikiSearch&pn=0&rn=10&word=" & x
End if
End Select
End if
Set objIe = CreateObject("InternetExplorer.Application")
objie.visible=true
objIe.Navigate 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

(0)

相关推荐

  • vbs 百度小助手

    运行它直接选择: 1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索; 然后输入需要搜索的内容即可直接自动打开转到指定网址自动进行搜索. 复制代码 代码如下: xz=InputBox("1.我要回答;2.歌曲搜索;3,新闻搜索;" & Chr(13) & "4.网页搜索;5.贴吧搜索;6.知道搜索;" & Chr(13) & "7.图片搜索;8.视频搜

  • 基于Python的自媒体小助手---登录页面的实现代码

    核心技术:Python3.7 GUI技术:Tkinter (Python已经内置) 好多文章写Python GUI之tkinter窗口视窗教程大集合(看这篇就够了) 我看了N遍也没够好多东西都没有就基本的介绍...还不够.我搞这个也是为了项目服务先给大家来个截图吧,其实知识点还是蛮多的. 在window上有点瑕疵了,在mac上海可以吧.使用到的技术我罗列一下完了在分享给大家代码. 1.窗体设置标题和设置图标,图标格式是ICO的,一般我们事宜Png转一下.https://www.easyicon.

  • 一个小助手批处理实例代码

    包括 ECHO 1. 显示或隐藏文件 ECHO 2. 清理系统垃圾 ECHO 3. 注册表解除锁定 ECHO 4. 修复IE浏览器 ECHO 5. 关闭默认共享 ECHO 6. 管理控制MMC ECHO 7. 清除多余启动项@ECHO off @title 小助手 By:柴子 :start CLS COLOR 0f MODE con: COLS=41 LINES=18 set tm1=%time:~0,2% set tm2=%time:~3,2% set tm3=%time:~6,2% ECHO

  • 旁注-网站小助手旭方修改免杀asp版

    <%@LANGUAGE="VBScript" CODEPAGE="936"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>旁注 - 网站小助手旭方修改免杀版</title> <style type="te

  • Android实现定时自动静音小助手

    定时静音助手的实现方法,供大家参考,具体内容如下 背景 突发奇想,刚好这学期刚上安卓课程,想设计一个时间助手.工作.学习中经常会被突如其来的电话所打扰,在上班,上课时这突如其来的铃声会惹来别人的反感,而只靠人们的记性是很难在准确的时间记得静音.如果一直静音,那么在休息时间又有可能漏接重要的电话.基于这种考虑,设计了这样一自动静音小助手,来帮助人们在忙碌的生活中定时静音,定时开启正常模式,简单方便. 界面设计 <?xml version="1.0" encoding="u

  • 百度小程序自定义通用toast组件

    BdToast百度小程序自定义通用组件-github地址 需求 手百小程序的toast仅支持在页中展示,不能自定义位置.字体大小.在单个文本中增加icon等需求:因此自定义一个全局可通用的Toast. 效果预览 image image image image 如何使用 代码目录位于 /widget/toast 下,包含3个文件 toast.js 脚本代码 toast.css 样式文件,可以根据自己需求定制 toast.swan 模板结构,可以根据自己需求定制 使用步骤一: 将/widget/to

  • 百度小程序之间的页面通信过程详解

    背景 主要是针对小程序开发中页面之间进行通信的问题,在涉及支付的场景中,用户从页面支付入口进行跳转进行支付之后,回到原来页面,在原来的页面需要进行相应的状态刷新,比如用户身份状态.支付状态.文档或商品情况. 遇到的问题 在使用百度小程序的 swan.navigateBack 进行回跳页面时,API中的方法参数不支持携带参数,只支持number参数. 所以就涉及了几个单独页面之间的通信问题.如下主要列出了几个方法,供参考. swan.navigateBack 参数名 类型 必填 默认值 说明 de

  • 好玩的vbs微信小程序之语言播报功能

    代码: set objTTS = createobject("sapi.spvoice") objTTS.speak "不想敲代码了,头秃了" ' emmmm 好像挺无聊的 总结 以上所述是小编给大家介绍的好玩的vbs微信小程序之语言播报功能,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的.在此也非常感谢大家对我们网站的支持! 如果你觉得本文对你有帮助,欢迎转载,烦请注明出处,谢谢!

  • C语言实现单词小助手功能完善版

    本文为大家分享了完善版的C语言单词小助手的具体实现代码,供大家参考,具体内容如下 一.题目分析 1.在原有代码基础上添加文档注释,函数注释及语句注释,使代码风格良好,易于阅读和修改. 2.完善功能,实现背单词时出错词的重复记忆. 3.在词库维护选项中添加中英文分别查询的功能 4.完成输如数据的正确性验证,如:在菜单选择时输入不规范的错误提示.在添加单词时英文输入时输入汉语的异常排除等 二.关键算法构造 1.总菜单项目选择及maintain函数子选项的输入异常检查及提示. 2.添加单词 三.程序实

  • C语言实现单词小助手

    问题描述 对于任意给定的单词小助手程序(现有功能可以实现查单词的增删改查.中英.英中测试和分数显示功能),完善其单词查询.错误单词重复记忆和排行功能. 问题分析 首先附上给出的初始代码(已经可以实现基本功能) #include <stdio.h> #include <string.h> #include <stdlib.h> #define MAX_CHAR 20 // 最大字符 #define MAX_NUM 200 // 单词的最大个数 struct word //

随机推荐