微信发送随机表情 脚本源代码分享

以前写过关于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分钟学堂):

除特别注明外,本站文章均为原创,转载请注明出处和链接!
本文链接地址: https://pumpkinit.com/1020.html
Pumpkin  [https://pumpkinit.com]  感谢

发表评论

电子邮件地址不会被公开。 必填项已用*标注