Global $token = "9f7f...我是token...0090d9"

_DingDing_Send($token,"A22Q我是发送的消息测试ad234") 

Func _DingDing_Send($token, $Str)
    Local $xmlhttp = ObjCreate("MSXML2.XMLHTTP.3.0")
    $xmlhttp.open("POST", "https://oapi.dingtalk.com/robot/send?access_token=" & $token, False)
    $xmlhttp.setRequestHeader('Content-Type', "application/json;charset=utf-8")
    $xmlhttp.send('{"msgtype":"text","text":{"content":"业务消息:' & $Str & '"}}')
    Global $bodytext = BinaryToString($xmlhttp.responseBody, 1)
    ConsoleWrite($bodytext)
EndFunc   ;==>_DingDing_Send

本文固定链接: http://www.jianyiit.com/post-390.html