微信群@固定人的小脚本

如果你管理着几百号人的微信群，平时发一些通知时要@固定的部分人，每次想那些人微信名的时候是个比较麻烦的事，可以用这个小脚本。里面用到的字符串分割和SendText方法，最近学习后掌握到的，感谢平台提供的学习机会。

有些人可能觉得复制微信里的人名字就行，实际这样对方是收不到“有人@你的”通知的。

把每次要@的人微信名称保存中间用‘，’或‘,’或换行隔开。

$F12::
	temp := StrSplit("张三,李四,王五", ["，",",","`n"] )
	for index,element in temp
	{
		Sleep,1000
		SendText("@")
		Sleep,500
		temp[index] := StrReplace(temp[index], "@")
		SendText(temp[index])
		Sleep,500
		send,{ENTER}
	}
	msgbox,0,微信点名,结束
return

/*
------------------------------------------
*/ 
SendText(str)            ;发送文本
{
	ControlGetFocus,classnn,A
	p := &str
	while,*p
	{
		if (*p>128 && *(p+1)>=64)
		{
			ch := *p << 8 | *(p+1)
			PostMessage,0x286,%ch%,0x1,%classnn%,A
			p += 2
		}
		Else
		{
			ch := *p
			Send,{ASC %ch%}
			p++
		}
	}
}