以前写过关于QQ发送随机表情的文章教程《QQ发送随机表情脚本代码》，昨天由群友问我微信怎么发随机表情，其实方法是一样的。
第一步：找到表情的编码，这里我是使用苹果手机获取的。
编码的格式是：方括号+表情描述 ，比如 就是 [微笑]
第二步：把常见的表情导出来，每个表情用逗号分开。
第三步：分割表情文本存成数组，然后用随机数获取数组中的内容。
总的来说比较简单，稍微有点难度的就是怎么找到表情的编码。
下面是源码分享：
InputText 微信表情(5)
Function 微信表情(m) Dim 表情="[微笑],[撇嘴],[色],[发呆],[得意],[流泪],[害羞],[闭嘴],[睡],[大哭],[尴尬],[发怒],[调皮],[呲牙],[惊讶],[难过],[囧],[抓狂],[吐],[偷笑],[愉快],[白眼],[傲慢],[困],[惊恐],[流汗],[憨笑],[悠闲],[奋斗],[咒骂],[疑问],[嘘],[晕],[衰],[骷髅],[敲打],[再见],[擦汗],[抠鼻],[鼓掌],[坏笑],[左哼哼],[右哼哼],[哈欠],[鄙视],[委屈],[快哭了],[阴险],[亲亲],[可怜],[菜刀],[西瓜],[啤酒],[咖啡],[猪头],[玫瑰],[凋谢],[嘴唇],[爱心],[心碎],[蛋糕],[炸弹],[便便],[月亮],[太阳],[拥抱],[强],[弱],[握手],[胜利],[抱拳],[勾引],[拳头],[OK],[跳跳],[发抖],[怄火],[转圈],[奸笑],[机智],[皱眉],[耶],[红包],[發],[福]" Dim 表情_arr=split(表情,",") TracePrint "一共有"&UBound(表情_arr)+1&"个表情" Dim n,k="" For m n = Int((UBOUND(表情_arr) + 1) * Rnd()) k=k&表情_arr(n) Next 微信表情=kEnd Function
把代码简单的封装了一下，加上了一个数量参数，比如你想输入5个表情，就可以在括号里面填写5。
原文始发于微信公众号（3分钟学堂）：