.版本 2 .程序集 窗口程序集1 .程序集变量 PNG, 字节集 .子程序 _小工具_创建完毕 ' 本源码来自三叶资源网(www.sanye.cx) ' *** 缩略程序块 *** PNG ＝ { 137, 80, 78, 71, 13, 10, 26, 10, 0, 0, 0, 13, 73, 72, 68, 82, 0, 0, 0, 117, 0, 0, 0, 17, 8, 6, 0, 0, 0, 227, 97, 227, 240, 0, 0, 0, 4, 103, 65, 77, 65, 0, 0, 175, 200, 55, 5, 138, 233, 0, 0, 0, 25, 116, 69, 88, 116, 83, 111, 102, 116, 119, 97, 114, 101, 0, 65, 100, 111, 98, 101, 32, 73, 109, 97, 103, 101, 82, 101, 97, 100, 121, 113, 201, 101, 60, 0, 0, 1, 136, 73, 68, 65, 84, 120, 218, 236, 216, 63, 111, 130, 64, 20, 0, 240, 119, 196, 176, 96, 234, 78, 58, 192, 138, 141, 179, 131, 31, 194, 189, 11, 31, 163, 179, 131, 159, 163, 107, 103, 191, 64, 191, 64, 71, 6, 7, 26, 116, 193, 168, 65, 64, 42, 22, 249, 211, 187, 139, 146, 166, 5, 226, 120, 151, 188, 151, 28, 127, 127, 121, 203, 203, 61, 142, 35, 0, 240, 66, 71, 72, 199, 25, 254, 199, 235, 159, 123, 180, 18, 88, 133, 189, 48, 77, 243, 115, 60, 30, 39, 138, 162, 248, 211, 233, 244, 155, 16, 242, 65, 159, 191, 55, 36, 70, 43, 137, 181, 29, 199, 137, 230, 243, 121, 53, 153, 76, 170, 197, 98, 81, 13, 6, 131, 37, 52, 7, 90, 9, 108, 143, 29, 44, 203, 122, 88, 173, 86, 160, 170, 42, 24, 134, 1, 154, 166, 61, 70, 81, 212, 152, 9, 173, 248, 182, 119, 3, 163, 209, 8, 232, 116, 6, 93, 215, 161, 223, 239, 67, 87, 160, 149, 192, 86, 52, 138, 162, 224, 131, 197, 112, 56, 252, 106, 75, 130, 86, 108, 75, 79, 124, 161, 116, 3, 144, 231, 57, 148, 101, 201, 175, 187, 2, 173, 216, 182, 110, 191, 105, 154, 242, 193, 166, 48, 173, 124, 103, 34, 180, 98, 219, 122, 166, 198, 113, 12, 155, 205, 6, 78, 167, 19, 175, 124, 87, 160, 21, 219, 214, 69, 13, 130, 0, 214, 235, 53, 36, 73, 2, 151, 203, 165, 51, 17, 90, 177, 109, 93, 212, 253, 126, 15, 174, 235, 242, 202, 103, 89, 214, 153, 8, 173, 216, 182, 46, 234, 118, 187, 189, 59, 17, 90, 177, 173, 114, 221, 67, 132, 221, 110, 247, 251, 37, 91, 64, 217, 13, 57, 208, 10, 110, 9, 33, 182, 114, 221, 20, 230, 189, 217, 243, 60, 56, 30, 143, 172, 55, 23, 109, 251, 141, 104, 197, 183, 172, 168, 103, 250, 161, 205, 15, 135, 3, 248, 190, 127, 91, 69, 197, 244, 185, 215, 144, 8, 173, 4, 150, 255, 167, 206, 102, 179, 231, 48, 12, 159, 104, 213, 125, 199, 113, 76, 250, 191, 243, 214, 214, 195, 209, 202, 97, 89, 191, 54, 224, 190, 64, 43, 129, 253, 17, 96, 0, 220, 103, 118, 13, 225, 106, 128, 4, 0, 0, 0, 0, 73, 69, 78, 68, 174, 66, 96, 130 } 高度 ＝ 130 ' 重定义高度 载入 (头部, 小工具, 假) ' 载入一个窗口作为头部 置PNG外形 (头部, PNG) ' 头部窗口置外形图片 圆角化 () ' 把四个角干掉 移动 (取屏幕宽度 () － 宽度 － 20, 15, , ) ' 移动到屏幕右上角 连续赋值 (到数值 (读配置项 (“小工具.ini”, “俺的小工具”, “背景色”, “25850”)), 星期.背景颜色, 分.背景颜色, 日期.背景颜色, 底色) ' 读取配置项里面的颜色值信息 ' 本源码来自三叶资源网(www.sanye.cx) 时钟1.时钟周期 ＝ 10 ' 第一次读取设置时钟周期灰常的短 我要透明 (小工具, 到数值 (读配置项 (“小工具.ini”, “俺的小工具”, “透明度”, “80”))) ' 读取配置项里面的透明度信息 .子程序 取星期, 文本型 .参数 日期, 日期时间型, 可空 .如果真 (是否为空 (日期)) ' 是否为缺省时间 日期 ＝ 取现行时间 () ' 如果留空就取当前时间 .如果真结束 返回 (“星期” ＋ 到文本 (多项选择 (取星期几 (日期), “日”, “一”, “二”, “三”, “四”, “五”, “六”))) ' 易是把星期天定义为星期一 .子程序 _小工具_位置被改变 头部.移动 (小工具.左边 ＋ 7, 小工具.顶边 － 10, , ) ' 叫头上的那个东东跟着我们 .子程序 _小工具_首次激活 头部.可视 ＝ 真 ' 允许头上那个东东显示 .子程序 圆角化, 逻辑型, , 窗口圆角化 .参数 角度, , 可空 .局部变量 hRgn, 整数型 .如果真 (角度 ＝ 0) 角度 ＝ 5 .如果真结束 hRgn ＝ CreateRoundRectRgn (0, 0, 宽度, 高度, 角度, 角度) ' 本源码来自三叶资源网(www.sanye.cx) .如果真 (hRgn ＝ 0) 返回 (假) .如果真结束 .如果真 (SetWindowRgn (取窗口句柄 (), hRgn, 真) ＝ 0) 返回 (假) .如果真结束 DeleteObject (hRgn) 返回 (真) .子程序 _小工具_鼠标右键被按下, 逻辑型, , 弹出右键 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (管理, , ) .子程序 _分_鼠标右键被按下, 逻辑型, , 弹出右键 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (管理, , ) .子程序 _星期_鼠标右键被按下, 逻辑型, , 弹出右键 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (管理, , ) .子程序 _日期_鼠标右键被按下, 逻辑型, , 弹出右键 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (管理, , ) .子程序 _更换底色_被选择, , , 随机背景色 置随机数种子 () 底色 ＝ 取随机数 (12777, 93777) ' 本源码来自三叶资源网(www.sanye.cx) 连续赋值 (底色, 星期.背景颜色, 分.背景颜色, 日期.背景颜色) 写配置项 (“小工具.ini”, “俺的小工具”, “背景色”, 到文本 (底色)) .子程序 _退出小工具_被选择, , , 拜拜 销毁 () .子程序 _时钟1_周期事件, , , 检测时间 .局部变量 月, 文本型, , "2" 时钟1.时钟周期 ＝ 1000 ' 把周期改为1秒检测一次 星期.标题 ＝ 取星期 () 分.标题 ＝ 到文本 (取秒 (取现行时间 ())) 分.字体.字体大小 ＝ 60 ' 本源码来自三叶资源网(www.sanye.cx) 月 ＝ 分割文本 (时间到文本 (取现行时间 (), #日期部分), “年”, ) 日期.标题 ＝ 月 [2] ＋ “ ” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) .子程序 我要透明, , , 我要透明啊 .参数 窗口, 窗口 .参数 透明, 整数型, , 0-255 置窗口风格 (窗口.取窗口句柄 (), -20, 位或 (取窗口风格 (窗口.取窗口句柄 (), -20), 524288)) 设置透明 (窗口.取窗口句柄 (), 0, 透明, 2) 置PNG外形 (头部, PNG, 透明) _小工具_位置被改变 () 写配置项 (“小工具.ini”, “俺的小工具”, “透明度”, 到文本 (透明)) .子程序 _透明30_被选择, , , ↓下面开始蛋疼↓ 我要透明 (小工具, 255 × 0.3) .子程序 _透明50_被选择 我要透明 (小工具, 255 × 0.5) .子程序 _透明80_被选择 我要透明 (小工具, 255 × 0.8) .子程序 _透明10_被选择 我要透明 (小工具, 255 × 0.1) .子程序 _透明20_被选择 我要透明 (小工具, 255 × 0.2) .子程序 _透明40_被选择 我要透明 (小工具, 255 × 0.4) .子程序 _透明60_被选择 我要透明 (小工具, 255 × 0.6) .子程序 _透明70_被选择 我要透明 (小工具, 255 × 0.7) .子程序 _透明90_被选择 我要透明 (小工具, 255 × 0.9) .子程序 _完全不透明_被选择, , , ↑好了蛋疼结束了↑ 我要透明 (小工具, 255)