开发工具:
文件大小: 360kb
下载次数: 0
上传时间: 2013-02-27
详细说明: .版本 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) ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。
- 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
- 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.