web微信群发工具源码可发送图片文字

选中位置s ＝ 选中列表框.取被选择表项 ()
.计次循环首 (取数组成员数 (选中位置s), i)
_key ＝ 选中列表框.取标题 (选中位置s [i], 1)
.如果真 (选中列表框.取标题 (选中列表框.现行选中项, 1) ＝ “”)
到循环尾 ()
.如果真结束
.如果真 (WX.SendMsg (_msg, _key))
.如果真 (通用对话框1.文件名 ≠ “”)
WX.Send_img (_key, 图片框1.图片)
.如果真结束
_成功发送 ＝ _成功发送 ＋ 1
WX.SendMsg (“小K群发工具，”, _key)
.如果真结束
程序_延时 (400, 0)
.计次循环尾 ()
信息框 (“发送成功” ＋ 到文本 (_成功发送) ＋ “个消息”, 0, , )