.如果真 (进程_是否存在 (“TIM.exe”, ) = 假 且 进程_是否存在 (“QQ.exe”, ) = 假)
str = “你还没有登录QQ”
返回 (0)
.如果真结束
.如果真 (进程_是否存在 (“QQ.exe”, ))
pid = 进程_取同名ID (“QQ.exe”, pids)
.计次循环首 (pid, i)
QQ.Uin = 到文本 (到无符号整数 (getClientSelfUin (pids [i])))
QQ.Key = getClientkey (pids [i])
QQ.Name = getClientName (到整数 (QQ.Uin), pids [i])
.如果真 (isOnline (到整数 (QQ.Uin), pids [i]))
加入成员 (Size, QQ)
.如果真结束
.计次循环尾 ()
.如果真结束
.如果真 (进程_是否存在 (“TIM.exe”, ))
重定义数组 (pids, 假, 0)
pid = 0
pid = 进程_取同名ID (“TIM.exe”, pids)
.计次循环首 (pid, i)
QQ.Uin = 到文本 (到无符号整数 (getClientSelfUin (pids [i])))
QQ.Key = getClientkey (pids [i])
QQ.Name = getClientName (到整数 (QQ.Uin), pids [i])
.如果真 (isOnline (到整数 (QQ.Uin), pids [i]))
加入成员 (Size, QQ)
.如果真结束
.计次循环尾 ()
.如果真结束
.如果真 (取数组成员数 (Size) = 0)
str = “你还没有登录QQ”
.如果真结束
返回 (取数组成员数 (Size))