论坛 › 『 脚本交易 』 › 100RMB 求 论坛里的 通用Http更新生成管理器 源码

hs119 发表于 2010-5-11 03:57:01

100RMB 求 论坛里的 通用Http更新生成管理器 源码

foboy 发表于 2010-5-11 09:43:05

这是干什么用的？

kylinpoet 发表于 2010-5-12 13:46:37

密我吧。。

hs119 发表于 2010-5-12 20:27:40

做多文件更新用，，，
有办法没，，，

hs119 发表于 2010-5-12 20:28:02

做多文件更新用，，，
有办法没，，，

hs119 发表于 2010-5-12 20:28:17

做多文件更新用，，，
有办法没，，，

qingting 发表于 2010-5-12 21:32:05

这个程序并不好用，我重写了一个，可以静默的下载最新的软件包，直接停止原有进程，删除原有程序，并且提供了停止本程序，并升级程序的接口。有兴趣qq联系。
qq：33622733

298311657 发表于 2010-5-14 05:01:21

本帖最后由 298311657 于 2010-5-14 05:03 编辑

刚好以前弄过这样的代码，稍微整理了一下，发给你吧~~;~ 文件CRC32校验判断更新
;~ By Crossdoor
Dim $FlieSize = 0;记录检测到的所有文件的总大小，也就是需更新的数据总量
Dim $gxurl="http://www.baidu.com/"
InetGet($gxurl & 'up.ini', @TempDir & "\up.ini", 1)
$gengxin = getcrc32()
If $gengxin <> '' Then gengxin()
Func gengxin();执行更新
        $updataname = StringSplit($gengxin, ',')
        $zdx = MylBytes($UpSize);总计需要更新文件
        $FlieSize_A = StringSplit($FlieSize, ',')
        $gxbegin = TimerInit()
        Local $yxz = 0, $nD = 5, $hDownload[$nD], $down[$nD], $nF = 1
;~         $nD变量为同时进行更新下载的文件数，如果更新文件总数小于$nD，则将单个下载
        For $i = 1 To $updataname Step $nD
                $fdx = 0
                For $j = 0 To $nD - 1
                        If $i + $j <= $updataname Then
                                $fdx += $FlieSize_A[$i + $j]
                                $url = $gxurl & StringReplace($updataname[$i + $j], '\', '/')
                                $saveurl = @ScriptDir & "\TEMP\" & $updataname[$i + $j]
                                $saveurl_tmp = StringMid($saveurl, 1, StringInStr($saveurl, '\', 0, -1))
                                If Not FileExists($saveurl_tmp) Then DirCreate($saveurl_tmp)
                                $hDownload[$j] = InetGet($url, $saveurl, 1, 1)
                                $nF = $i
                        Else
                                $hDownload[$j] = ''
                        EndIf
                Next
                Do
                        For $t = Int(100 / $UpSize) To 100
                                Sleep(300)
                                $dif = TimerDiff($gxbegin)
                                $s = Round($dif / 1000)
                                For $j = 0 To $nD - 1
                                        If $hDownload[$j] <> '' Then
                                                $down[$j] = InetGetInfo($hDownload[$j], 0)
                                        Else
                                                $down[$j] = 0
                                        EndIf
                                Next
                                $s1 = getsize($down) + $yxz;已下载
                                $s3 = Round($s1 / $s);下载速度
                                If $s3 < 0 Then $s3 = 0 & 'k'
                                $stime = Round(($UpSize - $s1) / ($s3));剩余时间
                                If $stime < 0 Then $stime = ""
                                $t = ($s1 / $UpSize) * 100
                                If getsize($down) = $fdx Then ExitLoop
                        Next
                Until getsize($down) = $fdx
                For $j = 0 To $nD - 1
                        If $hDownload[$j] <> '' Then
                                $yxz += InetGetInfo($hDownload[$j], 0)
                                InetClose($hDownload[$j])
                        EndIf
                Next
        Next
        If $nF < $updataname Then
                For $i = $nF To $updataname
                        $fdx = $FlieSize_A[$i]
                        $url = $gxurl & StringReplace($updataname[$i], '\', '/')
                        $saveurl = @ScriptDir & "\TEMP\" & $updataname[$i]
                        $saveurl_tmp = StringMid($saveurl, 1, StringInStr($saveurl, '\', 0, -1))
                        If Not FileExists($saveurl_tmp) Then DirCreate($saveurl_tmp)
                        $shDownload = InetGet($url, $saveurl, 1, 1)
                        Do
                                For $t = Int((InetGetInfo($shDownload, 0) + $yxz) / $UpSize * 100) To 100
                                        Sleep(300)
                                        $dif = TimerDiff($gxbegin)
                                        $s = Round($dif / 1000)
                                        $s1 = InetGetInfo($shDownload, 0) + $yxz
                                        $s3 = Round($s1 / $s)
                                        If $s3 < 0 Then $s3 = 0 & 'k'
                                        $stime = Round(($UpSize - $s1) / ($s3))
                                        If $stime < 0 Then $stime = ""
                                        $t = ($s1 / $UpSize) * 100
                                        GUICtrlSetData($progressbar1, $t)
                                        GUICtrlSetData($gxmsg, '总计更新 ' & $zdx & @LF & '已经下载 ' _
                                                        & MylBytes($s1) & @LF & '下载速度 ' & MylBytes($s3) & '/s' & @LF & '剩余时间 ' & $stime & '秒')
                                        If InetGetInfo($shDownload, 0) = $fdx Then ExitLoop
                                Next
                        Until InetGetInfo($shDownload, 2)
                        $yxz = $yxz + (InetGetInfo($shDownload, 0))
                        InetClose($shDownload)
                Next
        EndIf
        For $i = 1 To $updataname
                If $updataname[$i] = 'play.exe' Then
                        $upme = True
                Else
                        $move = FileMove(@ScriptDir & "\TEMP\" & $updataname[$i], @ScriptDir & "\" & $updataname[$i], 9)
                        If $move <> 1 Then
                                MsgBox(0, '', '更新失败！', 10, $GUI)
                                Exit
                        EndIf
                EndIf
        Next
EndFunc   ;==>gengxin

Func getsize($Array)
        Dim $size = 0
        For $i = 0 To UBound($Array) - 1
                $size += $Array[$i]
        Next
        Return $size
EndFunc

Func getcrc32();校验文件是否需要更新
        Dim $file_crc32
        $file = FileOpen(@TempDir & "\up.ini", 0)
        While 1
                $Line = FileReadLine($file)
                If @error = -1 Then ExitLoop
                $filename = StringSplit($Line, '=')
                If Not @error Then
                        $CheckCrc32 = StringSplit($filename, '|')
                        If Not @error Then
                                $CRC32 = _CRC32ForFile($filename)
                                If $CRC32 <> $CheckCrc32 Then
                                        $file_crc32 &= $filename & ","
                                        $FlieSize &= $CheckCrc32 & ","
                                        $UpSize += $CheckCrc32
                                EndIf
                        EndIf
                EndIf
        WEnd
        FileClose($file)
        $FlieSize = StringTrimRight($FlieSize, 1)
        Return StringTrimRight($file_crc32, 1)
EndFunc

Func MylBytes($lBytes);换算大小
        If $lBytes < 1024 Then
                Return ($lBytes & "b")
        ElseIf $lBytes < 1048576 Then
                Return Round($lBytes / 1024, 2) & "k"
        ElseIf $lBytes < 536870912 Then
                Return Round($lBytes / (1024 ^ 2), 2) & "M"
        Else
                Return Round($lBytes / (1024 ^ 3), 2) & "G"
        EndIf
EndFunc

Func _makeup();生成up.ini
        If FileExists("up.ini") Then FileDelete("up.ini")
        $aFile = myFileListToArray(@ScriptDir, 0, 1)
        If IsArray($aFile) Then
                For $i = 1 To $aFile Step 1
                        $file = StringReplace($aFile[$i], @ScriptDir & '\', "")
                        If $file <> @ScriptName Then
                        IniWrite("up.ini", "crc32", $file, _CRC32ForFile($file) & '|' & FileGetSize($file))
                        EndIf
                Next
        EndIf
EndFunc

Func _CRC32ForFile($sFile);crc32校验
        Local $a_hCall = DllCall("kernel32.dll", "hwnd", "CreateFileW", _
                        "wstr", $sFile, _
                        "dword", 0x80000000, _ ; GENERIC_READ
                        "dword", 1, _ ; FILE_SHARE_READ
                        "ptr", 0, _
                        "dword", 3, _ ; OPEN_EXISTING
                        "dword", 0, _ ; SECURITY_ANONYMOUS
                        "ptr", 0)
        If @error Or $a_hCall = -1 Then
                Return SetError(1, 0, "")
        EndIf
        Local $hFile = $a_hCall
        $a_hCall = DllCall("kernel32.dll", "ptr", "CreateFileMappingW", _
                        "hwnd", $hFile, _
                        "dword", 0, _ ; default security descriptor
                        "dword", 2, _ ; PAGE_READONLY
                        "dword", 0, _
                        "dword", 0, _
                        "ptr", 0)
        If @error Or Not $a_hCall Then
                DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $hFile)
                Return SetError(2, 0, "")
        EndIf
        DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $hFile)
        Local $hFileMappingObject = $a_hCall
        $a_hCall = DllCall("kernel32.dll", "ptr", "MapViewOfFile", _
                        "hwnd", $hFileMappingObject, _
                        "dword", 4, _ ; FILE_MAP_READ
                        "dword", 0, _
                        "dword", 0, _
                        "dword", 0)
        If @error Or Not $a_hCall Then
                DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $hFileMappingObject)
                Return SetError(3, 0, "")
        EndIf
        Local $pFile = $a_hCall
        Local $iBufferSize = FileGetSize($sFile)
        Local $a_iCall = DllCall("ntdll.dll", "dword", "RtlComputeCrc32", _
                        "dword", 0, _
                        "ptr", $pFile, _
                        "int", $iBufferSize)
        If @error Or Not $a_iCall Then
                DllCall("kernel32.dll", "int", "UnmapViewOfFile", "ptr", $pFile)
                DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $hFileMappingObject)
                Return SetError(4, 0, "")
        EndIf
        DllCall("kernel32.dll", "int", "UnmapViewOfFile", "ptr", $pFile)
        DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $hFileMappingObject)
        Local $iCRC32 = $a_iCall
        Return SetError(0, 0, Hex($iCRC32))
EndFunc

Func myFileListToArray($sPath, $rPath = 0, $iFlag = 0, $sPathExclude = 0);遍历目录
        Local $asFileList
        $asFileList = myFileListToArrayTemp($asFileList, $sPath, $rPath, $iFlag, $sPathExclude)
        Return $asFileList
EndFunc

Func myFileListToArrayTemp(ByRef $asFileList, $sPath, $rPath = 0, $iFlag = 0, $sPathExclude = 0)
        Local $hSearch, $sFile
        If Not FileExists($sPath) Then Return SetError(1, 1, "")
        If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
        $hSearch = FileFindFirstFile($sPath & "\*")
        If $hSearch = -1 Then Return SetError(4, 4, "")
        While 1
                $sFile = FileFindNextFile($hSearch)
                If @error Then
                        SetError(0)
                        ExitLoop
                EndIf

                ;yidabu.com提示：已经被排除的路径，就不要搜索子目录了
                If $sPathExclude And StringLen($sPathExclude) > 0 Then $sPathExclude = StringSplit($sPathExclude, ",")
                $bExclude = False
                If IsArray($sPathExclude) Then
                        For $ii = 1 To $sPathExclude Step 1
                                If StringInStr($sPath & "\" & $sFile, $sPathExclude[$ii]) Then
                                        $bExclude = True
                                        ExitLoop
                                EndIf
                        Next
                EndIf
                If $bExclude Then ContinueLoop

                Select
                        Case StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") ;如果遇到目录
                                Select
                                        Case $iFlag = 1 ;求文件时就递归
                                                myFileListToArrayTemp($asFileList, $sPath & "\" & $sFile, $rPath, $iFlag, $sPathExclude)
                                                ContinueLoop ;求文件时跳过目录
                                        Case $iFlag = 2 Or $iFlag = 0 ;求目录时分两种情况
                                                If $rPath Then ;1如果要求对路径进行正则匹配
                                                        If Not StringRegExp($sPath & "\" & $sFile, $rPath, 0) Then ;正则匹配失败就递归
                                                                myFileListToArrayTemp($asFileList, $sPath & "\" & $sFile, $rPath, $iFlag, $sPathExclude)
                                                                ContinueLoop ;正则匹配失败时跳过本目录
                                                        Else ;正则匹配成功就递归，并把本目录加入匹配成功
                                                                myFileListToArrayTemp($asFileList, $sPath & "\" & $sFile, $rPath, $iFlag, $sPathExclude)
                                                        EndIf
                                                Else ;2如果不要求对路径进行正则匹配，递归，并把本目录加入匹配成功，
                                                        myFileListToArrayTemp($asFileList, $sPath & "\" & $sFile, $rPath, $iFlag, $sPathExclude)
                                                EndIf
                                EndSelect

                        Case Not StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") ;如果遇到文件
                                If $iFlag = 2 Then ContinueLoop ;求目录时就跳过
                                ;yidabu.com提示：要求正则匹配路径，且匹配失败时就跳过。遇文件就不要递归调用了。
                                If $rPath And Not StringRegExp($sPath & "\" & $sFile, $rPath, 0) Then ContinueLoop
                EndSelect

                ReDim $asFileList
                $asFileList = $asFileList + 1
                $asFileList = $sPath & "\" & $sFile

        WEnd
        FileClose($hSearch)
        Return $asFileList
EndFunc

lms 发表于 2010-5-17 11:41:15

楼上的很强大，支持一下

hs119 发表于 2010-5-18 01:57:35

我试哈，，先谢谢了，，，

baijiri 发表于 2013-3-18 18:25:54

我也需要这个源代码怎么办？

查看完整版本: 100RMB 求 论坛里的 通用Http更新生成管理器 源码