Foxtable(狐表)用户栏目专家坐堂 → 无法解析此远程名称: 'api.weixin.qq.com'


  共有4534人关注过本帖树形打印复制链接

主题:无法解析此远程名称: 'api.weixin.qq.com'

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/8/15 20:20:00 [显示全部帖子]

……
try
    jo = JObject.Parse(hc.getdata)
    If jo("errcode") = "0" Then     '发送成功,则保存相应信息.若不成功,则不提示,不然会中断整个程序.
        Dim dr5 As DataRow = DataTables("TemplateMessage").AddNew()
        dr5("MsgID") = jo("msgid")     '动态生成的消息ID,每个消息都不同
        dr5("OpenID") = ""& str1 &""    '收件者OpenID
        dr5("接收者") = ""& str4 &""    '收件者姓名
        dr5("发送者") = ""& str2 &""     '发件者姓名
        dr5("Description") = "工作汇报: "& str2 &" -> "& str4 &" -> ***"
        dr.Save()
    End If
End try
……

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/8/16 12:10:00 [显示全部帖子]


 回到顶部