自定义透明的桌面课程表带日历

移动 (取屏幕宽度 () － 宽度, 0, , 取屏幕高度 ())
图片框1.高度 ＝ 取屏幕高度 ()
窗口透明 (取窗口句柄 (), 100, #白色, 真)
载入 (窗口1, _启动窗口, 假)
窗口1.移动 (取屏幕宽度 () － 宽度, 0, , 取屏幕高度 ())

临时时间 ＝ 取现行时间 ()
临时信息 ＝ 到文本 (取月份 (临时时间))
.如果真 (取文本长度 (临时信息) ＝ 1)
临时信息 ＝ “0” ＋ 临时信息
.如果真结束
透明标签1.标题 ＝ 到文本 (取年份 (临时时间)) ＋ “ - ” ＋ 临时信息
透明标签2.标题 ＝ 到文本 (取日 (临时时间))
年份公历 ＝ 取年份 (临时时间)
天干 ＝ (年份公历 － 4) ％ 10 ＋ 1
地支 ＝ (年份公历 － 4) ％ 12 ＋ 1
透明标签3.标题 ＝ 多项选择 (取星期几 (临时时间), “星期天”, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”) ＋ #换行符 ＋ #换行符 ＋ 多项选择 (天干, “甲”, “乙”, “丙”, “丁”, “戊”, “己”, “庚”, “辛”, “壬”, “癸”) ＋ 多项选择 (地支, “子”, “丑”, “寅”, “卯”, “辰”, “巳”, “午”, “未”, “申”, “酉”, “戌”, “亥”) ＋ 多项选择 (地支, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊”, “猴”, “鸡”, “狗”, “猪”) ＋ “年七月二十二”
透明标签11.标题 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 多项选择 (取星期几 (临时时间), “星期日”, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”) ＋ “.gc”))

.子程序 窗口透明, 逻辑型, , 设置窗口透明状态(成功返回真,失败返回假)
.参数 临时句柄, 整数型, , 设置透明化窗口的句柄
.参数 临时透明度, 字节型, 可空, 设置整个窗口的透明度 取值范围是[0,255] 可空为不设定此参数
.参数 临时透明色, 整数型, 可空, (#颜色)指定某颜色为完全透明(完全透明处不属于该窗口) 可空为不指定
.参数 鼠标穿透, 逻辑型, 可空, 可空为假 真:窗口被鼠标穿透
.局部变量 临时变量, 整数型
.局部变量 临时方法, 整数型

.如果 (鼠标穿透)
临时变量 ＝ _取得窗口信息 (临时句柄, #GWL_EXSTYLE)
临时变量 ＝ 位或 (临时变量, #WS_EX_TRANSPARENT)
临时变量 ＝ 位或 (临时变量, #WS_EX_LAYERED)
_设置窗口信息 (临时句柄, #GWL_EXSTYLE, 临时变量) ' 设置鼠标穿透
.否则
_设置窗口信息 (临时句柄, #GWL_EXSTYLE, 524288)
.如果结束
.判断开始 (临时透明色 ＝ 0)
临时方法 ＝ 2
.默认
.如果 (临时透明度 ＝ 0)
临时方法 ＝ 1
.否则
临时方法 ＝ 3
.如果结束

.判断结束
返回 (_透明窗口 (临时句柄, 临时透明色, 临时透明度, 临时方法))