以前写过关于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
微信表情=k
End Function
把代码简单的封装了一下,加上了一个数量参数,比如你想输入5个表情,就可以在括号里面填写5。
原文始发于微信公众号(3分钟学堂):