[第二季]编程区作业016：获取当前登陆的QQ号

淡然出尘 · 发表于 2013-1-12 12:45

本帖最后由淡然出尘于 2014-5-2 11:28 编辑

==========本帖相关==========
『{完结}编程区作业第一季【作业1-13】』

本贴回复规定：
1、回复作业时，请按照规定的格式；
2、作业有关的程序和源码禁止有恶意的成分；违者+1违规，-10CB；
3、原则上可以重复回复更新后的作业，但是加分可能会减少；

回复格式：
作业名称：【建议：吾爱编程+作业编号+自定义名称】
作业截图：
编写语言：
作业附件：【建议：成品[便于测试]+源代码[共享学习]】
编后语：【建议：原理分析+编写感言】

加分标准：
1、能够实现基本的要求；+12CB，+1热心；
2、界面新颖，运行流畅；+15CB，+1热心；
3、原理分析清楚，有引导意义；回复置顶鼓励；
4、对于持续关注本帖，并连续回复作业者，+1威望；

本季次作业特色：
1、作业内容一般会每两周更换一次，望大家监督；
2、优秀作业的回复都会置顶于本帖的首页，以此鼓励；
3、作业内容会尽量选择一些网上没有的小东西，避免审视疲惫；
4、如果对本季次作业特别是作业内容有什么好的建议话，请联系我哈O(∩_∩)O~

分割线

作业内容
{过期}NO.001:二十四点游戏计算工具
要求：
1、随机四个0-9大小范围的数字，随便变换顺序和加运算规则使结果为24；
2、允许网页获取，但是请选择稳定的服务器；加分会相对较少；
3、希望写出自己的算法；
个人推荐的界面：
无标题.png

{过期}NO.002:身份证信息本地查询
要求：
1、使数据库本地化，实现本地查询；附件：

数据库.txt (102.34 KB, 下载次数: 206)
2、能够得到出生地和生日即可；
个人推荐界面：

推荐

{过期}NO.003:exe文件的传宗接代
要求：
1、利用自己写的程序能够再次生成一个标准的exe文件；
2、运行再次生成的exe文件能够调用系统的一个组件，如记事本、注册表等；
{过期}NO.004:一般文件格式判定工具
要求：
1、能够准确判定无后缀文件的格式是否为Txt、Ini、Reg、Jpg、Bmp、Gif、Exe等，最少为5种；类型越多且精彩者威望+1；
2、判定文件格式后，将文件用默认程序打开；
3、在回复时，请在编后语中列出支持检测的格式类型；
{过期}NO.005:Dz论坛圈猫游戏程序化
要求：
参考地址：http://www.52pojie.cn/Lucky
1、能够使Dz论坛的圈猫游戏的Flash本地窗口化，且可正常运行；+12CB & 1热心；
2、如果能够做出圈猫辅助，甚至一键圈猫；+15CB & 1热心 & 1威望；
{过期}NO.006:鼠标幽灵之若隐若现
要求：
1、当鼠标停在程序界面上特定时间段后，就会自动消失；
2、当鼠标被使用时，它又会在消失的位置显现而被控制；
同时为了鼓励和支持新会员的回复只要是昨天注册的新会员达到作业的要求一律CB+15
{过期}NO.007:桌面爬虫
要求：
1、有一定的图案能够悬显在屏幕上；
2、能够按照某种规律在屏幕上运动；
{过期} NO.008:示爱小程序
要求：
1、投你所爱的人所好，如喜欢的花、颜色等；
2、能够达到很好的触动感觉；
{过期} NO:009：二维码识别及制作（支持添加LOGO）工具
         要求：1、正确识别二维码的内容；
                  2、根据文字内容正确生成二维码，并且支持中心位置自定义添加LOGO；
                  3、界面简洁，功能齐全;
{过期}NO:010:网页超文本获取工具
要求:
1、能够将一个网页中所有的超文本及其相相对应的链接以List的形式显示出来；
2、注意软件界面的美观简洁；
3、同时将软件和源码上传；

{过期} NO:011:内嵌文本文件
要求:
1、拖动Txt文件到程序的图标上能够将其内嵌到程序中；
2、双击图标就是以Windows自带的记事本打开内嵌的Txt内容；退出记事本，即是退出程序；
3、拖动不同的Txt文件即替换原来的Txt文件；程序本身可以没有界面；

{过期}NO：012：[4399小游戏]多种可爱表情连连看外挂
前言：看到很多人都热衷于研究连连看的外挂确实能对抓图、鼠标点击有良好的练习效果今天我们就来共同研究一个
      4399小游戏网页中的一个外挂
要求：网页：http://www.4399.com/flash/60829_4.htm 着重第一种模式：鬼脸表情连连看其他模式亦可；
      1、第一种模式能够实现一键清屏；+8CB
      2、共享源代码；+5CB&+1热心
      3、添加吾爱标识；+2CB
提示：可以先列出所有的图片，然后进行抓图对照；
{过期}NO：013：尺寸校验工具
要求：
      1、程序界面：四条直线组成的封闭方框,中间可以为透明窗体；在任务栏能够设置“置顶”和“退出”程序；
      2、方框能够自由拖动在屏幕上的位置；
      3、方框能够自由调整长度和宽度并标识出px或者cm等尺寸的属性；
提示：可以新人发帖会酌情加高分奖励但是请仔细按照规定的格式回帖  谢谢合作 O(∩_∩)O！！
{过期}NO：014 快速录入辅助工具
要求：
1、程序界面：可以是置顶的表格形式或者有热键快速调用；表格的每一行设置成
                  录入是常用的文本短语；
2、当需要录入表格中的某行短语时，点击即会自动复制到鼠标光标的位置；
{过期} NO：015 【模仿】鼠标箭头跟随炫酷
要求：
1、程序界面：需模仿的程序：

海绵宝宝.rar (2.45 MB, 下载次数: 263)
2、进一步要求：换一批图片将所有图片压缩成一个不可识别的文件，在主程序运行时再释放出来

NO：016 获取当前登陆的QQ号
要求：
1、能够准确获取当前登陆的QQ号码
2、不能对QQ的运行造成影响，也不能让QQ有什么提示；
3、方法可以使TX网页检测的时候截取，也可是Dll注入；

本次更新：2014/05/02
下次更新：2014/05/15 左右
敬请期待！

8362832 · 发表于 2013-1-15 15:24

本帖最后由淡然出尘于 2013-1-16 13:15 编辑

作业名称：非24点计算器
作业截图：

编写语言：E
作业附件：

非24点计算器.zip (469.94 KB, 下载次数: 1393)
编后语：不好意思，忘记插入附件了

小歆 · 发表于 2013-1-29 11:12

本帖最后由小歆于 2013-1-29 13:10 编辑

作业名称： 吾爱编程+NO.002+身份证信息本地查询
作业截图：

身份证信息本地查询.jpg

编写语言： VB6.0
作业附件：

【成品】身份证信息本地查询.rar (5.34 KB, 下载次数: 20)

【源码】身份证信息本地查询.rar (32.09 KB, 下载次数: 68)
编后语：
第一次写这种读入一百多K数据的软件，原本以为写出来能很卡，不过写出来感觉还可以；另外加了个年龄和性别查询的功能“身份证号第17位奇数的是男生”；还有就是加了写输入框的限制功能，“限制输入18位数字”...

bug214136 · 发表于 2013-2-12 21:30

本帖最后由 bug214136 于 2013-2-14 22:51 编辑

作业名称：编程区作业NO.003：exe文件的传宗接代
作业截图：

编写语言：易语言+黑月
作业附件：

003作业.7z (98.35 KB, 下载次数: 25)
编后语：好久没来写作业了，用黑月写挺好的，通过修改自身代码实现

bug214136 · 发表于 2013-3-2 00:54

本帖最后由 bug214136 于 2013-3-2 00:55 编辑

作业名称：吾爱编程NO.004这个肯定是最好的了
作业截图：文件类型识别.jpg

编写语言：易语言+黑月
作业附件：

文件类型识别.7z (632.45 KB, 下载次数: 41)
编后语：这次来晚了还是易语言+黑月学生党表示挤了一个星期的时间才完成
两个识别引擎一个简单数据库管理识别类型4000+ 还有各种细节

损疾 · 发表于 2013-3-9 22:41

本帖最后由损疾于 2013-3-10 20:30 编辑

作业名称：

编程区作业NO.005：Dz论坛圈猫游戏程序化

作业截图：

编写语言：

EXE=E语言
SWF=FLASH CS5 + AS2

作业附件：

cat.rar (566.35 KB, 下载次数: 96)

编后语：

一个小游戏，还费了不少劲，给flash做辅助还是第一次，直接用自己的swf文件加载目标swf，目标swf文件里面的数据、函数什么的都可以直接访问了。再反编译一下SWF文件，基本上就那么回事了。
这个游戏如果让它以本身的游戏逻辑运行的话，是不可能每次都100%成功抓住猫的，一键就没办法了，除非去改游戏的逻辑。

格子上面的数字是表示猫走到这里需要几步，游戏的逻辑是猫会向当前最少步数的格子走，如果有多个这种格子，那么就随机选择一个格子。

killerwy · 发表于 2013-3-16 23:10

作业名称：编程区作业NO.006:鼠标幽灵之若隐若现
作业截图：

编写语言： C#
作业附件：

homework006.rar (4.54 KB, 下载次数: 9)
编后语：不知道说什么好囧rz

8362832 · 发表于 2013-3-28 09:40

本帖最后由 8362832 于 2013-3-28 09:44 编辑

作业名称：【编程区作业NO.007:桌面爬虫】
作业截图：

编写语言：E语言
作业附件：

桌面爬虫.zip (366.39 KB, 下载次数: 38)
编后语：利用时钟来实现有规则移动，遇到屏幕边缘后自动反弹回来，用几个API来实现窗口的透明功能，还是比较简单的。

2314902431 · 发表于 2013-4-27 11:48

本帖最后由 2314902431 于 2013-4-27 15:28 编辑

作业名称:表白(随意起的,哈哈)
作业截图:

编程语言:易语言
总结:程序写的比较乱,而且有些地方不太完善.各位可以拿来参考重新写一个比我更好的哦!
百度网盘:http://pan.baidu.com/share/link?shareid=373681&uk=3206944082 (里面带了一首歌,裁剪过了还是超过5MB了.就先用网盘吧!)
百度网盘:http://pan.baidu.com/share/link?shareid=373979&uk=3206944082 成品,360没有报毒,不知道为什么!

2彩 · 发表于 2013-6-11 16:15

好吧修复了一下，可保存二维码图片图片保存在目录下文件名为"二维码.bmp"

52pojie恒大 · 发表于 2013-7-13 15:48

作业名称：编程区作业010:网页超文本获取工具
作业截图： QQ截图20130713154610.png

编写语言：易语言
作业附件：

枚举链接【源码 exe】.rar (635.44 KB, 下载次数: 24)
编后语：【建议：原理分析+编写感言】
如果利用模块可以的话，这应该也是没问题的

yyy54321 · 发表于 2013-8-27 04:46

提示: 作者被禁止或删除内容自动屏蔽

czr27 · 发表于 2013-10-31 01:02

作业12
编程语言：VE
作品截图：无标题.png

作业附件：

zp12.part1.rar (1.8 MB, 下载次数: 22)

zp12.part2.rar (1.33 MB, 下载次数: 23)
编后语：深夜调程序花了很久想好的方案，并没有抓点编写外挂，这样乐趣没了（因为早有了也比较繁琐）。史无前例的动态调试swf的脚本，内存注入爆破语句，一开始手动玩然后可以点击任意达到消除。

想出来很多方案其中包括逆向工程但逆回去没有成功的正向编译
反编译的贴下点击后消除与否的判断函数
private function findShortRoad(param1:uint, param2:uint, param3:uint, param4:uint) : Boolean
      {
         if (this.mapArray[param2][param1] != this.mapArray[param4][param3]) 如果不是一个图案
         {
            return false; 错误
         }// end if
         if (param1 == param3 && param2 == param4)如果不是点击两下自己
         {
            return false;
         }// end if
         var _loc_5:uint;
         var _loc_6:Boolean;
         if (param1 == param3)
         {
            if (this.lineCheck(param1, param2, param3, param4))接着就是各种连线尝试了省略了
            {
                  this.addRoadPoint(param1, param2, param1, param2, param1, param2, param3, param4); 加分
                  return true;
            }// end if

.....

lzfqq0 · 发表于 2013-11-22 14:37

作业名称：【吾爱编程NO：013：尺寸校验工具】
作业截图：
QQ截图20131122142943.png

编写语言： E
作业附件：【成品[便于测试]+源代码[共享学习]】
请点击：

尺寸校验工具源码.rar (242.56 KB, 下载次数: 25)
编后语：【原理分析+编写感言】
觉得本次作业使用易语言比较方便，介于WIN7和XP差异，故在Z轴置顶方面添加了时钟（其实单纯XP下无需使用）。
嘿嘿，我是新人第一次交作业~ 若有意见，希望各位大白菜定要指出！

mjboh · 发表于 2014-2-21 20:40

作业名称：吾爱编程014 HJL之快速录入辅助工具
作业截图： QQ截图20140221195248.jpg

编写语言：e
作业附件：

练习-快速录入辅助工具.rar (583.59 KB, 下载次数: 64)
编后语：这次的作业的难点在如何把剪切板里的内容复制到程序以外的地方。
方法：鼠标在本程序窗口外，并且鼠标左键单击的时候，保存光标所在的窗口句柄，最后把剪切板的内容复制到光标的位置。

苏紫方璇 · 发表于 2014-3-25 21:13

本帖最后由苏紫方璇于 2014-3-25 21:22 编辑

作业名称：【编程区作业015：【模仿】鼠标箭头跟随炫酷】
作业截图：图片不大好截
编写语言：Visual Basic 6
作业附件：

吾爱作业15.rar (1.06 MB, 下载次数: 25)
编后语：没有严格按照要求去做，原因不想找新图片，直接选了几张老图。由于vb对gif支持不好，选用的第三方的库。貌似释放读取会在运行时有短时间的卡顿（视配置快慢），这个放到另外一个线程可能会好一点，主线程用来先显示着。。。vb对多线程支持也不好。。。。c的mfc窗口又不大熟。。。。纠结

闲时盗耳 · 发表于 2014-4-12 12:55

作业名称：吾爱编程15【模仿】鼠标箭头跟随炫酷
作业截图：

编写语言：易语言
作业附件：DH那个图片文件夹太大了没办法上传，放在一块就能执行，源码也打包了

home.zip (308.46 KB, 下载次数: 18)
编后语：第一次交作业，由于易语言没有窗口透明的方法，所以查询了API，找到了一个SetLayeredWindowAttributes的API，根据百科上的一些资料，成功实现透明。

RinCherish · 发表于 2014-4-19 20:49

我想知道C++的人是不是都不愿意做啊还是不会做啊！都没看到的呢？

yq60523 · 发表于 2014-4-13 13:54

能给出答案吗?希望能给一些还不精通的同学，参考答案。

Night_Stalker · 发表于 2014-8-2 00:17

本帖最后由 Night_Stalker 于 2014-8-2 00:24 编辑

作业名称： 吾爱编程+NO.016+GetQQNumber
作业截图：

编写语言：Visual Stdio 2010 (MFC)
作业附件：

GetQQNumber(实例).7z (60.83 KB, 下载次数: 15)

GetQQNumber(源码).7z (124.8 KB, 下载次数: 42)
编后语：
枚举窗口查找qqexchangewnd_shortcut_prefix_XXXXX窗口，然后分割字符串获得QQ号。表示好多都用的E，我来份MFC的

苏紫方璇 · 发表于 2014-5-23 20:26

作业名称：【编程区作业NO：016 获取当前登陆的QQ号】
作业截图 QQ截图20140523200130.png

编写语言：Visual C++ 6
作业附件：

获取qq号码.rar (19.13 KB, 下载次数: 47)
编后语：以前就弄过这方面的东西，我印象中这份代码应该不完全是自己写的，这个程序使用内存搜索，在内存中搜索uin_cookie就可以找到qq号码了，下边这个图是在CE里面查找的，在CE中查找已登录的qq号码，很容易就找到这个地方 QQ截图20140523200304.png

TsungKang · 发表于 2014-6-6 08:28

C#不便于操作内存或者一些非托管内容，只好从网页获取这块来入手，基本上跟上面几位朋友的网页获取流程差不多，我就不发源代码献丑了。

刚开始用WebClient跟WebBrowser，都没有办法获取到，可能是跟IE没有载入控件有一定的关系，后来去IE加载了相关控件，还是没有获取到，直接运行IE访问依然提示“快速登录失败，请您返回重试或切换到普通登录模式。”，所以干脆直接改成调用WebKit内核，然后把腾讯的npSSOAxCtrlForPTLogin.dll一起打包，随WebKit一同载入，最终获取到。

无极超哥 · 发表于 2014-6-6 17:29

不错啊！！

Prc · 发表于 2013-11-14 14:39

本帖最后由 Prc 于 2013-11-14 14:57 编辑

作业名称：吾爱编程第二季013尺寸校验工具【建议：吾爱编程+作业编号+自定义名称】
作业截图：(因为设置了70%的透明度，所以使用了一个偏淡蓝的颜色。)

编写语言： C# VS2008 .NET2.0
作业附件：
成品：

Prc.Work13成品.rar (7.22 KB, 下载次数: 7) 源代码：

Prc.Work13源码.rar (11.98 KB, 下载次数: 9)
编后语：
功能细节好多啊，都是百度网上搜的。比如随鼠标移动、随鼠标移动改变大小，以前知道肯定有代码支持，但是没接触过，现在接触了，百度上现找的代码。还有MD5加密的，一开始我用ReadToEnd读取到字符串中，但是加载文件的时候直接报内存溢出错误了，又是百度搜的代码。这次的代码有好办法能记在脑袋中不，下次就不用百度了- -！

Demo · 发表于 2014-2-18 00:45

作业名称：吾爱编程+014+快速录入辅助工具

作业截图：

编程语言：Visual Basic 6.0
作业附件：

刷帖狂魔 β1.zip (84.3 KB, 下载次数: 6)
程序+源码
编后语：最近贴吧水经验写的，刷帖辅助

按下Alt+Z，自动发送一行文字

@淡然出尘

小明无敌 · 发表于 2013-1-12 13:48

本帖最后由淡然出尘于 2013-1-12 17:45 编辑

1、作业名称：吾爱编程+001+24点
2、作业截图： 17DFA)BS[%H`{E`RLD7S(0Y.jpg

3、作业附件：

24.zip (800.39 KB, 下载次数: 146) 【易语言】
4、编后语：几个计次，几个循环，几个判断

a1002758393 · 发表于 2013-1-12 16:31

1、作业名称：吾爱编程 24点

2、作业截图： QQ截图20130112160934.png

3、作业附件：

24点.rar (685.82 KB, 下载次数: 23) 源码：

源码.rar (127.33 KB, 下载次数: 134)

4.编后语：最近在学MFC练下手

a070458 · 发表于 2013-1-14 15:05

1.作业名称：吾爱编程 24点
2.作业截图： QQ截图20130114150228.png

3.作业附件：

24点游戏计算工具.rar (245.27 KB, 下载次数: 29)
4.编后语：我除了穷举想不出其他方法了。。。。。{:1_931:}以后继续来交作业

似风而逝 · 发表于 2013-1-16 04:49

本帖最后由淡然出尘于 2013-1-16 13:27 编辑

作业名称：24点
作业截图：

编写语言： C#编写
作业附件：

24点.7z (806.82 KB, 下载次数: 18)
编后语：

yslookne · 发表于 2013-1-17 10:29

作业名称：吾爱编程+001+24点
作业截图：捕获.JPG

编写语言：易语言
作业附件：成品

24点.rar (249.45 KB, 下载次数: 4) +源代码

计算24点.rar (3.16 KB, 下载次数: 53)
编后语：把所有的组合都试过..

Demo · 发表于 2013-1-17 18:11

本帖最后由淡然出尘于 2013-1-17 22:56 编辑

作业名称：吾爱编程+001+24点

作业截图：

编程语言：Visual Basic 6.0
作业附件：

24点.zip (9.71 KB, 下载次数: 19)
程序+源码
编后语：技术有限，只能求一个，有兴趣的，慢慢算穷举

19nuclear91 · 发表于 2013-1-24 14:46

作业名称：吾爱编程_001_24Points
作业截图： QQ截图20130124144540.png

编写语言： C#
作业附件：

52_24Points.rar (5.59 KB, 下载次数: 19)
编后语：我只负责搬运

Demo · 发表于 2013-1-24 17:41

本帖最后由 Demo 于 2014-8-20 12:44 编辑

作业名称：吾爱编程+002+身份证归属地查询
作业截图：

编写语言： Visual Basic 6.0
作业附件：

身份证号码查询.zip (63.98 KB, 下载次数: 39) （成品+源代码）

编后语：碉堡了，两个多小时。2B的VB不支持整个数据库复制进去

更新代码：

[Visual Basic] 纯文本查看 复制代码

'Demo
'吾爱破解
'转载请保持完整出处
'http://www.52pojie.cn/space-uid-153321.html
Function HttpGet(url)

    With CreateObject("Msxml2.ServerXMLHTTP")
        .open "GET", url, False
        .send
        HttpGet = .responseText
    End With

End Function

Private Sub Command1_Click()
    ID = ""
    All = HttpGet("http://wap.ip138.com/id_search.asp?userid=" & ID)
    a = Split(All, "<br/>性 别：")
    a = a(1)
    a = Split(a, "<br/>")
    a = a(0)
    MsgBox a
    
    b = Split(All, "出生日：")
    b = b(1)
    b = Split(b, "<br/>")
    b = b(0)
    MsgBox b
    
    c = Split(All, "发证地： ")
    c = c(1)
    c = Split(c, "<br/>")
    c = c(0)
    MsgBox c
    
End Sub

帐号		自动登录	找回密码
密码			注册[Register]

yyy54321 yyy54321 当前离线好友阅读权限 0 听众最后登录 1970-1-1 头像被屏蔽	yyy54321 发表于 2013-8-27 04:46 提示: 作者被禁止或删除内容自动屏蔽

	回复支持举报

[其他原创] [第二季]编程区作业016：获取当前登陆的QQ号

点评

免费评分

本帖被以下淘专辑推荐:

点评

免费评分

免费评分

点评

免费评分

点评

免费评分

点评

免费评分

点评

免费评分

免费评分

点评

免费评分

免费评分

免费评分

点评

免费评分

免费评分

点评

免费评分

免费评分

免费评分

点评

免费评分

免费评分

点评

免费评分

点评

免费评分

点评

免费评分

点评

免费评分

免费评分

点评

免费评分

免费评分

点评

免费评分