取所有已登录QQ号码，新旧版本通用，支持TIM（20231229优化）

果心豆腐酱

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
对象名	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (取所有已登录QQ_通用 ())

子程序名	返回值类型	公开	备 注
取所有已登录QQ_通用	文本型		返回所有QQ号,按先后登录的顺序排列

变量名	类 型	静态	数组	备 注
ID数组	整数型		0
i	整数型
路径	文本型
ret	文本型
结果	文本型

进程_取同名ID (“QQ.exe”, ID数组, )
如果真 (取数组成员数 (ID数组) ≥ 1)
计次循环首 (取数组成员数 (ID数组), i)
ret ＝ “”
路径 ＝ 进程_取路径 (ID数组 [i])
判断 (文本_取出现次数 (路径, “\Bin\”, ) ≥ 1)
ret ＝ 线程_取对象完整名 (ID数组 [i], “A275F086-2618-4C2D-AC22-89D7D169459E”)  ' 老版QQ
判断 (文本_取出中间文本 (进程_取命令行 (ID数组 [i]), #引号, #引号, , ) ＝ 路径)  ' 由于NT架构QQ的特殊性，过滤提高效率
ret ＝ 线程_取对象完整名 (ID数组 [i], “149D051A-54FB-491F-A5AC-20B1E2E226AA”)  ' NT架构新版
判断 (ret ＝ “”)
到循环尾 ()



到循环尾 ()
ret ＝ 文本_取右边 (ret, “/”, , )
如果真 (结果 ≠ “”)
结果 ＝ 结果 ＋ “|”
结果 ＝ 结果 ＋ ret
计次循环尾 ()

如果真 (进程_是否存在 (“TIM.exe”, ))
进程_取同名ID (“TIM.exe”, ID数组, )
如果真 (取数组成员数 (ID数组) ≥ 1)
计次循环首 (取数组成员数 (ID数组), i)
ret ＝ “”
ret ＝ 线程_取对象完整名 (ID数组 [i], “A275F086-2618-4C2D-AC22-89D7D169459E”)  ' TIM
ret ＝ 文本_取右边 (ret, “/”, , )
如果真 (结果 ≠ “”)
结果 ＝ 结果 ＋ “|”
结果 ＝ 结果 ＋ ret
计次循环尾 ()

返回 (结果)

子程序名	返回值类型	公开	备 注
线程_取对象完整名	文本型
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型
对象名称	文本型				模糊的名称

变量名	类 型	静态	数组	备 注
HandleCount	整数型
sHandle	整数型
tHandle	整数型
i	整数型
进程句柄	整数型		0
计数	整数型
hx句柄	整数型

取进程句柄 (进程ID, 进程句柄)
计次循环首 (取数组成员数 (进程句柄), 计数)
如果真 (GetProcessHandleCount (进程句柄 [计数], HandleCount))
判断循环首 (HandleCount ＞ i 且 sHandle ＜ 65536)
sHandle ＝ sHandle ＋ 4
如果真 (DuplicateHandleA (进程句柄 [计数], sHandle, GetCurrentProcess (), tHandle, 0, 假, 2))
i ＝ i ＋ 1
对象名 ＝ “”
hx句柄 ＝ 线程_启动 (&取句柄名称, tHandle, )
如果 (取反 (线程_等待 (hx句柄, 500)))
线程_销毁 (hx句柄)
CloseHandle (tHandle)
CloseHandle (tHandle)
如果真 (文本_取出现次数 (对象名, 对象名称, ) ≥ 1)
返回 (对象名)


处理事件 ()
判断循环尾 ()

计次循环尾 ()
返回 (“”)

子程序名	返回值类型	公开	备 注
取进程句柄	整数型
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型
进程句柄	整数型

变量名	类 型	静态	数组	备 注
进程数据	精易_进程信息列表
hSnapshot	整数型
hProcess	整数型
j	整数型

hSnapshot ＝ CreateToolhelp32Snapshot (2, 0)
如果真 (hSnapshot ≠ -1)
进程数据.dwSize ＝ 296
j ＝ Process32First (hSnapshot, 进程数据)
判断循环首 (j ≠ 0)
如果真 (进程ID ＝ 进程数据.进程ID)
hProcess ＝ OpenProcessA (2035711, 假, 进程数据.进程ID)
加入成员 (进程句柄, hProcess)
j ＝ Process32Next (hSnapshot, 进程数据)
判断循环尾 ()
CloseHandle (hSnapshot)
返回 (hProcess)
返回 (0)

子程序名	返回值类型	公开	备 注
取句柄名称
参数名	类 型	参考	可空	数组	备 注
tHandle	整数型

变量名	类 型	静态	数组	备 注
unicode	字节集
ansi	STRING

unicode ＝ 取空白字节集 (8192)
如果真 (ZwQueryObject (tHandle, 1, unicode, 8192, 0) ＝ 0)
RtlUnicodeStringToAnsiString (ansi, unicode, 真)
对象名 ＝ 指针到文本 (ansi.Buffer)
RtlFreeAnsiString (ansi)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 对象名, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (取所有已登录QQ_通用 ())<br /> <br /> .子程序 取所有已登录QQ_通用, 文本型, , 返回所有QQ号,按先后登录的顺序排列<br /> .局部变量 ID数组, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 路径, 文本型<br /> .局部变量 ret, 文本型<br /> .局部变量 结果, 文本型<br /> <br /> 进程_取同名ID (“QQ.exe”, ID数组, )<br /> .如果真 (取数组成员数 (ID数组) ≥ 1)<br />     .计次循环首 (取数组成员数 (ID数组), i)<br />         ret ＝ “”<br />         路径 ＝ 进程_取路径 (ID数组 <i>)<br /> <br />         .判断开始 (文本_取出现次数 (路径, “\Bin\”, ) ≥ 1)<br />             ret ＝ 线程_取对象完整名 (ID数组 <i>, “A275F086-2618-4C2D-AC22-89D7D169459E”)  ' 老版QQ<br />         .判断 (文本_取出中间文本 (进程_取命令行 (ID数组 <i>), #引号, #引号, , ) ＝ 路径)  ' 由于NT架构QQ的特殊性，过滤提高效率<br />             ret ＝ 线程_取对象完整名 (ID数组 <i>, “149D051A-54FB-491F-A5AC-20B1E2E226AA”)  ' NT架构新版<br />             .判断开始 (ret ＝ “”)<br />                 到循环尾 ()<br />             .默认<br /> <br />             .判断结束<br /> <br />         .默认<br />             到循环尾 ()<br />         .判断结束<br />         ret ＝ 文本_取右边 (ret, “/”, , )<br />         .如果真 (结果 ≠ “”)<br />             结果 ＝ 结果 ＋ “|”<br />         .如果真结束<br />         结果 ＝ 结果 ＋ ret<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> .如果真 (进程_是否存在 (“TIM.exe”, ))<br />     进程_取同名ID (“TIM.exe”, ID数组, )<br />     .如果真 (取数组成员数 (ID数组) ≥ 1)<br />         .计次循环首 (取数组成员数 (ID数组), i)<br />             ret ＝ “”<br />             ret ＝ 线程_取对象完整名 (ID数组 <i>, “A275F086-2618-4C2D-AC22-89D7D169459E”)  ' TIM<br />             ret ＝ 文本_取右边 (ret, “/”, , )<br />             .如果真 (结果 ≠ “”)<br />                 结果 ＝ 结果 ＋ “|”<br />             .如果真结束<br />             结果 ＝ 结果 ＋ ret<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (结果)<br /> <br /> .子程序 线程_取对象完整名, 文本型<br /> .参数 进程ID, 整数型<br /> .参数 对象名称, 文本型, , 模糊的名称<br /> .局部变量 HandleCount, 整数型<br /> .局部变量 sHandle, 整数型<br /> .局部变量 tHandle, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 进程句柄, 整数型, , "0"<br /> .局部变量 计数, 整数型<br /> .局部变量 hx句柄, 整数型<br /> <br /> 取进程句柄 (进程ID, 进程句柄)<br /> .计次循环首 (取数组成员数 (进程句柄), 计数)<br />     .如果真 (GetProcessHandleCount (进程句柄 [计数], HandleCount))<br />         .判断循环首 (HandleCount ＞ i 且 sHandle ＜ 65536)<br />             sHandle ＝ sHandle ＋ 4<br />             .如果真 (DuplicateHandleA (进程句柄 [计数], sHandle, GetCurrentProcess (), tHandle, 0, 假, 2))<br />                 i ＝ i ＋ 1<br />                 对象名 ＝ “”<br />                 hx句柄 ＝ 线程_启动 (&取句柄名称, tHandle, )<br />                 .如果 (取反 (线程_等待 (hx句柄, 500)))<br />                     线程_销毁 (hx句柄)<br />                     CloseHandle (tHandle)<br />                 .否则<br />                     CloseHandle (tHandle)<br />                     .如果真 (文本_取出现次数 (对象名, 对象名称, ) ≥ 1)<br />                         返回 (对象名)<br />                     .如果真结束<br /> <br />                 .如果结束<br /> <br />             .如果真结束<br />             处理事件 ()<br />         .判断循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (“”)<br /> <br /> .子程序 取进程句柄, 整数型<br /> .参数 进程ID, 整数型<br /> .参数 进程句柄, 整数型, 可空 数组<br /> .局部变量 进程数据, 精易_进程信息列表<br /> .局部变量 hSnapshot, 整数型<br /> .局部变量 hProcess, 整数型<br /> .局部变量 j, 整数型<br /> <br /> hSnapshot ＝ CreateToolhelp32Snapshot (2, 0)<br /> .如果真 (hSnapshot ≠ -1)<br />     进程数据.dwSize ＝ 296<br />     j ＝ Process32First (hSnapshot, 进程数据)<br />     .判断循环首 (j ≠ 0)<br />         .如果真 (进程ID ＝ 进程数据.进程ID)<br />             hProcess ＝ OpenProcessA (2035711, 假, 进程数据.进程ID)<br />             加入成员 (进程句柄, hProcess)<br />         .如果真结束<br />         j ＝ Process32Next (hSnapshot, 进程数据)<br />     .判断循环尾 ()<br />     CloseHandle (hSnapshot)<br />     返回 (hProcess)<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 取句柄名称<br /> .参数 tHandle, 整数型<br /> .局部变量 unicode, 字节集<br /> .局部变量 ansi, STRING<br /> <br /> unicode ＝ 取空白字节集 (8192)<br /> .如果真 (ZwQueryObject (tHandle, 1, unicode, 8192, 0) ＝ 0)<br />     RtlUnicodeStringToAnsiString (ansi, unicode, 真)<br />     对象名 ＝ 指针到文本 (ansi.Buffer)<br />     RtlFreeAnsiString (ansi)<br /> .如果真结束

来自论坛内源码的修改，懒得贴出处了
就改了一个判断文本
能取NT版本的登陆QQ号，

果心豆腐酱

酷酷的百囚 发表于 2024-2-4 15:55
nt取不到呀失效了嘛

可以用啊
取已登录QQ_老版_新版—_TIM.e (396.42 KB, 下载次数: 34)

2024-2-4 18:18 上传

点击文件名下载附件

星空的物语

太强了了了了

星空的物语

666666666666666666

果心豆腐酱

766613563 发表于 2024-5-21 00:33
楼主 能否上传下源码

置顶楼层，不过似乎已经不能用过了，。

766613563

楼主 能否上传下源码

766613563

但是却闻到气味21の王

深藏功舆名ゐ

cookies能取吗

1355301564

太感谢啦，就是要的这个

微信的木头人

可以取出来阿

酷酷的百囚

果心豆腐酱 发表于 2024-2-4 18:18
可以用啊

大佬 我这个取不出来呀