没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
HttpsPost = CREATEOBJECT("Microsoft.XmlHttp")
_CorpID = "c26cefda4d06135c2f465"
_CorpSecret = "W5aUOTWus4SGLOb0fQsFef1XRXEj5-FnAe"
vw_URL = "https://oapi.dingtalk.com/gettoken?corpid=" + _CorpID + "&corpsecret=" + _CorpSecret
HttpsPost.open("get", vw_URL , .F.)
HttpsPost.send()
vw_RetXML = HttpsPost.responseText
IF HttpsPost.status <> 200
RETURN "出错"
ENDIF
vw_AccessToken = Strextract(vw_RetXML , ["access_token":] , [,"errcode":]) &&提取Access_token值
vw_AccessToken = CHRTRAN(ALLTRIM(vw_AccessToken) , '"' , '') &&去掉"双引号
ls_bndy = "****" + SYS(3)+ "****"
ls_args = '--' + ls_bndy + CHR(13) + CHR(10) + ;
'Content-Disposition: form-data; name= "media"; filename="ding.jpg"' + CHR(13) + CHR(10) +;
'Content-Type:image/jpeg' + CHR(13) + CHR(10) + ;
'Content-Transfer-Encoding: binary' + CHR(13) + CHR(10) + CHR(13) + CHR(10)
ls_data = CREATEBINARY(ls_args) + CREATEBINARY(FILETOSTR("c:\ding.jpg")) + CREATEBINARY(CHR(13) + CHR(10) + '--' + ls_bndy + '--' + CHR(13) + CHR(10))
ls_headers1 = "multipart/form-data; boundary="+ ls_bndy + CHR(13) + CHR(10)
_CorpID = "c26cefda4d06135c2f465"
_CorpSecret = "W5aUOTWus4SGLOb0fQsFef1XRXEj5-FnAe"
vw_URL = "https://oapi.dingtalk.com/gettoken?corpid=" + _CorpID + "&corpsecret=" + _CorpSecret
HttpsPost.open("get", vw_URL , .F.)
HttpsPost.send()
vw_RetXML = HttpsPost.responseText
IF HttpsPost.status <> 200
RETURN "出错"
ENDIF
vw_AccessToken = Strextract(vw_RetXML , ["access_token":] , [,"errcode":]) &&提取Access_token值
vw_AccessToken = CHRTRAN(ALLTRIM(vw_AccessToken) , '"' , '') &&去掉"双引号
ls_bndy = "****" + SYS(3)+ "****"
ls_args = '--' + ls_bndy + CHR(13) + CHR(10) + ;
'Content-Disposition: form-data; name= "media"; filename="ding.jpg"' + CHR(13) + CHR(10) +;
'Content-Type:image/jpeg' + CHR(13) + CHR(10) + ;
'Content-Transfer-Encoding: binary' + CHR(13) + CHR(10) + CHR(13) + CHR(10)
ls_data = CREATEBINARY(ls_args) + CREATEBINARY(FILETOSTR("c:\ding.jpg")) + CREATEBINARY(CHR(13) + CHR(10) + '--' + ls_bndy + '--' + CHR(13) + CHR(10))
ls_headers1 = "multipart/form-data; boundary="+ ls_bndy + CHR(13) + CHR(10)




资源评论

tonyu
- 粉丝: 5
- 资源: 9

上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
已下载
下载帮助

看过该资源的人还看了
安全验证
文档复制为VIP权益,开通VIP直接复制
