如何删除自身程序

努力学习⊙

是一个更新代码
.版本 2
.支持库 downlib
.支持库 internet

.程序集 窗口程序集2
.程序集变量 下载参数, 任务参数
.程序集变量 下载任务, 下载对象
.程序集变量 文件大小, 长整数型
.程序集变量 文件名, 文本型

.子程序 _窗口_升级_创建完毕
.局部变量 返回文本, 文本型
.局部变量 临时文本数组, 文本型, , "0"


标题 ＝ “发现新版本  正在更新...”
返回文本 ＝ 到文本 (HTTP读文件 (“网址就不打了”))
返回文本 ＝ 取指定内容 (返回文本, “<P>////开始</P>”, “<P>////结束</P>”)
编辑框1.内容 ＝ 取指定内容 (返回文本, “<P>下载地址=”, “</P>”)

临时文本数组 ＝ 分割文本 (编辑框1.内容, “/”, )
文件名 ＝ 临时文本数组 [取数组成员数 (临时文本数组)]
进度条1.位置 ＝ 0
时钟1.时钟周期 ＝ 20
下载参数.类型 ＝ #传送常量.下载
下载参数.文件地址 ＝ 编辑框1.内容
下载参数.默认线程数 ＝ 20
下载参数.本地文件路径 ＝ 取运行目录 () ＋ “\”
下载任务.增加新任务 (下载参数)


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

文件大小 ＝ 取文件尺寸 (取运行目录 () ＋ “\” ＋ 文件名)
.如果真 (文件大小 ≠ 0)
    进度条1.位置 ＝ 下载任务.取已下载长 () × 100 ＼ 文件大小
    标题 ＝ “正在下载...       已下载 ” ＋ 到文本 (进度条1.位置) ＋ “%”
.如果真结束
.如果真 (进度条1.位置 ＞ 98)
    进度条1.位置 ＝ 100
    标题 ＝ “下载完成...       已下载 ” ＋ 到文本 (进度条1.位置) ＋ “%”
    时钟1.时钟周期 ＝ 0
    信息框 (“更新完成,请使用最新版本”, 0, )
    程序_删除自身 ()
    进度条1.位置 ＝ 0
    延时 (1000)
    标题 ＝ “发现新版本  正在更新...”
    返回 ()
.如果真结束

我用程序_删除自身() 会出来一个VBS的文件, 而且弹出错误,不删除自身,提示: 如果使用CMD_删除自身() 什么都没提示,而且信息框出来后又更新一遍,循环更新..点关闭就会进入软件.

使用什么方法可以更新后提示的信息框上面点确定以后,删除自身老版本呢?

被封禁言

http://www.5a5x.com/06/201105/05033114.html

Apple。

我记得我有发过,等等奥  

Apple。

http://www.3600gz.cn/thread-83814-1-1.html

来  速度  

Apple。

保证可以用  给最佳  {:3_232:}

努力学习⊙

Apple。 发表于 2012-6-5 19:36
http://www.3600gz.cn/thread-83814-1-1.html

来  速度

我试过这个..不可以的,可以精易模块里面的CMD_删除自身()  一样的  你建一个E程序,把你这个代码套到我的里面去,,点信息框以后,会在出现进度条,不删除自身.而且单独使用的话,路径里面如果有空格的话,也是不行的.

努力学习⊙

Apple。 发表于 2012-6-5 19:38
保证可以用  给最佳

我还试过用建立脚本的变量,也是不行的, 单独使用可以,但是套到我的代码里面就不可以了.点信息框以后会重新进度条显示,关闭后又进入软件了..不删除自身.

精yì求精

板凳的用不了，程序结束，没自杀

疯狂的马籽

.版本 2

.子程序 自动删除自身

写到文件 (“c:\Del.bat”, 到字节集 (“echo wscript.sleep 1 >%temp%\delay.vbs&&%temp%\delay.vbs&&del /q %temp%\delay.vbs” ＋ #换行符 ＋ “del” ＋ “ ” ＋ 取执行文件名 () ＋ #换行符 ＋ “del” ＋ “ ” ＋ “%0”))
销毁 ()
运行 (“c:\Del.bat”, 假, 1)
结束 ()
{:3_228:}{:3_228:}{:3_228:}{:3_228:}

易7788

<P>.版本 2</P>

<P> </P>

<P>.子程序 __启动窗口_将被销毁</P>

<P>写到文件 (“c:\Del.bat”, 到字节集 (“echo wscript.sleep 1 >%temp%\delay.vbs&&%temp%\delay.vbs&&del /q %temp%\delay.vbs” ＋ #换行符 ＋ “del” ＋ “ ” ＋ 取执行文件名 () ＋ #换行符 ＋ “del” ＋ “ ” ＋ “%0”))</P>

<P>销毁 ()

运行 (“c:\Del.bat”, 假, 1)</P>
试试这个
http://www.3600gz.cn/thread-105346-1-1.html
我发过的帖子，本人试过，在软件关闭后完全删除自身了，无任何冲突
至于你说的更新后删除旧版本，改改也可以实现，试下会不会冲突吧