设置用户备注名

设置用户备注名的接口说明，请参考：

https://developers.weixin.qq.com/doc/offiaccount/User_Management/Configuring_user_notes.html

参考代码：

Dim url As String = "https://api.weixin.qq.com/cgi-bin/user/info/updateremark?access_token={0}"
Dim hc As New HttpClient(CExp(url, Functions.Execute("GetAccessToken")))
Dim jo As New JObject()
jo("openid") = "ofjtFwBSZ5cNqTKLSKx2TNEAxfBI"
jo("remark") = "用户备注名"
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
    MessageBox.Show("设置用户备注名成功")
Else
    MessageBox.Show(jo.ToString)
End If