文件名称：茶苑双扣记牌
文件大小：360KB
文件格式：ZIP
更新时间：2016-03-19 15:33:13
茶苑双扣记牌
.版本 2 .支持库 EThread .程序集 窗口程序集1 .程序集变量 飞记录小窗口状态, 逻辑型 .程序集变量 dm, 大漠插件 .程序集变量 飞句柄, 整数型 .程序集变量 飞切换标志, 整数型 .程序集变量 飞线程ID, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 飞防重复, 文本型 .局部变量 飞标题, 文本型 飞切换标志 ＝ 0 飞记录小窗口状态 ＝ 假 飞标题 ＝ “初学计牌” 飞防重复 ＝ dm.方法_EnumWindow (0, 飞标题, “”, 1) 标题 ＝ 飞标题 .如果真 (飞防重复 ≠ “”) 信息框 (“已经开启，无需重复”, 0, ) 结束 () .如果真结束 载入 (窗口1, _启动窗口, 假) 飞初始化基址偏移 () ' 时钟1.时钟周期 ＝ 1000 启动线程 (&飞线程一, , 飞线程ID) .子程序 __启动窗口_位置被改变 .如果真 (_启动窗口.位置 ＝ 2) ' 最小化 _启动窗口.位置 ＝ 0 _启动窗口.可视 ＝ 假 飞记录小窗口状态 ＝ 窗口1.可视 窗口1.可视 ＝ 假 置托盘图标 (#图标1, “记牌器”) .如果真结束 .如果真 (_启动窗口.位置 ＝ 3) ' 最大化 _启动窗口.位置 ＝ 0 .如果 (_启动窗口.高度 ＞ 40) _启动窗口.高度 ＝ 20 .否则 _启动窗口.高度 ＝ 309 .如果结束 .如果真结束 .子程序 __启动窗口_托盘事件 .参数 操作类型, 整数型 .如果真 (操作类型 ＝ #双击) 置托盘图标 (, ) 窗口1.位置 ＝ 0 .如果真 (飞记录小窗口状态 ＝ 真) 窗口1.可视 ＝ 飞记录小窗口状态 .如果真结束 _启动窗口.位置 ＝ 0 _启动窗口.高度 ＝ 309 _启动窗口.可视 ＝ 真 .如果真结束 .子程序 _按钮1_被单击 .如果 (窗口1.可视 ＝ 真) 按钮1.图片 ＝ #图片2 窗口1.可视 ＝ 假 .否则 按钮1.图片 ＝ #图片1 窗口1.可视 ＝ 真 .如果结束 飞记录小窗口状态 ＝ 窗口1.可视 .子程序 _时钟1_周期事件 .局部变量 hwnd1, 整数型 .局部变量 hwnd2, 整数型 飞句柄 ＝ 飞取窗口句柄 () hwnd1 ＝ dm.方法_GetWindow (dm.方法_GetPointWindow (300, 300), 0) hwnd2 ＝ dm.方法_GetWindow (dm.方法_GetPointWindow (300, 300), 0) .如果 (飞句柄 ＞ 0 且 飞句柄 ＝ hwnd1 或 飞句柄 ＝ hwnd2) .如果真 (飞切换标志 ＝ 0) __启动窗口_托盘事件 (#双击) 飞切换标志 ＝ 1 ' 表示恢复 .如果真结束 .如果真 (飞切换标志 ＝ 1) 飞读取分张数 () 飞显示余牌 () .如果真结束 .否则 .如果真 (飞切换标志 ＝ 1) _启动窗口.位置 ＝ 2 飞切换标志 ＝ 0 ' 程序最小化 .如果真结束 .如果结束 .子程序 飞线程一 .局部变量 hwnd1, 整数型 .局部变量 hwnd2, 整数型 .判断循环首 (真) 飞句柄 ＝ 飞取窗口句柄 () hwnd1 ＝ dm.方法_GetWindow (dm.方法_GetPointWindow (300, 300), 0) hwnd2 ＝ dm.方法_GetWindow (dm.方法_GetPointWindow (300, 300), 0) .如果 (飞句柄 ＞ 0 且 飞句柄 ＝ hwnd1 或 飞句柄 ＝ hwnd2) .如果真 (飞切换标志 ＝ 0) __启动窗口_托盘事件 (#双击) 飞切换标志 ＝ 1 ' 表示恢复 .如果真结束 .如果真 (飞切换标志 ＝ 1) 飞读取分张数 () 飞显示余牌 () .如果真结束 .否则 .如果真 (飞切换标志 ＝ 1) _启动窗口.位置 ＝ 2 飞切换标志 ＝ 0 ' 程序最小化 .如果真结束 .如果结束 延时 (600) .判断循环尾 () .子程序 飞读取分张数 .局部变量 飞计次, 整数型 .局部变量 飞地址, 文本型 .局部变量 hwnd, 整数型 hwnd ＝ 飞句柄 .计次循环首 (15, 飞计次) 飞地址 ＝ “[[[[” ＋ 飞余张数基址 ＋ “]” ＋ “+” ＋ 飞余张数偏移1 ＋ “]+” ＋ 飞余张数偏移2 ＋ “]+” ＋ 飞余张数偏移3 ＋ “]+” ＋ 飞余张数偏移4 [飞计次] 飞剩余张数 [飞计次] ＝ 飞读取整数 (hwnd, 飞地址) .计次循环尾 () .子程序 飞读取角色 .局部变量 飞计次, 整数型 .局部变量 飞地址, 文本型 .局部变量 hwnd, 整数型 hwnd ＝ 飞句柄 .计次循环首 (4, 飞计次) 飞地址 ＝ “[[[” ＋ 飞角色基址 ＋ “]” ＋ “+” ＋ 飞角色偏移1 ＋ “]+” ＋ 飞角色偏移2 [飞计次] ＋ “]+” ＋ 飞角色偏移3 飞角色名称 [飞计次] ＝ 飞读取文本 (hwnd, 飞地址) .计次循环尾 () .子程序 飞读取总张数 .局部变量 飞计次, 整数型 .局部变量 飞地址, 文本型 .局部变量 hwnd, 整数型 hwnd ＝ 飞句柄 .计次循环首 (4, 飞计次) 飞地址 ＝ “[[” ＋ 飞张数基址 ＋ “]” ＋ “+” ＋ 飞张数偏移1 ＋ “]+” ＋ 飞张数偏移2 [飞计次] 飞张数 [飞计次] ＝ 飞读取整数 (hwnd, 飞地址) .计次循环尾 () .子程序 飞读取整数, 整数型 .参数 飞句柄1, 整数型 .参数 飞地址, 文本型 .局部变量 飞读取值, 整数型 飞读取值 ＝ dm.方法_ReadInt (飞句柄1, 飞地址, 0) 返回 (飞读取值) .子程序 飞读取文本, 文本型 .参数 飞句柄1, 整数型 .参数 飞地址, 文本型 .局部变量 飞读取值, 文本型 飞读取值 ＝ dm.方法_ReadString (飞句柄1, 飞地址, 0, 100) 返回 (飞读取值) .子程序 飞取窗口句柄, 整数型 .局部变量 hwnd, 整数型 hwnd ＝ 到数值 (dm.方法_EnumWindow (0, “”, 飞游戏类名, 2)) 返回 (hwnd) .子程序 飞显示余牌 .局部变量 飞计次, 整数型 .局部变量 飞文本型牌, 文本型 飞计次 ＝ 1 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “Z ” .计次循环尾 () .如果真结束 标签1.标题 ＝ 飞文本型牌 飞计次 ＝ 2 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “F ” .计次循环尾 () .如果真结束 标签2.标题 ＝ 飞文本型牌 飞计次 ＝ 3 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “2 ” .计次循环尾 () .如果真结束 标签3.标题 ＝ 飞文本型牌 飞计次 ＝ 4 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “A ” .计次循环尾 () .如果真结束 标签4.标题 ＝ 飞文本型牌 飞计次 ＝ 5 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “K ” .计次循环尾 () .如果真结束 标签5.标题 ＝ 飞文本型牌 飞计次 ＝ 6 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “Q ” .计次循环尾 () .如果真结束 标签6.标题 ＝ 飞文本型牌 飞计次 ＝ 7 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “J ” .计次循环尾 () .如果真结束 标签7.标题 ＝ 飞文本型牌 飞计次 ＝ 8 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “0 ” .计次循环尾 () .如果真结束 标签8.标题 ＝ 飞文本型牌 飞计次 ＝ 9 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “9 ” .计次循环尾 () .如果真结束 标签9.标题 ＝ 飞文本型牌 飞计次 ＝ 10 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “8 ” .计次循环尾 () .如果真结束 标签10.标题 ＝ 飞文本型牌 飞计次 ＝ 11 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “7 ” .计次循环尾 () .如果真结束 标签11.标题 ＝ 飞文本型牌 飞计次 ＝ 12 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “6 ” .计次循环尾 () .如果真结束 标签12.标题 ＝ 飞文本型牌 飞计次 ＝ 13 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “5 ” .计次循环尾 () .如果真结束 标签13.标题 ＝ 飞文本型牌 飞计次 ＝ 14 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “4 ” .计次循环尾 () .如果真结束 标签14.标题 ＝ 飞文本型牌 飞计次 ＝ 15 飞文本型牌 ＝ “” .如果真 (飞剩余张数 [飞计次] ＞ 0) .计次循环首 (飞剩余张数 [飞计次], ) 飞文本型牌 ＝ 飞文本型牌 ＋ “3 ” .计次循环尾 () .如果真结束 标签15.标题 ＝ 飞文本型牌 .子程序 __启动窗口_将被销毁 关闭线程句柄 (飞线程ID)
【文件预览】：
千变双扣内CE存表.CT
千变双扣记牌器.exe
千变双扣记牌器.e