QQ快闪2010版本，开源！

小磊 · 发表于 2010-3-2 15:16:53

所谓快闪就是指QQ频繁上下线，你的好友那边就会听到那种敲门的声音

.版本 2

.程序集窗口程序集1
.程序集变量主面板, 整数型

.子程序 __启动窗口_创建完毕

主面板＝ FindWindowA (“TXGuiFoundation”, “QQ2010”)
ShowWindow (主面板, 1)
窗口移动 (主面板, , , 250, 600)
时钟1.时钟周期＝ 300

.子程序 _时钟1_周期事件

ShowWindow (主面板, 1)
鼠标消息 (主面板, 72, 42)
系统_延时 (50)
鼠标消息 (FindWindowA (“TXGuiFoundation”, “TXMenuWindow”), 70, 132)
系统_延时 (50)
鼠标消息 (主面板, 72, 42)
系统_延时 (50)
鼠标消息 (FindWindowA (“TXGuiFoundation”, “TXMenuWindow”), 70, 12)

API自己去声明，我就不写了，“系统_延时 ()”用了精易的模块

那些看完就走的，都不是好人

jsq2627 · 发表于 2010-3-2 16:07:57

沙发

很恶搞的东西。。

jsq2627 · 发表于 2010-3-2 16:16:02

鼠标消息、窗口移动
这是什么模块？

小磊 · 发表于 2010-3-2 16:44:54

回复 3# jsq2627

.版本 2

.子程序鼠标消息
.参数窗口句柄, 整数型
.参数水平坐标, 整数型
.参数垂直坐标, 整数型
.局部变量消息2, 整数型

消息2 ＝水平坐标＋垂直坐标 × 65536
PostMessageA (窗口句柄, 512, 2, 消息2)
PostMessageA (窗口句柄, 513, 1, 消息2)
PostMessageA (窗口句柄, 514, 0, 消息2)

.子程序窗口移动
.参数临时句柄, 整数型
.参数窗口新左边, 整数型, 可空
.参数窗口新顶边, 整数型, 可空
.参数窗口新宽度, 整数型, 可空
.参数窗口新高度, 整数型, 可空
.局部变量位置大小, 矩形坐标

GetWindowRect (临时句柄, 位置大小)
.如果真 (是否为空 (窗口新左边))
窗口新左边＝位置大小.矩形左边
.如果真结束
.如果真 (是否为空 (窗口新顶边))
窗口新顶边＝位置大小.矩形顶边
.如果真结束
.如果真 (是否为空 (窗口新宽度))
窗口新宽度＝位置大小.矩形右边－位置大小.矩形左边
.如果真结束
.如果真 (是否为空 (窗口新高度))
窗口新高度＝位置大小.矩形底边－位置大小.矩形顶边
.如果真结束
MoveWindow (临时句柄, 窗口新左边, 窗口新顶边, 窗口新宽度, 窗口新高度, 1)

jsq2627 · 发表于 2010-3-2 17:05:40

回复 4# 梁小磊
谢谢。

dingzhifeng · 发表于 2010-3-3 15:40:42

回复 4# 梁小磊
谢谢。

610787243 · 发表于 2010-3-4 09:12:52

磊哥

你

真无敌啊

蜗牛 · 发表于 2010-3-4 11:30:07

沙发

很恶搞的东西。。

milse100 · 发表于 2010-3-4 11:53:40

回复学习!!!!!!!!

yageeart · 发表于 2010-3-17 12:48:48

我也觉得是恶搞，没什么意思啊

		自动登录	找回密码
密码			注册

[易源码分享] QQ快闪2010版本，开源！