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

  • 前言:

    10年积累的成都做网站、成都网站制作经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计制作后付款的网站建设流程,更有寻乌免费网站建设让你可以放心的选择与我们合作。

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

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

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

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

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

  • 我的实现过程,分两步:

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

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

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

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

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

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

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

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

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

但我所在单位之前是通过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  ;你想推送什么信息直接传递给下边的变量$testmsg即可 $testmsg=@YEAR&'年'&@MON&'月'&@MDAY&'日'&'  '&@HOUR&':'&@MIN&':'&@SEC&' 午餐时间\n>人是铁饭是钢,一顿不吃饿得慌.' ;下边换成你的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研究阶段,随后我按指定时间加了几行代码做了一个类似闹钟的定时提醒的东东,挂在了我电脑上运行,然后就看到了本文上边最开始那两张图片的效果。

  • 结语

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

另外有需要云服务器可以了解下创新互联cdcxhl.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。


名称栏目:用企微机器人群发信息-来自AutoIT的调用-创新互联
本文链接:http://azwzsj.com/article/ecdjp.html