设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS原创&转载 › 图灵API封装贴
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 43858|回复: 11

[原创] 图灵API封装贴

[复制链接]
老刘1号
发表于 2017-7-7 10:05:41 | 显示全部楼层 |阅读模式
CSDN—Code
与图灵机器人畅聊吧～

使用@Nsqs开发的Vbscript.Console框架
使用前先双击Console.EXE注册，建议将Console.EXE放到System32目录中注册
Chat_With_Turing_Robot.vbs源代码：
  1. Rem 转载请注明老刘编写，谢谢合作。
  2. Option Explicit
  3. Public [发送内容],Console
  4. Const API_Address = "http://www.tuling123.com/openapi/api"
  5. Rem —————————————————设置区———————————————————
  6. Const API_Key = "b9f823b5ae0144abb7b0cba774a0f5f8"
  7. Rem 这是老刘的apikey，每天有5000次的使用次数，一般不用操心。
  8. Rem 如果想要大批量使用，请自行前往tuling123.com注册帐号来更改。
  9. Const [用户ID] = "Unknown" '无需更改，改一下也没关系～支持英文与数字混合组合。
  10. Const [用户昵称] = "你"
  11. Const [机器人昵称] = "图灵AI"
  12. Const [首条自动发送] = True
  13. Const [首条自动发送内容] = "你好"
  14. Const [昵称颜色] = 10
  15. Const [信息交互颜色] = 15
  16. Const [提示颜色] = 12
  17. Const [消息延时] = 100
  18. Rem ————————————————设置区尾部——————————————————

  20. Const [宿主] = "WSCRIPT.EXE" '强制固定宿主
  21. If Not UCase(Right(WScript.FullName,11)) = UCase([宿主]) Then
  22.         Dim Args,Arg
  23.         For Each Arg in Wscript.Arguments
  24.                 Args=Args&Chr(&H20)&Chr(&H22)&Arg&Chr(&H22)
  25.         Next
  26.         CreateObject("Wscript.Shell").Run _
  27.                 [宿主]&Chr(&H20)&Chr(&H22)&WScript.ScriptFullName&Chr(&H22)&Args
  28.         WScript.Quit
  29. End If

  31. Set Console = CreateObject("VBScript.Console")
  32. With Console
  33.         .ForeColor = [提示颜色]
  34.         .WriteLine "按下Alt+Shift切换输入法～"
  35.         If [首条自动发送] = True Then
  36.                 .ForeColor = [昵称颜色] : .WriteText [用户昵称] : .ForeColor = 11 : .WriteLine " 说："
  37.                 .ForeColor = [信息交互颜色] : .WriteLine [首条自动发送内容]
  38.                 WScript.Sleep [消息延时]
  39.                 .ForeColor = [昵称颜色] : .WriteText [机器人昵称] : .ForeColor = 11 : .WriteLine " 说："
  40.                 .ForeColor = [信息交互颜色] : [机器人交互] [首条自动发送内容]
  41.         End If
  42.         While Not [发送内容] = "退出"&VbNewLine
  43.                 .ForeColor = [昵称颜色] : .WriteText [用户昵称] : .ForeColor = 11 : .WriteLine " 说："
  44.                 .ForeColor = [信息交互颜色] : [发送内容] = .ReadLine
  45.                 WScript.Sleep [消息延时]
  46.                 .ForeColor = [昵称颜色] : .WriteText [机器人昵称] : .ForeColor = 11 : .WriteLine " 说："
  47.                 .ForeColor = [信息交互颜色] : [机器人交互] [发送内容]
  48.         Wend
  49. End With

  51. Sub [机器人交互](strText) '发信息与返回信息处理的子程序
  52.         Dim [Arr返回内容（JSON）],Re,[返回内容（文字）],[列指针]
  53.         Set Re = New RegExp
  54.         Re.Pattern = "http://"
  55.         [Arr返回内容（JSON）] = Split(HTTP_POST(API_Address,"key="&API_Key&"&info="&strText&"&userid="&[用户ID]),Chr(&H22))
  56.         With Console
  57.                 For [列指针] = 5 To UBound([Arr返回内容（JSON）]) Step 4
  58.                         If re.Test([Arr返回内容（JSON）]([列指针])) = True Then
  59.                                 .WriteText [Arr返回内容（JSON）]([列指针])
  60.                                 .ForeColor = [提示颜色]
  61.                                 .WriteText "发现链接，是否打开？【按Y确认】"
  62.                                 If UCase(Chr(.ReadKey)) = "Y" Then CreateObject("Wscript.Shell").Run [Arr返回内容（JSON）]([列指针])
  63.                                 .ForeColor = [信息交互颜色]
  64.                         Else
  65.                                 .WriteText [Arr返回内容（JSON）]([列指针])
  66.                         End If
  67.                 Next
  68.                 .WriteLine
  69.         End With
  70. End Sub

  72. Function HTTP_POST(Address,Args) 'HTTP-POST函数块
  73.         With CreateObject("MSXML2.XMLHTTP")
  74.                 .Open "POST",Address, False
  75.                 .SetRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  76.                 .Send Args
  77.                 HTTP_POST = .ResponseText
  78.         End With
  79. End Function
复制代码

————————————————————————————————————————————————————
邮编查询.VBS
  1. Const API_Address = "http://www.tuling123.com/openapi/api"
  2. Const API_Key = "b9f823b5ae0144abb7b0cba774a0f5f8"
  3. '这是老刘的apikey，每天有5000次的使用次数，一般不用操心。
  4. '如果想要大批量使用，请自行前往tuling123.com注册帐号来更改。

  6. [城市名] = Inputbox("输入城市名：")
  7. Msgbox Split(HTTP_POST(API_Address,"key="&API_Key&"&info="&[城市名]&Chr(&HB5C4)&Chr(&HD3CA)&Chr(&HB1E0)),"""")(5)

  9. Function HTTP_POST(Address,Args)
  10.         With CreateObject("MSXML2.XMLHTTP")
  11.                 .Open "POST",Address, False
  12.                 .SetRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  13.                 .Send Args
  14.                 HTTP_POST = .ResponseText
  15.         End With
  16. End Function
复制代码
快递查询.VBS

  1. Const API_Address = "http://www.tuling123.com/openapi/api"
  2. Const API_Key = "b9f823b5ae0144abb7b0cba774a0f5f8"
  3. '这是作者的apikey，每天有5000次的使用次数，一般不用操心。
  4. '如果想要大批量使用，请自行前往tuling123.com注册帐号来更改。
  5. Const Userid = "Unknown" '无需更改，改一下也没关系～

  7. [快递号] = Inputbox("输入快递号：")
  8. Msgbox Replace(Split(HTTP_POST(API_Address,"key="&API_Key&"&info="&Chr(&HB2E9)&Chr(&HD1AF)&Chr(&HBFEC)&Chr(&HB5DD)&[快递号]&"&userid="&Userid),"""")(5),"\n",VbNewLine)

  10. Function HTTP_POST(Address,Args)
  11.         With CreateObject("MSXML2.XMLHTTP")
  12.                 .Open "POST",Address, False
  13.                 .SetRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  14.                 .Send Args
  15.                 HTTP_POST = .ResponseText
  16.         End With
  17. End Function
复制代码
天气查询.VBS
  1. Const API_Address = "http://www.tuling123.com/openapi/api"
  2. Const API_Key = "b9f823b5ae0144abb7b0cba774a0f5f8"
  3. '这是作者的apikey，每天有5000次的使用次数，一般不用操心。
  4. '如果想要大批量使用，请自行前往tuling123.com注册帐号来更改。
  5. Const Userid = "Unknown" '无需更改，改一下也没关系～
  6. Const [城市名] = "临河" '如果有同城的，握个手哈～

  8. Msgbox Replace(Split(HTTP_POST(API_Address,"key="&API_Key&"&info="&[城市名]&Chr(&HCCEC)&Chr(&HC6F8)&"&userid="&Userid),"""")(5),";",VbNewLine),,_
  9. [城市名]&"天气"

  11. Function HTTP_POST(Address,Args)
  12.         With CreateObject("MSXML2.XMLHTTP")
  13.                 .Open "POST",Address, False
  14.                 .SetRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  15.                 .Send Args
  16.                 HTTP_POST = .ResponseText
  17.         End With
  18. End Function
复制代码
笑话一则.VBS
  1. Const API_Address = "http://www.tuling123.com/openapi/api"
  2. Const API_Key = "b9f823b5ae0144abb7b0cba774a0f5f8"
  3. '这是老刘的apikey，每天有5000次的使用次数，一般不用操心。
  4. '如果想要大批量使用，请自行前往tuling123.com注册帐号来更改。

  6. Msgbox _
  7. Split(HTTP_POST(API_Address,"key="&API_Key&"&info="&Chr(&HBDB2)&Chr(&HB8F6)&Chr(&HD0A6)&Chr(&HBBB0)),Chr(&H22))(5),, _
  8. "笑话一则"

  10. Function HTTP_POST(Address,Args)
  11.         With CreateObject("MSXML2.XMLHTTP")
  12.                 .Open "POST",Address, False
  13.                 .SetRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  14.                 .Send Args
  15.                 HTTP_POST = .ResponseText
  16.         End With
  17. End Function
复制代码
小故事一则.vbs
  1. Const API_Address = "http://www.tuling123.com/openapi/api"
  2. Const API_Key = "b9f823b5ae0144abb7b0cba774a0f5f8"
  3. '这是老刘的apikey，每天有5000次的使用次数，一般不用操心。
  4. '如果想要大批量使用，请自行前往tuling123.com注册帐号来更改。

  6. Const [宿主] = "WSCRIPT.EXE"
  7. If Not UCase(Right(WScript.FullName,11)) = UCase([宿主]) Then
  8.         Dim Args,Arg
  9.         For Each Arg in Wscript.Arguments
  10.                 Args=Args&Chr(&H20)&Chr(&H22)&Arg&Chr(&H22)
  11.         Next
  12.         CreateObject("Wscript.Shell").Run _
  13.                 [宿主]&Chr(&H20)&Chr(&H22)&WScript.ScriptFullName&Chr(&H22)&Args
  14.         WScript.Quit
  15. End If

  17. Wscript.Echo _
  18. Replace(Split(HTTP_POST(API_Address,"key="&API_Key&"&info="&Chr(&HBDB2)&Chr(&HB8F6)&Chr(&HB9CA)&Chr(&HCAC2)),"""")(5),"\n",VBNEWLINE)


  21. Function HTTP_POST(Address,Args)
  22.         With CreateObject("MSXML2.XMLHTTP")
  23.                 .Open "POST",Address, False
  24.                 .SetRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  25.                 .Send Args
  26.                 HTTP_POST = .ResponseText
  27.         End With
  28. End Function
复制代码

评分

参与人数 6技术 +6 收起 理由
taofan712 + 1 Old Law！
17779357752 + 1 严重支持
523066680 + 1 holy high
Nsqs + 1 感谢分享
a2002 + 1 支持了

查看全部评分

回复

举报

skl1225
发表于 2017-7-11 15:00:19 | 显示全部楼层
牛逼了老刘
回复

举报

老刘1号
 楼主| 发表于 2017-7-11 14:05:45 | 显示全部楼层
本帖将不再更新。
回复

举报

老刘1号
 楼主| 发表于 2017-7-8 12:29:30 | 显示全部楼层
回复 10# happy886rr

感谢大佬支持，同时更新了天气查询
不知道注意到没
回复

举报

happy886rr
发表于 2017-7-8 09:49:49 | 显示全部楼层
回复 9# 老刘1号
这个物流查询不错，实用性很强。
回复

举报

老刘1号
 楼主| 发表于 2017-7-7 17:30:23 | 显示全部楼层
回复 6# happy886rr


    慢慢来，不着急
回复

举报

happy886rr
发表于 2017-7-7 15:01:05 | 显示全部楼层
回复 7# 523066680
哈哈，有道理。静观其变。
回复

举报

523066680
发表于 2017-7-7 12:03:23 | 显示全部楼层
回复 6# happy886rr

很多种可能，
1. just beginning，细水长流
2. 抛砖引玉
回复

举报

happy886rr
发表于 2017-7-7 11:53:50 | 显示全部楼层
为何不实现机器人对话，这个只能讲笑话，功能太少。
回复

举报

老刘1号
 楼主| 发表于 2017-7-7 10:17:18 | 显示全部楼层
回复 4# 523066680


    确实……
tuling就算了，还带123……
api免费好评
回复

举报

523066680
发表于 2017-7-7 10:15:41 | 显示全部楼层
回复 3# 老刘1号


    这个官网肯定是刚起的名字而且有点急促…… 域名风格山寨了点
回复

举报

老刘1号
 楼主| 发表于 2017-7-7 10:14:25 | 显示全部楼层
回复 2# 523066680


    人家官网就用拼音，怪我咯～
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 21:21 , Processed in 0.022667 second(s), 10 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表