用au3写的程序怎么更新-『提问交流』-AUTOIT CN

放羊的狼 发表于 2012-5-24 15:19:56

用au3写的程序怎么更新

用au3写了个程序，怎么让用户更新这个程序呢

netegg 发表于 2012-5-24 15:55:36

//删除旧版//

zldfsz 发表于 2012-5-24 16:28:15

//删除旧版//
netegg 发表于 2012-5-24 15:55 http://www.autoitx.com/images/common/back.gif

哈哈，顶一下

邪恶海盗 发表于 2012-5-24 16:30:07

楼主想的太多了,鉴定完毕...

魔导发表于 2012-5-24 16:44:44

{:face (370):}请结贴！

haijie1223 发表于 2012-5-24 17:12:28

这个问题让吹水哥来看下，不知道是不是乌龟！

3mile 发表于 2012-5-24 17:25:06

回复 6# haijie1223
又整黑话?
乌龟是啥意思?求科普

haijie1223 发表于 2012-5-24 17:26:56

回复 7# 3mile

呵呵乌龟=马甲，是不是吹水哥的马甲啊。

zldfsz 发表于 2012-5-24 18:20:38

回复 8# haijie1223
吹水哥养有乌龟吗

邪恶海盗 发表于 2012-5-24 21:09:52

回复haijie1223
吹水哥养有乌龟吗
zldfsz 发表于 2012-5-24 18:20 http://www.autoitx.com/images/common/back.gif

嗯,这个可以有...

xms77 发表于 2012-5-24 22:34:30

回复 1# 放羊的狼
说说我的做法
1. 共享文件夹中的一个ini文件记录了客户端软件版本的最新版本号
2. 客户端映射共享文件夹，检测版本号
3. 如果有新版本，下载新版本的客户端（我是用的FTP下载）
4. 删除客户端的自身程序，更名下载的更新软件。
具体可以参考的我的代码
#include <file.au3>
#include <array.au3>
#include <FTPEx.au3>

HotKeySet("^!q","_Myexit")       ;设置ctrl+Alt+q热键，退出程序
Opt("TrayIconHide", 0)
Opt("TrayMenuMode",1)
;Opt("TrayIconDebug",1)

;=== To avoid multi-software running ===========================================================
$1 = ProcessExists("Swage Client.exe")
$list = ProcessList("Swage Client.exe")
For $i = 1 To $list
   If $list[$i] <> $1 Then Exit
Next
;===============================================================================================
If FileExists(@ScriptDir&'\updated.exe') Then FileDelete(@ScriptDir&'\updated.exe')
If FileExists(@ScriptDir&'\rst.bat') Then FileDelete(@ScriptDir&'\rst.bat')
If Not FileExists(@ScriptDir&'\WrongVersionAlarm.jpg') Then
FileInstall('D:\autoit3\my program\Swage\Swage Pin Count Monitor\WrongVersionAlarm.jpg',@ScriptDir&'\WrongVersionAlarm.jpg',1)
EndIf
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","Swage Client.exe", "REG_SZ", @ScriptDir&"\Swage Client.exe")
Local $Timer1 = TimerInit(), $Timer1_diff ,$Timer2 = TimerInit(), $Timer2_diff ;初始化定时器
Global $PinCount = _GetPinCount()
Global $Socket_received,$Socket_send, $AddressArray_1 = "", $AddressArray_2 = ""
Global $MC_IP = @IPAddress1       ; 本机IP地址
If $MC_IP == "127.0.0.1" Then
   $wbemFlagReturnImmediately = 0x10
   $wbemFlagForwardOnly = 0x20
   $strComputer = "."
   $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
   $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
   $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
   $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
   For $objItem In $colItems
   $MC_IP = $objItem.IPAddress(0)
   Next
EndIf
Local $mac = _API_Get_NetworkAdapterMAC ($MC_IP)
Global $Swage_version = FileGetVersion("c:\swage\swage.exe")
Global $MC_info
_GetMCInfo()
Local $All_info = @ComputerName & '|' & $mac & '|' & $MC_IP & '|' & $Swage_version
Local $FTP_Server, $user, $Password,$FilePath, $Swage_version_base,$delayTime
If_MappingNetWorkDriver() = 1 Then
If $MC_info <> "" Then IniWrite("x:\xms\Swage_Info.txt","M/C_Info",$MC_info,$All_info);记录机器信息到ocr001\xms\Swage_info.txt
$Swage_version_base = IniRead("x:\xms\config.txt","MC_Software_Rev","Swage","unknow")
$FTP_Server = IniRead("x:\xms\config.txt","Swage_FTP","SERVER","unknow")
$user = IniRead("x:\xms\config.txt","Swage_FTP","USERNAME","unknow")
$Password = IniRead("x:\xms\config.txt","Swage_FTP","PASSWORD","unknow")
$FilePath = IniRead("x:\xms\config.txt","Swage_FTP","FILE_PATH","unknow")
_DisconnectDriver()
EndIf
Global $Latest_version, $script_Version = FileGetVersion(@ScriptFullPath)

UDPStartup()
; 注册清理函数.
OnAutoItExitRegister("_Cleanup")
$Socket_received = UDPBind($MC_IP,65530) ;绑定本机的65530端口作为接受端口
$AddressArray_1 = _GetServerAddressArray()    ;得到服务器端得IP地址列表
_SendMsg2Server()
While 1
$Timer1_diff = TimerDiff($Timer1)
If $Timer1_diff > 60000 Then
$AddressArray_2 = _GetServerAddressArray();得到服务器客户端IP地址列表和版本信息
If @error Then
$AddressArray_2 = ""
Else
If Not IsArray($AddressArray_1) Then
$AddressArray_1 = $AddressArray_2
_SendMsg2Server()
Else
If $AddressArray_2 <> $AddressArray_1 Then
$AddressArray_1 = $AddressArray_2
_SendMsg2Server()
Else
For $i = 1 To $AddressArray_2
If $AddressArray_1[$i] <> $AddressArray_2[$i] Then ;如果2个数组内容不同
$AddressArray_1 = $AddressArray_2
_SendMsg2Server()
ExitLoop
EndIf
Next
$AddressArray_1 = $AddressArray_2
EndIf
EndIf
If $Latest_version <> "unknow" Then
$Return = _CompareVersion($script_Version,$Latest_Version)
   If $Return = 1 Then
   ;MsgBox(0,"update","have a new revision")
   $ret = _DownloadFileFromFTP($FTP_Server,$user,$Password,$FilePath,@ScriptName)
   If Not @error Then
   $ret = _UpdateSelf(@ScriptDir&'\updated.exe', @ScriptFullPath) ;自动更新软件
   If $ret = 1 Then
   _DisconnectDriver()
   Exit
   EndIf
   EndIf
   EndIf
   EndIf

EndIf
_ReduceMemory(@AutoItPID)
$Timer1 = TimerInit()
_AlarmForWrongVersion()
EndIf
$Timer2_diff = TimerDiff($Timer2)
If $Timer2_diff > 10*60*1000 Then
_SendMsg2Server()
$delayTime = Random(1000,180000,1)
Sleep($delayTime)
_PinCountByMonth($PinCount)
$Timer2 = TimerInit()
;_ReduceMemory(@AutoItPID)
EndIf

$rData = UDPRecv($Socket_received,200) ;接受服务器信息
If $rdata <> "" Then
$SplitData = StringSplit($rdata,"|",1)
If Not @error Then
Switch $SplitData
Case "update"
$FTP_Server1 = $SplitData
$File_Path1 = $SplitData
$user1 = $SplitData
$Password1 = $SplitData
$ret = _DownloadFileFromFTP($FTP_Server1,$user1,$Password1,$file_Path1,@ScriptName) ;下载更新软件到工作目录下temp里
If Not @error Then
$ret = _UpdateSelf(@ScriptDir&'\updated.exe', @ScriptFullPath) ;自动更新软件
If $ret = 1 Then Exit
EndIf

EndSwitch
EndIf
EndIf
;_ReduceMemory(@AutoItPID)
Sleep(100)
WEnd

;===========================================================
Func _Myexit()
Exit
EndFunc ; ==> _Myexit

;==得到swage pin的计数，如果成功，返回计数，如果失败，设置error 并返回-1===============================
Func _GetPinCount()
Local $temp1,$temp2,$Count,$openedFile
$openedFile = FileOpen("c:\Swage\PIN.CNT",0)
If $openedFile = -1 Then
Return SetError(-1,-1,-1)
Else
$temp1 = FileRead($openedFile)
If $temp1 <> "" Then
$temp2 = StringRegExp($temp1,'\d+',1)
If Not @error Then
$Count = $temp2
Return $Count
EndIf
EndIf
EndIf
EndFunc;==>_GetPinCount

;==获得包含机器ID和Cell ID的数组，成功返回 1，失败返回-1==================================
;==失败，$MC_info数组全为空值=============================================================
Func _GetMCInfo()
Local $fhwnd = FileOpen("c:\swage\swage.ini",0)
If $fhwnd = -1 Then
$MC_info = ""
$MC_info = ""
Return SetError(-1,-1,-1)
EndIf
Local $text = FileRead($fhwnd)
If Not @error Then
FileClose($fhwnd)
$temp = StringRegExp($text, 'MC_NUM=(\w+)',1 )
If Not @error Then
$MC_info= $temp
$MC_info = StringStripWS($MC_info,8)
$MC_info = StringUpper($MC_info)
Else
$MC_info = ""
Return SetError(-1,-1,-1)
EndIf
$temp = StringRegExp($text, 'CELL_NUM=(\w+)',1 )
If Not @error Then
$MC_info= $temp
$MC_info = StringStripWS($MC_info,8)
$MC_info = StringUpper($MC_info)
Else
$MC_info = ""
Return SetError(-1,-1,-1)
EndIf
Return 1
Else
$MC_info = ""
$MC_info = ""
Return SetError(-1,-1,-1)
EndIf
;If $iMachine_ID <> "unknow" Then
#CS If $iMachine_ID <> @ComputerName Then
   MsgBox(48,"Warning","PC Name and Machine Name are mismatch," & @CRLF & "Please Call ME to check.")
   Sleep(10000)
   While 1
   $iMachine_ID = IniRead("c:\swage\temp.ini","config","MC_NUM","unknow")
   If $iMachine_ID <> @ComputerName Then
   MsgBox(48,"Warning","PC Name and Machine Name are mismatch," & @CRLF & "Please Call ME to check.")
   Else
   ExitLoop
   EndIf
   Sleep(10000)
   wend
   EndIf
#CE

;Else
;SetError(-1,-1,)
EndFunc;==>_MCidMatchPCName

;=============================================
Func _MappingNetWorkDriver()
Local $var = DriveGetDrive("Network") ;check if have network driver connected
If @error Then
$Map_Result = DriveMapAdd("X:","\\10.38.200.247\ocr001",0,"ocr001","")
Else
For $i = 1 To UBound($var)-1
If $Var[$i] = "X:" Then DriveMapDel($var[$i])
Next
$Map_Result = DriveMapAdd("X:","\\10.38.200.247\ocr001")
EndIf
If $Map_Result = 0 Then
;MsgBox(0,"Error","不能map ocr001网络盘。")
Return 0
Else
Return 1
endif
EndFunc;==> _MappingNetWorkDriver

;===========================================================
Func _DisconnectDriver()
DriveMapDel("X:")
EndFunc;==> _DisconnectDriver

Func _GetServerAddressArray()
Local $result = _MappingNetWorkDriver(),$Section
If $result = 0 Then
Return SetError(-1,-1,-1)
Else
$Latest_version = IniRead("x:\xms\config.txt","SOFT_VER","SWAGE_CLIENT","unknow")
Local $Section = IniReadSection("x:\xms\config.txt","Swage_Server")
If @error Then
_DisconnectDriver()
Return SetError(-1,-1,-1)
EndIf
_DisconnectDriver()
Return $Section
EndIf
EndFunc;==>_GetServerAddressArray

;===断开UDP连接，释放端口 ===============================================================
Func _Cleanup()
UDPCloseSocket($Socket_received)
UDPShutdown()
EndFunc ;==>Cleanup

;=== Get the latest version software from FTP server ================
Func _DownloadFileFromFTP($iIP,$iUsername,$iPassword,$iFilePath,$iFilename)
Local $Open = _FTP_Open('MyFTP Control')
Local $Conn = _FTP_Connect($Open, $iIP, $iUsername, $iPassword, 0, "21")

If $conn Then
   $File_Get = _FTP_FileGet($Conn,$iFilePath & "\" & $iFilename,@ScriptDir&"\updated.exe")
   If Not @error Then
Return 1 ;下载成功
Else
Return SetError(-1, -1, 0) ;下载失败
EndIf
_FTP_Close($Conn)
Else
Return SetError(-1, -1, -1) ;FTP连接失败,返回值为-1，并设置Error为-1
EndIf

EndFunc; ==> _DownloadFileFromFTP

;===============================================================================
; 说明: 退出后更新脚本自身
; 语法: _UpdateSelf($sFile[, $iDelay = 1[, $iResume = 0[, $sParm = ""]]])
; 参数: $sFile - 源更新文件
;       $iDelay - [可选] 监视退出的间隔时间, 单位为秒
;       $iResume - [可选] 更新后重新运行。0 - 不运行, 非0 - 重新运行
;       $sParm - [可选] 重新运行命令行参数
; 需要: 无
; 返回: 成功 - 1
;       失败 - 0, 并设置 @error 到 1
; 备注: 无
;===============================================================================
#CS Func _UpdateSelf($sFile, $iDelay = 1, $iResume = 0, $sParm = "")
   Local $CmdFile, $CmdCont
   If NOT FileExists($sFile) Then Return SetError(1, 0, 0)
   $iDelay = Int($iDelay)
   If $iDelay < 1 Then $iDelay = 1

   $CmdCont = 'attrib -r -s -h "' & @ScriptFullPath & '"' & @CRLF _
            & ':loop' & @CRLF _
            & 'ping -n ' & $iDelay + 1 & ' 127.0.0.1 > nul' & @CRLF _
            & 'del "' & @ScriptFullPath & '"' & @CRLF _
            & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
            & 'move /y "' & $sFile & '" "' & @ScriptFullPath & '"' & @CRLF
   If $iResume Then
            If $sParm = "" Then
                     $CmdCont &= '"' & @ScriptFullPath & '"' & @CRLF
            Else
                     $CmdCont &= '"' & @ScriptFullPath & '" ' & $sParm & @CRLF
            EndIf
   EndIf
   $CmdCont &= 'del %0' & @CRLF

   $CmdFile = _TempFile(@TempDir, "~UPD", ".bat", 4)
   FileWrite($CmdFile, $CmdCont)
   Run($CmdFile, @TempDir, @SW_HIDE)

   Return 1
EndFunc ;==>_UpdateSelf
#CE

;==整理内存==============================================================================
Func _ReduceMemory($i_PID = -1)
If $i_PID <> -1 Then
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle)
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle)
Else
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
EndIf
Return $ai_Return
EndFunc ;==>_ReduceMemory

Func _SendMsg2Server()
$PinCount = _GetPinCount()
If IsArray($AddressArray_1) Then
For $i = 1 To $AddressArray_1
If StringRegExp($AddressArray_1[$i],'10\.\d{2}\.\d{1,3}\.\d{1,3}',0) Then
$Socket_send = UDPOpen($AddressArray_1[$i],65529)
If Not @error Then
UDPSend($Socket_send,$MC_info & "|" & $MC_IP & "|" & $PinCount & "|" & $Swage_Version & "|" & $script_Version & "|" & $MC_info)
UDPCloseSocket($Socket_send)
EndIf
EndIf
Next
EndIf
EndFunc;==>_SendMsg2Server

;===============================================================================
; 说明: 退出后更新脚本自身
Func _UpdateSelf($newfile,$oldfile) ;$newfile欲更新的文件,含路径
   If FileExists($newfile) Then
            FileDelete(@TempDir & '\rst.bat')
            FileWrite(@TempDir & '\rst.bat','attrib -r -s -h "' & @ScriptFullPath & '"' & @CRLF _
& 'ping 127.0.0.1 >nul' & @CRLF _
                              & 'copy /y ' & FileGetShortName($newfile)&' ' & FileGetShortName($oldfile) & @CRLF _
                              & FileGetShortName($oldfile) & @CRLF _
& 'echo by pcbar')
            If Run(@TempDir & '\rst.bat', "", @SW_HIDE) = 0 Then
Return SetError(-1,-1,-1)
Else
Return 1
EndIf
   EndIf
EndFunc

;==获取网卡物理地址==========================================================
Func _API_Get_NetworkAdapterMAC($sIP)
   Local $iMAC, $MACSize
   Local $i, $s, $r, $iIP

   $iMAC = DllStructCreate("byte")
   $MACSize = DllStructCreate("int")

   DllStructSetData($MACSize, 1, 6)
   $r = DllCall("Ws2_32.dll", "int", "inet_addr", "str", $sIP)
   $iIP = $r
   $r = DllCall("iphlpapi.dll", "int", "SendARP", "int", $iIP, "int", 0, "ptr", DllStructGetPtr($iMAC), "ptr", DllStructGetPtr($MACSize))
   $s = ""
   For $i = 0 To 5
            If $i Then $s = $s & "-"
            $s = $s & Hex(DllStructGetData($iMAC, 1, $i + 1), 2)
   Next
   Return $s
EndFunc ;==>_API_Get_NetworkAdapterMAC

;==软件版本比较和报警功能 ======================================================
Func _AlarmForWrongVersion()
$Swage_version = FileGetVersion("c:\swage\swage.exe")
If $Swage_version <> "unknow" And $Swage_version_base <> "unknow" And $Swage_version <> "0.0.0.0" Then
If $Swage_version <> $Swage_version_base Then
SplashImageOn("Wrong Swage Version Alarm",@ScriptDir&'\WrongVersionAlarm.jpg',-1,-1,-1,-1,16)
Sleep(60*1000)
SplashOff()
EndIf
EndIf
EndFunc;==>_AlarmForWrongVersion

Func _CompareVersion($iCurrent_Version, $Base_Version) ;输入参数为2个版本号，前一个是当前版本号，后一个是基准版本号
Local $array_1, $array_2,$count_equal = 0
If StringRegExp($iCurrent_Version,'\b\d+\.\d+\.\d+\.\d+\b',0) And _ ;检查输入的2个版本号是否满足规则
   StringRegExp($Base_Version,'\b\d+\.\d+\.\d+\.\d+\b',0) Then
   $array_1 = StringSplit($iCurrent_Version,'.')
   $array_2 = StringSplit($Base_Version,'.')
For $i = 1 To $array_1
If Number($array_1[$i]) < Number($array_2[$i]) Then
Return 1    ; 返回1，说明当前版本号低于基准的版本号
ElseIf Number($array_1[$i]) = Number($array_2[$i]) Then
$count_equal += 1
Else
Return -1 ; 返回-1，说明当前版本号高于基准的版本号
EndIf
Next
If $count_equal = 4 Then Return 0 ;返回0，说明当前版本号等于于基准的版本号
Else
   Return SetError(-1,-1,-2) ; 返回-2,并设置@error = -1，版本号格式错误
EndIf
EndFunc;==>_CompareVersion

Func _PinCountByMonth($iPinCount)
Local $PinCountRecord, $pinCountTotal,$iSection = @YEAR & "-" & @MON,$round,$count_extra ,$last_PinCount
If_MappingNetWorkDriver() = 1 Then
If @MDAY = "01" And @HOUR = "00" And @MIN < 15 Then
$count_extra = $iPinCount ;新的一个月开始,得到上个月的多余的补数
IniWrite("x:\xms\Swage_Pin_Count_by_Month.txt", "Count_Extra", $MC_info,$count_extra)
EndIf
$last_PinCount = IniRead("x:\xms\Swage_Pin_Count_by_Month.txt", "Last_PinCount", $MC_info,"unknow")
If $last_PinCount = "unknow" Then IniWrite("x:\xms\Swage_Pin_Count_by_Month.txt", "Last_PinCount", $MC_info,0)
$count_extra = IniRead("x:\xms\Swage_Pin_Count_by_Month.txt", "Count_Extra", $MC_info,"unknow")
If $count_extra = "unknow" Then IniWrite("x:\xms\Swage_Pin_Count_by_Month.txt", "Count_Extra", $MC_info,0)
$PinCountRecord = IniRead("x:\xms\Swage_Pin_Count_by_Month.txt", $iSection, $MC_info,"unknow")
If $pinCountTotal = "unknow" Then IniWrite("x:\xms\Swage_Pin_Count_by_Month.txt", $iSection, $MC_info,0)
If $last_PinCount = $iPinCount Then ;如果pin计数前后两个相同
_DisconnectDriver()
Return ;不改变任何数据
EndIf
If Number($last_PinCount) > Number($iPinCount) Then
$last_PinCount = $iPinCount
$iPinCount += 50000
$pinCountTotal = Int(($PinCountRecord + $count_extra)/50000)*50000+$iPinCount-$count_extra
IniWrite("x:\xms\Swage_Pin_Count_by_Month.txt", $iSection, $MC_info,$pinCountTotal)
IniWrite("x:\xms\Swage_Pin_Count_by_Month.txt", "Last_PinCount", $MC_info,$last_PinCount)
Else
$last_PinCount = $iPinCount
$pinCountTotal = Int(($PinCountRecord + $count_extra)/50000)*50000+$iPinCount-$count_extra
IniWrite("x:\xms\Swage_Pin_Count_by_Month.txt", $iSection, $MC_info,$pinCountTotal)
IniWrite("x:\xms\Swage_Pin_Count_by_Month.txt", "Last_PinCount", $MC_info,$last_PinCount)
EndIf
_DisconnectDriver()
EndIf
EndFunc;==>_PinCountByMonth

liuxuchun1985 发表于 2012-5-24 23:22:26

我只是小菜鸟，不过我想如果写出的程序有这个功能，以后更改的时候，不是很好，不过，偶是不知道怎么弄啦？？

netegg 发表于 2012-5-26 16:29:53

本帖最后由 netegg 于 2012-5-26 16:33 编辑

回复 11# xms77
先不说你这段代码是否真可以(实在太长)，有个问题，运行中的文件和新下载的文件本身到底一样不一样.如果一样，那么如果我没理解错，lz的意思大概是直接更新关键代码段，不是整个文件，用什么方式来更新占用中的文件，另一种情况如果是更新整个文件的话，直接从服务器获取版本号(最后修改日期)下载就行了，代码何必这么长.
第四步完全没必要，直接做个临时批处理就能干了

xms77 发表于 2012-5-26 16:49:28

回复 13# netegg
蛋哥，这个我的一个客户端代码，运行没有问题，代码里面有自动更新程序的功能，因为懒，所以没有删除其他的东西。但是自动更新程序本身的代码也是借鉴以下的帖子，用了批处理来做的。
http://www.autoitx.com/forum.php?mod=viewthread&tid=6427&highlight=%B8%FC%D0%C2%2B%B3%CC%D0%F2

haijie1223 发表于 2012-5-26 19:35:19

说说我的思路:
内嵌一个update.exe，如果检测到新版本，那么释放这个update.exe文件到缓存并运行这个exe，主程序退出。
update.exe功能:
1、下载最新版本到缓存目录
2、下载完成后复制到主程序目录覆盖
3、删除缓存文件。

页: [1] 2

AUTOIT CN's Archiver

用au3写的程序怎么更新