Code: Select all
$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++
}
}
}