用企微机器人群发信息 - 来自AutoIT的调用

• 前言：

　　企业微信群里有“群机器人”了，如果我们业务、运维平台能将一些信息直接借此推送过来，想必也是一条不错的可候选渠道......

我做了一个demo，在PC版企业微信里看是这样子：

在移动手机端看到的是这个样子：

• 我的实现过程，分两步：

• 第一步：完成企微里的基本添加操作配置：

按照提示，填写好机器人的名字后，顺利添加成功了：

• 第二步：完成相关调用。

　　咱们点击上图中的“配置说明”，顺利抵达企微API中的群机器人配置说明页：https://work.weixin.qq.com/api/doc/90000/90136/91770?version=3.0.10.1202&platform=win

　　通过看官方示例用curl工具执行一下cmdline请求一下http就可以给企微群里发消息了，这简直是方便得不能再方便了，对于一些中小、小微企业的运维监控通知未必都是高大上的Zabbix之类，完全可以结合自己公司内的一些实际运维平台情况小小地二次开发以后，实现将以前的邮件通知告警、日志告警......也顺路发送送到企业微信里来。

　　但我所在单位之前是通过AUTOIT平台来开发实现的运维平台，我尝试在GOOGLE和度娘上查找"autoit 群机器人"查找不借助curl工具的原生Win平台上的解决方法，没有找到，只好自己写了一段测试DEMO，希望能给有类似平台的博友们一点参考：

#Region
#AccAu3Wrapper_Outfile=demo机器人群发信息-企业微信.exe
#AccAu3Wrapper_UseUpx=y
#AccAu3Wrapper_UseX64=n
#AccAu3Wrapper_Res_Description=详见：https://blog.51cto.com/boyhong
#AccAu3Wrapper_Res_LegalCopyright=https://blog.51cto.com/boyhong
#AccAu3Wrapper_Res_Language=2052
#AccAu3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#AccAu3Wrapper_Antidecompile=y
#EndRegion
#include <File.au3>

;你想推送什么信息直接传递给下边的变量$testmsg即可
$testmsg=@YEAR&'年'&@MON&'月'&@MDAY&'日'&'  '&@HOUR&':'&@MIN&':'&@SEC&' 午餐时间\n><font color=\"comment\">人是铁饭是钢,一顿不吃饿得慌.</font>'
;下边换成你的KEY，位于上边第一步添加完群机器人的那个页面上有
$post_url = 'https://qyapi.weixin.qq.com/cgi-bin/webhook/send?key=d9xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx9e'
$post_data = '{'&@LF&'"msgtype": "markdown",'&@lf&'"markdown": {'&@lf&'"content": '&'"'&$testmsg&'"'&@lf&'}'&@lf&'}'
Local $oErrorHandler =  ObjEvent("AutoIt.Error", "_checkobj")
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("POST", $post_url, False)
$oHTTP.setRequestHeader("Content-Type", "application/json")
$oHTTP.Send($post_data)
$data = $oHTTP.responseText
$oHTTP= 0 ; Object is deleted 

If StringInStr($data, '{"errcode":44004,"errmsg') Then
	_FileWriteLog(@ScriptDir & "\Example.log", "发送失败,原因:"&$data)
ElseIf StringInStr($data, '{"errcode":0,"errmsg":"ok"}') Then
	_FileWriteLog(@ScriptDir & "\Example.log", "成功发送,如果没有收到,官方每分钟有20条限制及不要将企微APP设置进入休息模式.")
EndIf
Exit

Func _checkobj($oError)
	_FileWriteLog(@ScriptDir & "\Example.log", "COM调用出错:"& "err.number is: " & "0x" & Hex($oError.number) &"err.windescription:" & _
	$oError.windescription &"err.description is: " & $oError.description & "err.source is: " & $oError.source & "err.scriptline is: " & _
	$oError.scriptline &"err.retcode is: " & "0x" & Hex($oError.retcode))
EndFunc

　　因为还只是demo研究阶段，随后我按指定时间加了几行代码做了一个类似闹钟的定时提醒的东东，挂在了我电脑上运行，然后就看到了本文上边最开始那两张图片的效果。

• 结语

　　是不是有点意思？借助这个通道实现推送信息流，可以有很多很多的应用场景........剩下的，就是将其核心调用代码集成进一些平台接口里去了。^-^