test _ 论坛事务 - 按键精灵论坛

查看: 975\|回复: 0	test [复制链接]

发送短消息 UID 742060 帖子 2281 精华 5 鲜花 881 朵铜币 10799 个银币 580 个性别在线时间 48300 注册时间 2011-08-18 最后登录 2026-01-20 1915025270 查看公共资料搜索主题搜索帖子山海师山海狮组别按键工程师 UID742060 帖子2281 精华5 鲜花881 朵铜币10799 个银币580 个在线时间48300 注册时间2011-08-18 双十一绝版纪念勋章双十一绝版纪念勋章抗战胜利70周年勋章抗战胜利70周年活动的专属勋章单身汪勋章单身贵族的专属勋章体验先锋勋章新版本体验先锋纪念勋章元旦勋章按键精灵元旦活动纪念勋章按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com 虎年勋章虎年纪念勋章论坛GG 按键论坛男性用户勋章小红帽对论坛提出良好建议（可向管理员申请）爱心大使积极帮助新手（可向管理员进行申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章	1^# 字体大小: t T 发表于 2021-11-26 18:49 \| \|只看楼主现在官方自带的http的命令少了个提交文件的功能，美中不足VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 无可奈何我就被迫营业封装了一个http的插件，可以支持upload功能VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 目前插件还是内测版本，功能不完善且概率存在一定BUG，后续会进行迭代更新VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 功能特色 VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 自定义header消息头VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 智能判定Content-Type类型VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 支持Android&IOS双端使用VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 统一的payload格式传入（table类型）VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 命令功能VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A SHTTP.Get(url, opts) VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 功能：发送Get请求VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 参数：VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A url: 必选，请求的urlVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A opts: 可选参数，包含以下参数的键值表headers: 自定义http消息头，可以是键值表或者字符串timeout: 请求超时时间，默认为10秒files: 上传文件路径VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 返回：返回请求结果VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A SHTTP.Post(url, data, opts) VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 功能：发送Get请求VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 参数：VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A url: 必选，请求的urlVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A data: 必选，需要提交的请求数据，用键值表或者key-value存放提交数据VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A opts: 可选参数，包含以下参数的键值表headers: 自定义http消息头，可以是键值表或者字符串timeout: 请求超时时间，默认为10秒files: 上传文件路径VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 返回：返回请求结果VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 使用范例VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 简单的Get网页 Import "SHTTP.lua"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A TracePrint SHTTP.Get("http://bbs.anjian.com/")VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 复制代码附带请求头Get Import "SHTTP.lua"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A Dim tHeaders = {null}VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 复制代码发送post请求 Import "SHTTP.lua"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A Dim sUrl= "https://api.toolnb.com/Tools/Qrcode/qrcodeLogo.html"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 复制代码 Import "SHTTP.lua"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A Dim tHeaders = {null}VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A tHeaders["user-agent"] = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/96.0.4664.45 Safari/537.36"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 复制代码通过post来提交文件 Import "SHTTP.lua"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A Dim sUrl= "https://api.toolnb.com/Tools/Qrcode/qrcodeLogo.html"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 复制代码 VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 对接百度OCR识别API Dim sUrl = "https://aip.baidubce.com/oauth/2.0/token"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A Dim tData = {null}VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A tData["grant_type"] = "client_credentials"VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A tData["client_id"] = "" // 填自己的client_idVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A tData["client_secret"] = "" // 填自己的client_secretVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A Dim sJson, tJsonVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A // 获取api的access_token值VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A sJson = SHTTP.Post(sUrl, tData)VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A tJson = Cjson.Decode(sJson)VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A Dim Access_Token = tJson["access_token"]VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A sUrl = "https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic" & "?access_token=" & Access_TokenVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A // 需要先将图片转成base64编码VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A Dim ImgBase64 = ShanHai.ReadFileBase(GetSdcardDir() & "/Pictures/test.png")VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A // 对内容进行url编码VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A ImgBase64 = ShanHai.CharToUrl(ImgBase64)VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A sJson = SHTTP.Post(sUrl, {"image":ImgBase64},{"headers":{"Content-Type":"application/x-www-form-urlencoded"}})VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A tJson = Cjson.Decode(sJson)VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A For i = 1 To Len(tJson["words_result"])VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A TracePrint tJson["words_result"][i]["words"]VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A NextVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷AVÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 复制代码 VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A 插件开源下载(回复可见)：VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A [attach]251160[/attach]VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A VÜÑÏÕÇ³ûAbbs.anjian.comðMWÊ÷A
	点赞

	回顶部

上一主题| 下一主题

test [复制链接]