最近想学习学习破解呀汇编什么的，发现吾爱论坛比较出色。于是就像更深入的来学习一下。 本人虽然做了不少作品，但是不便公布布在网络上，就暂且发个高仿pubwin网吧收费系统挂机锁的源码吧。
源码就不提供下载了，直接贴上来
截图：_启动窗口
窗口1
为了证明该作品是我原创，我特意放上我发布该软件的地址http://bbs.netbarghost.com/forum.php?mod=viewthread&tid=16767&highlight=%B9%D2%BB%FA%CB%F8
有图为证：
————————————————————分割线——————————————————————————
.版本 2
.支持库 OPenGL
.程序集 窗口程序集1
.子程序 _按钮1_被单击
模拟键盘 (#VK_LWIN, 0, 0, 0)
模拟键盘 (#D键, 0, 0, 0)
模拟键盘 (#VK_LWIN, 0, #KEYEVENTF_KEYUP, 0)
载入 (窗口1, , 真)
销毁 ()
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ 13)
_按钮1_被单击 ()
.如果真结束
.子程序 _按钮2_被单击
销毁 ()
.子程序 __启动窗口_将被销毁
结束绘图操作 ()
.版本 2
.支持库 iext
.程序集 窗口程序集2
.程序集变量 lpOldProc, 整数型
.程序集变量 hBlackBrush, 整数型
.程序集变量 OldEditProc
.程序集变量 钩子句柄, 整数型
.程序集变量 Edit
.程序集变量 限制范围, 限制范围
.子程序 _图形按钮1_被单击
.局部变量 键代码, 整数型
.局部变量 任务栏句柄, 整数型
.如果真 (_启动窗口.编辑框1.内容 ≠ 窗口1.编辑框1.内容)
.如果真 (窗口1.编辑框1.内容 ＝ “aod321”)
任务栏句柄 ＝ 查找窗口_ (“Shell_TrayWnd”, 字符 (0))
置窗口状态_ (任务栏句柄, 1)
结束 ()
.如果真结束
透明标签1.标题 ＝ “解除挂机失败，请检查口令或咨询” ＋ #换行符 ＋ “服务员！”
编辑框1.内容 ＝ “”
返回 ()
.如果真结束
销毁 ()
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ 13)
_图形按钮1_被单击 ()
返回 (假)
.如果真结束
.子程序 _窗口1_创建完毕
.局部变量 NULL, 整数型
.局部变量 任务栏句柄, 整数型
.局部变量 窗口大小, rect
.局部变量 空值, 整数型
.局部变量 窗口ID, 整数型
.局部变量 系统菜单句柄, 整数型
.局部变量 图片, 对象
.如果真 (钩子句柄 ＝ 0)
钩子句柄 ＝ SetWindowsHookEx (13, &钩子函数, GetModuleHandle (0), 0)
.如果真 (钩子句柄 ＝ 0)
输出调试文本 (“安装钩子失败！”)
返回 ()
.如果真结束
.如果真结束
_时钟1_周期事件 ()
屏蔽win键 ()
屏蔽任务管理器 ()
任务栏句柄 ＝ 查找窗口_ (“Shell_TrayWnd”, 字符 (0))
置窗口状态_ (任务栏句柄, 0)
lpOldProc ＝ GetWindowLong (取窗口句柄 (), #GWL_WNDPROC)
SetWindowLong (取窗口句柄 (), #GWL_WNDPROC, 到数值 (&WndProc))
Edit ＝ 编辑框1.取窗口句柄 ()
图片.创建图片对象 (图片框1.图片)
hBlackBrush ＝ CreatePatternBrush (图片.读数值属性 (“handle”, ))
SetWindowLong (取窗口句柄 (), #GWL_WNDPROC, 到数值 (&WndProc))
.子程序 WndProc, 整数型
.参数 hwnd, 整数型
.参数 umsg, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型
.如果真 (umsg ＝ #WM_CTLCOLOREDIT)
SetBkMode (wparam, #TRANSPARENT)
返回 (hBlackBrush)
.如果真结束
返回 (CallWindowProcA (lpOldProc, hwnd, umsg, wparam, lparam))
.子程序 _窗口1_可否被关闭, 逻辑型
返回 (假)
.子程序 _编辑框1_内容被改变
编辑框1.重画 ()
.子程序 钩子函数, 整数型
.参数 icode, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型
.局部变量 按键信息, 按键信息
CopyMemory (按键信息, lparam, 28)
.如果真 (icode ＝ 0)
.如果 (按键信息.message ＝ #Alt键)
返回 (1)
.否则
.如果结束
.如果 (按键信息.message ＝ #Tab键)
返回 (1)
.否则
.如果结束
.如果 (按键信息.message ＝ #Esc键)
返回 (1)
.否则
.如果结束
.如果真结束
返回 (CallNextHookEx (钩子句柄, icode, wparam, lparam))
.子程序 _窗口1_将被销毁
.局部变量 任务栏句柄, 整数型
任务栏句柄 ＝ 查找窗口_ (“Shell_TrayWnd”, 字符 (0))
置窗口状态_ (任务栏句柄, 1)
.子程序 _窗口1_被激活
编辑框1.激活 ()
.子程序 _时钟1_周期事件
_按钮1_被单击 ()
.子程序 _按钮1_被单击
.局部变量 窗口大小, rect
.局部变量 空值, 整数型
.局部变量 窗口ID, 整数型
窗口ID ＝ 窗口1.取窗口句柄 ()
取窗口大小 (窗口ID, 窗口大小)
窗口大小.Top ＝ 窗口大小.Top ＋ 3
限制移动 (窗口大小)
——————————————————————分割线————————————————————
我非常希望加入论坛，很大家一起讨论学习，还望版主审核通过，谢谢。
|
[复制链接]
吾爱游客
发表于 2011-7-2 20:28
