吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
查看: 42|回复: 0

易语言制作QQ聊天记录察看器源码下载

[复制链接]

1598

主题

1717

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
17845
金币
8056
发表于 5 天前 | 显示全部楼层 |阅读模式
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

提取密码:5ifx88 
下载次数:0  文件大小:0 Bytes 
下载权限: 不限 以上或 VIP会员   [购买VIP]   [充值金币]  [免费赚金币]



部分代码如下
  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
目录文本型  
内容字节集  
位置整数型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
目录 = 取文本注册项 (4, “SOFTWARE\TENCENT\QQ\Install”, )
如果 (目录 = “”)
信息框 (“查询不到QQ的安装位置,请指定QQ执行文件的路径。”, 0, “QQ2006聊天记录察看器:”)
如果 (通用对话框1.打开 ())
目录 = 取文本左边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) - 6)
复制文件 (通用对话框1.文件名, 目录 + “qqnew.exe”)
结束 ()

如果 (文件是否存在 (目录 + “QQ.exe”))
复制文件 (目录 + “QQ.exe”, 目录 + “qqnew.exe”)
信息框 (“查询不到QQ的安装位置,请指定QQ执行文件的路径。”, 0, “QQ2006聊天记录察看器:”)
通用对话框1.初始目录 = 目录
如果 (通用对话框1.打开 ())
目录 = 取文本左边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) - 6)
复制文件 (通用对话框1.文件名, 目录 + “qqnew.exe”)
结束 ()


内容 = 读入文件 (目录 + “qqnew.exe”)
位置 = 寻找字节集 (内容, { 15, 132, 157, 0, 0, 0 })
如果 (位置 ≠ 0)
内容 = 字节集替换 (内容, 位置, 6, { 233, 158, 0, 0, 0, 144 })
写到文件 (目录 + “qqnew.exe”, 内容)
内容 = {  }
运行 (目录 + “qqnew.exe”, 真, )
信息框 (“对不起,经检测,您的QQ不支持无密码登录。”, 0, “QQ2006聊天记录察看器:”)
删除文件 (目录 + “qqnew.exe”)
结束 ()





上一篇:易语言QQ拼音输入法接口源码下载
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2020-11-24 11:47 , Processed in 0.552326 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表