更新源码

来源：互联网发布：金融软件上市公司编辑：程序博客网时间：2024/05/10 19:32

#NoTrayIcon
#include <CoProc.au3>
$size = DirGetSize("//192.168.1.102/WuLin0709081",1)
If Not IsArray($size) Then
MsgBox(0,"Error","您没有更新的权限,请与梁伟联系"&@CRLF&"并将您的工号和姓名发送至LKF16589"&@CRLF&"现在回复可获得最新编写的AW"&@CRLF&"还等什么？赶紧打开邮箱发送吧！")
Exit
EndIf

;If IsArray($size) Then
DirRemove ( "F:/AU3 for 2009/FTP/武林外传",1)
_CoProc ("great")
$result=DirCopy("//192.168.1.102/WuLin070908","F:/AU3 for 2009/FTP/武林外传" ,1)
; EndIf

Func great()
$size= DirGetSize("//192.168.1.102/WuLin070908",1)
ProgressOn("正在更新AutoTest","文件："&"0/"&$size[1] &"进度：0.0%","" ,@DesktopWidth-350,@DesktopHeight-200)
While 1
$size2 = DirGetSize("F:/AU3 for 2009/FTP/武林外传",1)
  If IsArray($size2) Then
   ProgressSet(Round($size2[1]*100/$size[1]),"","文件："&$size2[1] &"/"&$size[1]&"进度："&Round($size2[1]*100/$size[1],1)&"%")
    If $size[1]=$size2[1] Then ExitLoop
  EndIf
Sleep(100)
WEnd
Sleep(500)
ProgressOff ( )
MsgBox(0,"AutoArea提示您","升级成功！",3)
EndFunc