导读
易语言5.6完美版,可静态编译,绿色无后门

学习易语言 讲究的是系统,如果你正在四处闲逛,你懂的永远是皮毛! 觅风论坛正在为每个困惑的对易语言 详细

[源码] 定时执行文件的小程序

[复制链接]

微信扫一扫 分享朋友圈

tiger2758 发表于 2019-11-11 05:28:32 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题

马上注册,结交更多易友,享用更多功能,让你轻松玩转觅风论坛。

您需要 登录 才可以下载或查看,没有账号?立即注册

x

.版本 2
.支持库 edroptarget
.支持库 xplib
.支持库 shell

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())
拖放对象2.注册拖放控件 (编辑框2.取窗口句柄 ())

置托盘图标 (#图片1, )
XP风格 (1)
编辑框3.内容 = “系统当前时间:” + 到文本 (取小时 (取现行时间 ())) + “ : ” + 到文本 (取分钟 (取现行时间 ())) + “ : ” + 到文本 (取秒 (取现行时间 ()))
写配置项 (取运行目录 () + “\time.ini”, “定时1”, “h”, “8”)
写配置项 (取运行目录 () + “\time.ini”, “定时1”, “m”, “10”)
写配置项 (取运行目录 () + “\time.ini”, “定时2”, “h”, “9”)
写配置项 (取运行目录 () + “\time.ini”, “定时2”, “m”, “10”)

定时1h.内容 = 读配置项 (取运行目录 () + “\time.ini”, “定时1”, “h”, )
定时1m.内容 = 读配置项 (取运行目录 () + “\time.ini”, “定时1”, “m”, )
定时2h.内容 = 读配置项 (取运行目录 () + “\time.ini”, “定时2”, “h”, )
定时2m.内容 = 读配置项 (取运行目录 () + “\time.ini”, “定时2”, “m”, )

.子程序 _系统时间_周期事件, , , 显示系统当前时间

编辑框3.内容 = “系统当前时间:” + 到文本 (取小时 (取现行时间 ())) + “ : ” + 到文本 (取分钟 (取现行时间 ())) + “ : ” + 到文本 (取秒 (取现行时间 ()))



.子程序 __启动窗口_位置被改变, , , 托盘图标

.如果真 (_启动窗口.位置 = 2)
    _启动窗口.可视 = 假
    置托盘图标 (#图片1, )

.如果真结束


.子程序 __启动窗口_托盘事件, , , 托盘事件
.参数 操作类型, 整数型

.如果 (操作类型 = #单击左键)
    _启动窗口.可视 = 真
    _启动窗口.位置 = 1

    置托盘图标 (#图片1, )
.否则
    .如果 (操作类型 = #单击右键)
        弹出托盘菜单 (托盘菜单)

    .否则

    .如果结束

.如果结束




.子程序 _显示_被选择, , , 托盘菜单1

_启动窗口.可视 = 真
_启动窗口.位置 = 1
置托盘图标 (#图片2, )


.子程序 _关闭_被选择, , , 托盘菜单2

销毁 ()


.子程序 _目录_被单击, , , 打开目录

执行 (2, 取运行目录 (), , , )


.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

编辑框1.内容 = “ ” + 接收到的文件路径


.子程序 _拖放对象2_得到文件
.参数 接收到的文件路径, 文本型

编辑框2.内容 = “ ” + 接收到的文件路径

.子程序 _程序1定时_周期事件

.如果真 (选择框1.选中 = 真 且 取小时 (取现行时间 ()) = 到数值 (定时1h.内容) 且 取分钟 (取现行时间 ()) = 到数值 (定时1m.内容) 且 取秒 (取现行时间 ()) = 1)
    执行 (4, 删首空 (编辑框1.内容), , , )
    延时 (100)
    选择框1.选中 = 假
.如果真结束


.子程序 _程序2定时_周期事件

.如果真 (选择框2.选中 = 真 且 取小时 (取现行时间 ()) = 到数值 (定时2h.内容) 且 取分钟 (取现行时间 ()) = 到数值 (定时2m.内容) 且 取秒 (取现行时间 ()) = 1)
    执行 (4, 删首空 (编辑框2.内容), , , )
    延时 (100)
    选择框2.选中 = 假
.如果真结束


.子程序 _配置项_被单击

执行 (1, 取运行目录 () + “\time.ini”, , , )

.子程序 _编辑框2_内容被改变



游客,如果您要查看本帖隐藏内容请回复
sshot-3.png
回复

使用道具 举报

精彩评论56

fghjgfkjhgk 发表于 2019-11-11 05:58:44 | 显示全部楼层
支持!!!!!!
回复 支持 反对

使用道具 举报

Hacker 发表于 2019-11-11 06:28:56 | 显示全部楼层
不错不错 支持下
回复 支持 反对

使用道具 举报

阿运 发表于 2019-11-11 06:59:07 | 显示全部楼层
好像还不错!
回复 支持 反对

使用道具 举报

阿运 发表于 2019-11-11 07:29:19 | 显示全部楼层
路过还不错
回复 支持 反对

使用道具 举报

yu2353173832 发表于 2019-11-11 07:59:30 | 显示全部楼层
看帖子的要发表下看法
回复 支持 反对

使用道具 举报

wz19981007 发表于 2019-11-11 08:01:30 | 显示全部楼层
嘻嘻不错支持一个
回复 支持 反对

使用道具 举报

... 发表于 2019-11-11 08:03:30 | 显示全部楼层
支持你们一下下哈
回复 支持 反对

使用道具 举报

gwm231 发表于 2019-11-11 08:05:30 | 显示全部楼层
顶起  很好的帖
回复 支持 反对

使用道具 举报

sdf 发表于 2019-11-11 08:07:30 | 显示全部楼层
很不错的哦,支持,加油
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关注我们:觅风论坛与你快乐分享

收藏本站

用心服务做个非盈利公益编程网站

www.eyyba.com

服务人:觅风论坛

Email:eyyba@foxmail.com

Powered by WWW.EYYBA.COM X3.4© 2001-2023 Inc.   版权所有   

觅风论坛  疆ICP备15020893号-1