如何修改自动更新中的错误

kx530

大家好！最近编写了一个软件联网更新的程序，但在使用过程遇到几个问题！
一、服务器中没有1.exe文件，也照样更新

二、服务器没有打开,更新窗口就会停在那里、超时后也不会关闭

以下是源码：
.版本 2
.支持库 downlib
.支持库 dp1
.程序集 窗口程序集2
.程序集变量 下载参数, 任务参数
.程序集变量 下载任务, 下载对象
.程序集变量 下载状态, 整数型
.程序集变量 下载信息, 字节集
.程序集变量 文件大小, 双精度小数型
.子程序 _窗口_升级_创建完毕
.局部变量 下载地址, 文本型
.局部变量 aa, 文本型
aa ＝ http://127.0.0.1/1.exe
下载地址 ＝ 删首尾空 (aa)
下载参数.类型 ＝ #传送常量.下载
下载参数.文件地址 ＝ 下载地址
下载参数.线程等待超时 ＝ 1000
下载参数.默认线程数 ＝ 5
下载参数.本地文件路径 ＝ 取当前目录 () ＋ “\1.exe.tmp”
下载参数.连接超时 ＝ 5000
下载参数.发送超时 ＝ 5000
下载参数.接收超时 ＝ 10000
下载参数.接收大小 ＝ 10240
下载参数.交互回调函数 ＝ &交互回调函数
下载任务.增加新任务 (下载参数)
.子程序 替换新版
            '      这里替换新版本文件
结束 ()
.子程序 _时钟_周期事件
进度条1.位置 ＝ 四舍五入 (下载任务.取已下载长 () ÷ 文件大小 × 100, 0)
.子程序 交互回调函数, 整数型
.参数 消息类型, 整数型
.参数 线程信息, 整数型
.参数 参数3, 整数型
.参数 参数4, 整数型
.参数 对象信息, 整数型
.判断开始 (消息类型 ＝ #传送常量.下载上传开始)
    文件大小 ＝ 参数3
.判断 (消息类型 ＝ #传送常量.下载上传结束)
    信息框 (“下载完成”, 64, “提示”)
    替换新版 ()
.判断 (消息类型 ＝ #传送常量.新下载线程启动)
.判断 (消息类型 ＝ #传送常量.下载线程继续下载)
.判断 (消息类型 ＝ #传送常量.线程正常结束)
.判断 (消息类型 ＝ #传送常量.线程异常结束)
.判断 (消息类型 ＝ #传送常量.存在同名文件)
.判断 (消息类型 ＝ #传送常量.收到数据)
.判断 (消息类型 ＝ #传送常量.下载数据范围)
.默认
.判断结束
返回 (0)

我想要实现的是，如果服务器上没有1.exe就报远程文件不存在。如果无法连接到服务器，超时后自动关闭更新窗口！还请各位大虾们指教一下！

378098317

不懂~~帮你顶下吧

素顏じ亦傾城ジ

.版本 2
.支持库 internet

.子程序 _测试连接服务器按钮_被单击

.如果真 (连接发信服务器 (邮箱服务器.内容, 到数值 (邮件服务器端口.内容), 邮箱帐号.内容, 邮箱密码.内容, ) ＝ 假)
    信息框 (“连接邮件服务器失败！请检查您的网络！”, 0, “服务器提示”)
    返回 ()



这个可以通过连接邮箱服务器来检测是否连接了网络
至于检测文件是否存在.抓取下返回值就好啦

一剑东去

楼上正解。。 是否已连接互联网