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}" ‘修改人员URL’
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)