以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]网页接口　PUT方式上传  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177913)
--  作者：wanglin3033
--  发布时间：2022/6/9 18:14:00
--  [求助]网页接口　PUT方式上传
http请求方式：PUT
http://ip:port/seeyon/rest/orgMember/{id}/enabled/{enabled}
如
http://127.0.0.1/seeyon/rest/orgMember/-757960293000589356/enabled/true
　以上是接口说明
Dim OAToken As String \'获取OA下的token值 
 Dim Tokenurl As String = "url" \'OA内rest账户名与密码,更换系统需要更换信息\' 
 Dim tkhc As New HttpClient(CExp(Tokenurl)) 
 Dim tkret As String = tkhc.GetData() 
 Dim jo2 As JObject = JObject.Parse(tkret) OAToken = jo2("id") 
 Dim ryurl As String = "127.0.0.1:8060/seeyon/rest/orgMember?token={0}"　　‘修改人员ＵＲＬ’ 
 Dim hc As New HttpClient(CExp(ryurl, OAToken )) hc.C 
 Dim jo1 As New JObject 
 jo1("id") = "-9266506964050" 
 jo1("loginName") = "test1" 
 jo1("enabled") = "true" 
 jo1("orgAccountId") = "-802974655917" 
 jo1("name") = "test1" 
 jo1("orgDepartmentId" ) = "-400607803372" 
 jo1("orgPostId") = "-823487228413" 
 jo1("orgLevelId") = "7596755795" 
jo1("code") = "020202" 
 hc.Content = jo1.Tostring() \'提交数据\' 
 Dim id1 As String = hc.GetData() \'获取流程发起ID
Output.Show(id1)
--  作者：有点蓝
--  发布时间：2022/6/9 20:48:00
--  
Dim ryurl As String = "127.0.0.1:8060/seeyon/rest/orgMember/-757960293000589356/enabled/true"
 Dim hc As New HttpClient(ryurl) 
hc.Method = "PUT"