更新源碼

#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