窗口自动跟随吸附在QQ窗口上

设置时钟_ (取窗口句柄 (), 1024, 1, 到数值 (&TiemrProc))
HWindow ＝ 取所有窗口列表 ()
.计次循环首 (取数组成员数 (HWindow), n1)
.如果真 (取窗口类名 (到数值 (HWindow [n1])) ＝ “TXGuiFoundation”)
.如果真 (取窗口标题 (到数值 (HWindow [n1])) ≠ “QQ”)
.如果真 (取文本右边 (取窗口标题 (到数值 (HWindow [n1])), 8) ≠ “添加好友”)
.如果真 (取文本右边 (取窗口标题 (到数值 (HWindow [n1])), 6) ≠ “添加群”)
GetWindowRect_ (到数值 (HWindow [n1]), WRect)
HadFound ＝ 真
跳出循环 ()
.如果真结束

.如果真结束

.如果真结束

.如果真结束

.计次循环尾 ()
.如果真 (HadFound ＝ 假)
结束 ()
.如果真结束
顶边 ＝ WRect.Top ＋ 7
左边 ＝ WRect.Right － 7