给软件做一个到期结束的功能

q1154058023

现行时间 2020年6月10日02:00：00
编辑框输入1 那么 到了3点钟这个窗口就自己关掉  
有大佬帮忙敲个代码么，谢谢！
要占用zy很小的方法！

廿六

.版本 2

.程序集 窗口程序集_窗口1

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 到整数 (编辑框1.内容) × 3600000



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

结束 ()

sun3个晒

.版本 2

.子程序 到期
.局部变量 i, 整数型

i ＝ 0


.循环判断首 ()
    .如果真 (时间_取北京时间 () ＞ 到时间 (“2020年6月10日23时23分0秒”))
        _启动窗口.禁止 ＝ 真
        提示框 (“软件到期联系作者”, , )
        销毁 ()
    .如果真结束

    延时 (1000)

.循环判断尾 (i ＝ 0)

woaini12351

有人做了吗、
？ 没人做我给你做