在R語言下配置企業微信機械人

library(httr)

library(htmltools)

webhook <-

"your api here"

# 1. 傳送基礎文字資訊

post_body <- list(
'msgtype'
='text'
,'text'
= list(
'content'
='hello world!'))
# 2. 傳送針對某人的文字資訊(替換someone到要@的人)
post_body <- list(
'msgtype'
='text'
,'text'
= list(
'content'
='hello world!'
,'mentioned_list'
= list(
'someone'
,'@all'))
)

post_body <- list(

"msgtype"
="markdown"
,"markdown"
= list(
"content"
=# paste0內寫要傳送的markdown資訊。注意使用轉譯符號\                  
paste0('實時新增使用者反饋
132例<
/font>，請相關同事注意。
> 型別:
使用者反饋<
/font>
> 普通使用者反饋:
117例<
/font>
> vip使用者反饋:
15例<
/font>')
))

# caculate md5sum

library(tools)
image_md5sum <- md5sum(
"full path to picture"
)# calculate base 64
library(base64enc)
image_base64 <- base64encode(
"full path to picture"
)# 構建post
post_body <- list(
'msgtype'
='image'
,'image'
= list(
'base64'
= image_base64,
"md5"
=  image_md5sum)
)

# 注意替換url和picurl, picurl為非必須字段

post_body <- list(
"msgtype"
="news"
,"news"
=                     list(
"articles"
=                              list(
list(
"title"
="中秋節禮品領取"
,"description"
="今年中秋節公司有豪禮相送"
,"url"
="www.qq.com"),
list(
"title"
="中秋節禮品領取"
,"description"
="今年中秋節公司有豪禮相送"
,"url"
="url"
,                            'picurl =
"web link"))
)

message <- post(

url = webhook,
httr::add_headers(
'content-type'=)
,  encode =
'json'
,  body = post_body
)

企業微信機械人 獲取當前天氣

import requests import json import time address input 輸入要查詢的位址 address 湘潭市湖南科技大學 獲取輸入位址的經緯度 map url address key map key map response requests.get map ...

微信機械人扯淡聊天

這裡我用了簡單的別人開發的機械人介面，也可以使用比較強大點的機械人，比如小黃雞機械人，也僅僅是簡單的文字訊息，後面會加上一些豐富的表情和 我使用了php curl擴充套件，當然用php自帶函式get file content和socket同樣可以 我將這個功能放到了 robot.php 如下 cur...

c 做微信機械人

本節主要說下hook的原理，其實hook分很多種，我們最說的hook就是 inline hook，是用的最廣泛的也是自由度最大的，相交於其他hook 比如有 apihook 訊息hook 等等hook，他們都有侷限性，apihook只能hook windows 的api 訊息，他們侷限性太大了，所以...