主题：[求助]自动升级1次为何出现3次登录？

'下面是AfterOpenProject事件中自动静默下载升级文件并更新的代码
Dim ftp1 As new ftpclient
ftp1.TimeOut=20000 '用于设置尝试操作的毫秒数
ftp1.host=IPa '设置单位ftp服务器地址,IPa为全局代码
ftp1.Account = ftpAccount '设置ftp登录用户名,ftpAccount为全局代码
ftp1.password = ftppassword '设置ftp登录密码,ftppassword为全局代码
Dim s1 As Date=ftp1.GetFileDate(upath & datafile) '获取服务器上升级文件的日期时间
If s1>publishdate Then '如果较现在版本的日期时间新则下载并升级
    Dim s3 As String = upath & datafile '服务器上升级文件中包含升级内容的文件
   Dim s4 As String = rpath & "\" & datafile '准备保存在客户端的包含升级内容的文件
    ftp1.download(s3,s4,False) '静默下载并另存
    Dim zip As New zipFile
    zip.Open(s4) '打开升级文件
    zip.Extractall(rpath) '全部解压到客户端运行文件夹
    zip.Close() '关闭升级文件
    FileSys.deleteFile(s4,2,2) '删除升级文件
    Syscmd.Project.Open(ProjectFile) '重新打开项目
Else
    Forms("用户登录").Open()
End If