[实用工具] 易语言遍历微信账号信息

[复制链接]
查看314 | 回复9 | 2019-10-26 11:32:20 | 显示全部楼层 |阅读模式

46456.jpg


易语言遍历微信账号信息

  
窗口程序集名保 留  保 留备 注
窗口程序集1   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
_按钮1_被单击 ()
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
path文本型  
loginloginInfo  
fileLast文本型  
fileDataWIN32_FIND_DATA  
fileHandle整数型  
fileArray文本型 0
lvIndex整数型  
path = 取文本注册项 (3, “Software\Tencent\WeChat\FileSavePath”, “MyDocument:”)
path = 选择 (path = “MyDocument:”, 取特定目录 (1), path + “\”)“WeChat Files\”
' 先获取最近一次登录的号
fileLast = 获取最近一次 (path + “All Users\config\config.data”)
' 遍历其他的号
fileHandle = FindFirstFileA (path + “*.*”, fileData)
循环判断首 ()
如果真 (到文本 (fileData.cFileName)“.” 到文本 (fileData.cFileName)“..” 到文本 (fileData.cFileName)“All Users”)
如果 (Decode (path + 到文本 (fileData.cFileName)“\config\AccInfo.dat”, login))
lvIndex = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (lvIndex, 0, 选择 (到小写 (path + 到文本 (fileData.cFileName)“\config\AccInfo.dat”)到小写 (fileLast), “最近”, 到文本 (超级列表框1.取表项数 ())))
超级列表框1.置标题 (lvIndex, 1, login.nick)
超级列表框1.置标题 (lvIndex, 2, login.alias)
超级列表框1.置标题 (lvIndex, 3, login.wxid)
超级列表框1.置标题 (lvIndex, 4, login.phone)
超级列表框1.置标题 (lvIndex, 5, login.headimg)
调试输出 (“获取失败:” + path + 到文本 (fileData.cFileName)“\config\AccInfo.dat”)


循环判断尾 (FindNextFileA (fileHandle, fileData))
FindClose (fileHandle)
子程序名返回值类型公开备 注
获取最近一次文本型 
参数名类 型参考可空数组备 注
filePath文本型   
变量名类 型静态数组备 注
fileBuffer字节集  
position整数型  
fileBuffer = 读入文件 (filePath)
如果真 (取字节集长度 (fileBuffer) > 8)
调试输出 (寻找字节集 (fileBuffer, 到字节集 (到文本 (4744)), ))
position = 寻找字节集 (fileBuffer, { 8, 50, 18 }, )
如果真 (position > 0)
返回 (到文本 (取字节集中间 (fileBuffer, position + 4, 取字节集数据 (取字节集中间 (fileBuffer, position + 3, 1), #字节型, ))))

返回 (“”)
子程序名返回值类型公开备 注
Decode逻辑型 
参数名类 型参考可空数组备 注
filePath文本型   
loginInfologinInfo 
变量名类 型静态数组备 注
fileBuffer字节集  
position整数型  
fileBuffer = 读入文件 (filePath)
如果真 (取字节集长度 (fileBuffer) > 8)
position = 寻找字节集 (fileBuffer, { 8, 4, 18 }, )
如果真 (position > 0)
loginInfo.wxid = 到文本 (取字节集中间 (fileBuffer, position + 4, 取字节集数据 (取字节集中间 (fileBuffer, position + 3, 1), #字节型, )))
position = 寻找字节集 (fileBuffer, { 8, 10, 18 }, )
如果真 (position > 0)
loginInfo.nick = 到文本 (编码转换 (取字节集中间 (fileBuffer, position + 4, 取字节集数据 (取字节集中间 (fileBuffer, position + 3, 1), #字节型, )), #编码_UTF_8, #编码_GB2312, ))
position = 寻找字节集 (fileBuffer, { 8, 16, 18 }, )
如果真 (position > 0)
' 不准确,容易串号
loginInfo.phone = 到文本 (取字节集中间 (fileBuffer, position + 4, 取字节集数据 (取字节集中间 (fileBuffer, position + 3, 1), #字节型, )))
position = 寻找字节集 (fileBuffer, { 8, 64, 18 }, )
如果真 (position > 0)
loginInfo.alias = 到文本 (取字节集中间 (fileBuffer, position + 4, 取字节集数据 (取字节集中间 (fileBuffer, position + 3, 1), #字节型, )))
position = 寻找字节集 (fileBuffer, { 8, 102, 18 }, )
如果真 (position > 0)
loginInfo.headimg = 到文本 (子字节集替换 (取字节集中间 (fileBuffer, position + 5, 取字节集数据 (取字节集中间 (fileBuffer, position + 3, 1), #字节型, )), { 47, 48 }, { 47, 49, 51, 50 }, , ))
返回 ()
返回 ()


i支持库列表   支持库注释   
shell操作系统界面功能支持库
iext扩展界面支持库一
spec特殊功能支持库
iconv编码转换支持库


  
DLL命令名返回值类型公开备 注
FindFirstFileA整数型 
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
FindFirstFileA
参数名类 型传址数组备 注
lpFileName文本型  
lpFindFileDataWIN32_FIND_DATA 
DLL命令名返回值类型公开备 注
FindNextFileA逻辑型 
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
FindNextFileA
参数名类 型传址数组备 注
hFindFile整数型  
lpFindFileDataWIN32_FIND_DATA 
DLL命令名返回值类型公开备 注
FindClose逻辑型 
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
FindClose
参数名类 型传址数组备 注
hFindFile整数型  



  
数据类型名公开备 注
WIN32_FIND_DATA 
成员名类 型传址数组备 注
dwFileAttributes整数型  
ftCreationTime长整数型  
ftLastAccessTime长整数型  
ftLastWriteTime长整数型  
nFileSizeHigh整数型  
nFileSizeLow整数型  
dwReserved0整数型  
dwReserved1整数型  
cFileName字节型 260
cAlternateFileName字节型 14
dwFileType整数型  
deCreatorType整数型  
wFinderFlags字节型  
数据类型名公开备 注
loginInfo 
成员名类 型传址数组备 注
headimg文本型 头像
nick文本型 昵称
alias文本型 微信号
wxid文本型 微信id
phone文本型 手机号




wxGetLoginInfo.rar (3.29 KB, 下载次数: 0)
回复

使用道具 举报

Estrus | 2019-11-5 12:07:18 | 显示全部楼层
听人数回帖是美德,顶
回复

使用道具 举报

SMASHBOX | 2019-11-7 02:05:36 | 显示全部楼层
路过,支持一下啦
回复

使用道具 举报

离心咒 | 2019-11-7 20:26:53 | 显示全部楼层
赞,谢谢分享。。。
回复

使用道具 举报

葬情者 | 2019-11-8 07:08:06 | 显示全部楼层
我是来刷分的,嘿嘿
回复

使用道具 举报

甄姬 | 2019-11-8 21:59:42 | 显示全部楼层
没事就回帖,也许会有人看上我了呢
回复

使用道具 举报

承诺、 | 2019-11-10 17:02:41 | 显示全部楼层
嘿嘿嘿,回帖拿金币
回复

使用道具 举报

Cutlove! | 2019-11-13 23:15:32 | 显示全部楼层
好,很好,非常好!!!
回复

使用道具 举报

温瞳 | 5 天前 | 显示全部楼层
人过留名。。。。。踩一踩
回复

使用道具 举报

6666666666666666谢谢了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则