菜鸟放飞的梦

第一步：附加数据库 第二步：根据说明文档，在表中按指定的规定写入数据即可。 2020-03-18更新： 几年前发的资源，今天才想起来看看，原来当初还加密了的。实在不好意思，现将加密部分补充发出来。还有不清楚的或者失败了的可以问我，看账号可联系我。 declare @url as varchar(1000) ,@json as varchar(max) set @url = '' --接口地址 set @json = '' --发送的参数 Declare @Object as Int Declare @ResponseText as Varchar(8000) EXEC sp_OACreate 'MSXML2.ServerXMLHttp', @Object OUT; Exec sp_OAMethod @Object, 'open', NULL, 'POST',@url,'false' Exec sp_OAMethod @Object, 'send',null ,@json EXEC sp_OAMethod @Object, 'responseText', @ResponseText OUTPUT Exec sp_OADestroy @Object print @ResponseText ---接口响应

用VB实现公众号的消息推送。