觅风论坛

标题: 定时执行文件的小程序 [打印本页]

作者: tiger2758 时间: 2019-11-11 05:28
标题: 定时执行文件的小程序

.版本 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_内容被改变

作者: fghjgfkjhgk 时间: 2019-11-11 05:58
支持！！！！！！

作者: Hacker 时间: 2019-11-11 06:28
不错不错支持下

作者: 阿运 时间: 2019-11-11 06:59
好像还不错！

作者: 阿运 时间: 2019-11-11 07:29
路过还不错

作者: yu2353173832 时间: 2019-11-11 07:59
看帖子的要发表下看法

作者: wz19981007 时间: 2019-11-11 08:01
嘻嘻不错支持一个

作者: ... 时间: 2019-11-11 08:03
支持你们一下下哈

作者: gwm231 时间: 2019-11-11 08:05
顶起很好的帖

作者: sdf 时间: 2019-11-11 08:07
很不错的哦，支持，加油

作者: sdf 时间: 2019-11-11 08:09
支持！！！！前排！！！！

作者: 好萌哦 时间: 2019-11-11 08:41
不错不错支持下

作者: a895830975 时间: 2019-11-11 09:13
不错！顶LZ

作者: 卧槽你妹 时间: 2019-11-11 09:45
支持你们一下下哈

作者: qwe144184 时间: 2019-11-11 10:17
抢楼了，前排第一次啊

作者: 好萌哦 时间: 2019-11-11 10:49
赞一个!

作者: 的含税单价 时间: 2019-11-11 10:56
很给力。。。。很喜欢

作者: zf123456 时间: 2019-11-11 11:03
支持，赞

作者: 企鹅6655 时间: 2019-11-11 11:10
学习了，这就去试试

作者: gwm231 时间: 2019-11-11 11:17
这个不错，谢谢共享

作者: 我才 时间: 2019-11-11 11:24
必须支持。。。。。。。

作者: 骑着蚂蚁兜风 时间: 2019-11-11 11:36
很给力。。。。很喜欢

作者: zf123456 时间: 2019-11-11 11:48
支持，赞

作者: 123456 时间: 2019-11-11 12:00
好像还不错！

作者: zf123456 时间: 2019-11-11 12:12
支持一下，期待更多东西

作者: yu1616 时间: 2019-11-11 12:24
路过还不错

作者: 730422343 时间: 2019-11-11 12:27
嘻嘻不错支持一个

作者: 22222222 时间: 2019-11-11 12:31
学习一下！十分感谢

作者: 海绵老爹 时间: 2019-11-11 12:34
好像还不错！

作者: 汨黎 时间: 2019-11-11 12:37
感谢您的无私精神...

作者: csw96781 时间: 2019-11-11 12:40
碉堡了!

作者: Dim星痕 时间: 2019-11-11 12:42
好像还不错！

作者: 风月 时间: 2019-11-11 12:44
支持一下，期待更多东西

作者: sada 时间: 2019-11-11 12:46
很不错的哦，支持，加油

作者: sada 时间: 2019-11-11 12:48
我表示压力很大

作者: 小天 时间: 2019-11-11 12:50
看帖子的要发表下看法

作者: 86992894 时间: 2019-11-11 13:28
学习了！！！！

作者: 4414513216511 时间: 2019-11-11 14:05
嘻嘻不错支持一个

作者: 莫天浩 时间: 2019-11-11 14:42
谢谢楼主，，，收藏ing

作者: 我叫很钢 时间: 2019-11-11 15:19
期待中......

作者: 带小叶 时间: 2019-11-11 15:56
这个不错，谢谢共享

作者: 找找找 时间: 2019-11-11 16:05
学习一下！十分感谢

作者: 22222222 时间: 2019-11-11 16:14
不错哦喜欢嘿嘿

作者: 啊啊啊啊啊 时间: 2019-11-11 16:23
顶一个了

作者: 火狐 时间: 2019-11-11 16:32
这个不错，谢谢共享

作者: 啊啊啊啊啊 时间: 2019-11-11 16:41
前来围观，LZ好样的！

作者: 付出又有回报 时间: 2019-11-11 16:51
支持！！！！！！

作者: 凌空 时间: 2019-11-11 17:01
谢谢楼主的辛苦分享

作者: 444555 时间: 2019-11-11 17:12
不错！顶LZ

作者: 凌空 时间: 2019-11-11 17:22
支持你们一下下哈

作者: Hacker 时间: 2019-11-11 17:32
看帖子的要发表下看法

作者: 浮生若梦 时间: 2019-11-11 17:37
学习了！！！！

作者: 1225061801 时间: 2019-11-11 17:42
很给力。。。。很喜欢

作者: 1225061801 时间: 2019-11-11 17:47
支持，赞

作者: 黑崎一宇 时间: 2019-11-11 17:52
路过还不错

作者: 凌空 时间: 2019-11-11 17:57
支持！！！！前排！！！！

作者: 99928630 时间: 2024-10-14 10:42
这个不错可以学习

欢迎光临觅风论坛 (https://www.eyyba.com/)