PB/POWERBUILDER实现微信模板消息推送的源代码示例

String appid = 'appid'//替换
String appSecret = 'secretid'//替换
string ls_import,ls_export,ls_accesstoken,ls_tokenjson,ls_response
String ls_url = 'https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential'+'&appid='+appid+'&secret='+appSecret
string ls_pushurl
String ls_data

OleObject lole   
lole = CREATE oleobject 
lole.ConnectToNewObject("Microsoft.XMLHttp") 

lole.open("POST",ls_url, false)   

lole.setRequestHeader("Content-type", "application/json; encoding=utf-8")
lole.setRequestHeader("accept","*/*")
lole.setRequestHeader("connection","Keep-Alive")
lole.setRequestHeader("user-agent","Mozilla/4.0(compatible; MSIE 6.0; Windows NT 5.1;SV1)")
lole.setRequestHeader('Content-Length',string(len(ls_data)))
lole.send(ls_data)
//messagebox('',lole.responseText)
ls_tokenjson = lole.responseText  
//messagebox('',ls_tokenjson)
ls_accesstoken = mid(ls_tokenjson,18,157)
//messagebox('',ls_accesstoken)

ls_pushurl = "https://api.weixin.qq.com/cgi-bin/message/template/send?access_token="+ls_accesstoken
//此处偷懒未使用json封装类，使用拼接字符串实现
String sstart='{"data":{"first": {"color": "#000000","value": "111"},';
String skey1='"keyword1":{"color": "#000000","value": "1"},';
String skey2='"keyword2":{"color": "#000000","value": "5000元"},';