按键精灵后台发送qq消息

//自动以发送信息
UserVar title = "机器人" "窗口标题对应昵称"
UserVar text = "" "发送内容"
UserVar rate = 1000 "发送频率/ms"
UserVar times = 0 "发送次数"
UserVar subfix=DropList{"是":"True"|"否":"False"}=0 "是否计数"
//获取句柄
Hwnd = Plugin.Window.Find("TXGuiFoundation",title)
t = 1
//循环发送消息
While t <= times or times = 0
If subfix = "True" Then
Call Plugin.Bkgnd.SendString(Hwnd, text & t)
Else
Call Plugin.Bkgnd.SendString(Hwnd, text)
End If
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
t = t + 1
Delay rate
Wend