主题：[求助]移动开发指南帮助

为什么没有？

https://mp.weixin.qq.com/wiki?t=resource/res_main&id=mp1444738731

贴出你【GetAccessToken】函数的代码。

或者修改成这样测试一下 http://www.foxtable.com/mobilehelp/scr/0178.htm

请这样调用

    Dim url As String = "https://api.weixin.qq.com/cgi-bin/material/del_material?access_token={0}&media_id={1}"

或者

Dim tb As Table = e.Form.Controls("table1").Table
tb.DataSource = DataTables("Materials")

Dim dr As DataRow = tb.DataTable.find("编号 = '" & bh & "' ")
If dr IsNot Nothing Then
   
    Dim url As String = "https://api.weixin.qq.com/cgi-bin/material/del_material?access_token={0}"
    Dim med As String  = dr("mediaID")
    Dim hc As new HttpClient(CExp(url, Functions.Execute("GetAccessToken")))
   
    Dim jo As New JObject
    jo("media_id") = med
   
    hc.Content = jo.ToString
    jo = JObject.Parse( hc.getdata)
    If jo("errcode") = "0" Then
        messagebox.show("微信服务器已删除")
    Else
        messagebox.show("微信返回错误:" & jo.ToString)
        Return
    End If
End If