|
发表于 2020-3-12 02:38:26
|
显示全部楼层
江苏省扬州市
.版本 2
.支持库 spec
.参数 进程ID, 整数型
.局部变量 s, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 qqtemp, 文本型
.局部变量 ttt, 文本型
内存搜索 (进程ID, 到字节集 (“Cookie:”), s)
.计次循环首 (取数组成员数 (s), i)
ttt = 读内存文本型 (进程ID, s [i]) + “;”
ttt = 子文本替换 (ttt, “euin_cookie=”, “??”, , , 真)
' 调试输出 (ttt)
qqtemp = 文本_取出中间文本 (ttt, “uin=”, “;”, , )
qqtemp = 子文本替换 (qqtemp, “o”, “”, , , 真)
.计次循环首 (14, )
.如果 (取文本左边 (qqtemp, 1) = “0”)
qqtemp = 取文本右边 (qqtemp, 取文本长度 (qqtemp) - 1)
.否则
跳出循环 ()
.如果结束
.计次循环尾 ()
.如果真 (qqtemp ≠ “” 且 取反 (是否已存在 (qqtemp)))
' 调试输出 (qqtemp, ttt)
加入成员 (c_qq, qqtemp)
编辑框1.加入文本 (qqtemp + #换行符)
.如果真结束
.计次循环尾 ()
.子程序 是否已存在, 逻辑型
.参数 qq, 文本型
.局部变量 i, 整数型
.计次循环首 (取数组成员数 (c_qq), i)
.如果真 (寻找文本 (c_qq [i], qq, , 假) ≠ -1)
返回 (真)
.如果真结束
.计次循环尾 ()
返回 (假)
.子程序 取电脑所有已登录QQ
.局部变量 jc, 进程信息型, , "0"
.局部变量 i, 整数型
清除数组 (c_qq)
进程枚举 (jc)
.计次循环首 (取数组成员数 (jc), i)
.如果 (到文本 (jc [i].进程名称) = “QQ.exe”)
调试输出 (到文本 (jc [i].进程名称), jc [i].进程ID)
取所有已登录QQ (jc [i].进程ID)
.否则
.如果结束
.计次循环尾 ()
|
|