【文件属性】：
文件名称：茶苑双扣记牌
文件大小：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