传世内挂源码，支持老客户端1.9以前的，里面包含了源码，以及hoook.dll的源码，用了一个外部控件suipack。控件请自行百度，源码保证完整

制作收费工具的必须 .版本 2 .子程序 充vip .局部变量 到期时间, 文本型 .局部变量 卡xx, 文本型 .局部变量 ka1, 文本型, , "0" .局部变量 ka11, 整数型 .局部变量 月到期, 文本型 .判断开始 (编辑框7.内容 ＝ “”) 信息框 (“帐号不能为空”, 0, ) 按钮4.禁止 ＝ 假 .判断 (编辑框8.内容 ＝ “”) 信息框 (“充值卡号不能为空”, 0, ) 按钮4.禁止 ＝ 假 .判断 (编辑框9.内容 ＝ “”) 信息框 (“密码不能为空”, 0, ) 按钮4.禁止 ＝ 假 .默认

很有用的东西，特别对于新手非常有用，网上找不到的，西面是源码，看不懂的你只有下载了！ .版本 2 .支持库 EThread 清除数组 (目录数组) 清除数组 (文件数组) 按钮3.禁止 ＝ 真 启动线程 (&线程_进度显示, , 线程句柄) .子程序 线程_进度显示 .局部变量 计次, 整数型 .局部变量 dir, 文本型 .局部变量 计次一, 整数型 .局部变量 path, 文本型 .局部变量 swit, 逻辑型 .局部变量 num, 整数型 原路径 ＝ 取当前目录 () ＋ “\3” 目标路径 ＝ “c:\3” 子程序_核心搜索 (取当前目录 () ＋ “\3”) 进度条1.位置 ＝ 0 进度条1.最大位置 ＝ 取数组成员数 (目录数组) .计次循环首 (取数组成员数 (目录数组), 计次) dir ＝ 子文本替换 (目录数组 [计次], 原路径, 目标路径, , 1, 真) 创建目录 (dir) 进度条1.位置 ＝ 进度条1.位置 ＋ 1 .计次循环尾 () 标签3.标题 ＝ “更新中...” 进度条1.位置 ＝ 0 进度条1.最大位置 ＝ 取数组成员数 (文件数组) .计次循环首 (取数组成员数 (文件数组), 计次一) path ＝ 子文本替换 (文件数组 [计次一], 原路径, 目标路径, , 1, 真) swit ＝ CopyFileExA (文件数组 [计次一], path, &CopyProgressRoutine;, 0, 0, #COPY_FILE_RESTARTABLE) .如果真 (swit ＝ 假) num ＝ num ＋ 1 .如果真结束 进度条1.位置 ＝ 进度条1.位置 ＋ 1 .计次循环尾 () 标签3.标题 ＝ “报告老大已经全部更新... 失败:” ＋ 到文本 (num) ＋ “个” 按钮3.禁止 ＝ 假 .子程序 CopyProgressRoutine, 整数型 .参数 TotalFileSize, 双精度小数型 .参数 TotalBytesTransferred, 双精度小数型 .参数 StreamSize, 双精度小数型 .参数 StreamBytesTransferred, 双精度小数型 .参数 dwStreamNumber .参数 dwCallbackReason .参数 hSourceFile .参数 hDestinationFile .参数 lpData 进度条2.位置 ＝ 取整 (TotalBytesTransferred × 10000 ÷ (TotalFileSize × 10000) × 100) 返回 (#PROGRESS_CONTINUE) .子程序 子程序_核心搜索 .参数 目标目录, 文本型 .局部变量 文件名, 文本型 文件名 ＝ 寻找文件 (目标目录 ＋ “\*.*”, #子目录) .判断循环首 (文件名 ≠ “”) .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”) 加入成员 (目录数组, 目标目录 ＋ “\” ＋ 文件名) 子程序_核心搜索 (目标目录 ＋ “\” ＋ 文件名) .如果真结束 文件名 ＝ 寻找文件 (, #子目录) .判断循环尾 () 文件名 ＝ 寻找文件 (目标目录 ＋ “\*.*”, ) .判断循环首 (文件名 ≠ “”) 加入成员 (文件数组, 目标目录 ＋ “\” ＋ 文件名) 文件名 ＝ 寻找文件 (, ) .判断循环尾 () .子程序 __启动窗口_可否被关闭, 逻辑型 .如果真 (按钮3.禁止) .如果真 (信息框 (“正在复制文件中，是否强制关闭？”, 4 ＋ 48, ) ＝ 6) 返回 (假) .如果真结束 强制结束线程 (线程句柄)