易语言如何指定删除自身，在线等！

比如说设定7天后，自动删除软件本体知道怎么删除自身但是指定时间自动删除自身不会弄。在线等！
.版本 2

.程序集 窗口程序集1

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

删除自身 (“删除自身”)

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

运行 (取运行目录 () ＋ “\DelOneSelf.bat”, 假, )
结束 ()

.子程序 删除自身
.参数 运行文件名, 文本型, , 不用带.exe

写到文件 (取运行目录 () ＋ “\DelOneSelf.bat”, 到字节集 (“@echo off” ＋ #换行符 ＋ “color a” ＋ #换行符 ＋ “cls” ＋ #换行符 ＋ “title 删除自身” ＋ #换行符 ＋ “echo 写bat删除自身” ＋ #换行符 ＋ “echo 正在删除....” ＋ #换行符 ＋ “del /q /a ” ＋ 运行文件名 ＋ “.exe” ＋ #换行符 ＋ “del %0”))

.版本 2
.支持库 internet

.程序集 窗口程序集1

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

编辑框1.内容 ＝ 到文本 (读配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “账户”, ))
编辑框2.内容 ＝ 到文本 (读配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “密码”, ))
.如果 (是否已在线 () ＝ 真)
标签1.标题 ＝ “已经拨号！”
.否则
标签1.标题 ＝ “还没拨号!”
.如果结束
.如果 (注册项是否存在 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\自动连接ADSL”) ＝ 真)
选择框3.选中 ＝ 真
.否则
选择框3.选中 ＝ 假
.如果结束
加载皮肤 (“皮肤模块”)
' 读加密账户和加密密码 ()
读取秒 ()
_启动窗口.可视 ＝ 真
.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
.如果 (选择框3.选中 ＝ 真)
手动拨号 ()
托盘 ()
_启动窗口.可视 ＝ 假
.否则

.如果结束

.否则

.如果结束
托盘 ()

.子程序 _更改皮肤_被选择

皮肤参数调整 ()

.子程序 手动拨号

.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
.如果 (拨号 (“@n”, 编辑框1.内容, 编辑框2.内容, 真, 标签1) ＝ 真)
时钟1.时钟周期 ＝ 秒
标签1.标题 ＝ “自动连接成功”
标签1.文本颜色 ＝ #蓝色
.否则
标签1.标题 ＝ “自动连接失败”
标签1.文本颜色 ＝ #红色
可视 ＝ 真
.如果结束

.否则
信息框 (“账户和密码不可以为空”, 0, )
.如果结束

.子程序 挂断1

时钟1.时钟周期 ＝ 0
挂断 ()
信息框 (“网络挂断成功”, 0, )
标签1.标题 ＝ “挂断”

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

挂断1 ()
托盘 ()

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

.如果真 (是否已在线 () ＝ 假)
手动拨号 ()
.如果真结束

.子程序 _选择框1_被单击

.如果 (选择框1.选中 ＝ 假)
.如果真 (信息框 (“确认取消记住密码”, 1, ) ＝ 1)
选择框1.选中 ＝ 真
.如果真结束

.否则
信息框 (“记住密码已应用”, 0, )

.如果结束

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

时钟1.时钟周期 ＝ 0
.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
.如果 (拨号 (“@n”, 编辑框1.内容, 编辑框2.内容, 真, 标签1) ＝ 真)
时钟1.时钟周期 ＝ 秒
标签1.标题 ＝ “连接成功”
标签1.文本颜色 ＝ #蓝色
可视 ＝ 假
托盘 ()
.否则
标签1.标题 ＝ “连接失败”
标签1.文本颜色 ＝ #红色
托盘 ()
.如果结束

.否则
信息框 (“账户和密码不可以为空”, #警告图标, )

.如果结束
.如果真 (选择框1.选中 ＝ 真)
写配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “账户”, 编辑框1.内容)
写配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “密码”, 编辑框2.内容)
.如果真结束

.子程序 _选择框3_被单击

.如果 (选择框3.选中 ＝ 真)
写注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\自动连接ADSL”, 取运行目录 () ＋ “\” ＋ 取执行文件名 ())
信息框 (“设置开机自动连接成功”, 0, )
.否则
删除注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\自动连接ADSL”)
信息框 (“设置开机不自动连接成功”, 0, )
.如果结束

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

.如果 (选择框2.选中 ＝ 真)
.如果真 (是否已在线 () ＝ 假)
手动拨号 ()
托盘 ()
.如果真结束

.否则

.如果结束

.子程序 _断线重连频率_被选择

载入 (窗口1, , 真)

.子程序 读取秒

秒 ＝ 到数值 (读配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “断线重连间隔”, “5”))

.子程序 __启动窗口_位置被改变

.如果 (_启动窗口.位置 ＝ 2)
_启动窗口.可视 ＝ 假
托盘 ()
.否则

.如果结束

.子程序 托盘

.如果 (是否已在线 () ＝ 真)
置托盘图标 (#图标红, “宽带连接:(” ＋ 标签1.标题 ＋ “)”)
.否则
置托盘图标 (#图标绿, “宽带连接:(” ＋ 标签1.标题 ＋ “)”)
.如果结束

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

.如果 (操作类型 ＝ 1)
_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 1
.否则

.如果结束
.如果 (操作类型 ＝ 3)
弹出菜单 (功能, , )
.否则

.如果结束

.子程序 _选择框2_被单击

.如果 (选择框2.选中 ＝ 假)
信息框 (“断线重连功能已经关闭”, 0, )
.否则
信息框 (“断线重连功能开启”, 0, )
.如果结束

.子程序 _连接_被选择

.如果 (是否已在线 () ＝ 假)
_按钮1_被单击 ()
.否则
信息框 (“你已经连接网络”, 0, )
.如果结束

.子程序 _断开_被选择

_按钮2_被单击 ()

.子程序 _退出_被选择

_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 1

.程序集 窗口程序集2

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

销毁 ()

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

.如果 (到数值 (编辑框1.内容) ＜ 5)
信息框 (“不可以设置5秒以下！” ＋ #换行符 ＋ “否则会出现无限制连接的错误”, 0, )
.否则
写配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “断线重连间隔”, 到文本 (秒))
销毁 ()
.如果结束

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

秒 ＝ 到数值 (编辑框1.内容)
秒 ＝ 秒 × 1000

.

全局变量 秒, 长整数型

.图片 图标绿
.图片 图标红

点开始，点运行，输入regsvr32 你的程序名

这样就行了，大哥，你自己都会编程了，连命令都不会？？