#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\Pictures\Icons\cistm\icons\network.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;#include <InetConstants.au3>
;#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
Global $IpfilterURL = "http://upd.emule-security.org/ipfilter.zip"
Global $IpfilterSize = InetGetSize($IpfilterURL)
Global $CheckFileSizeOld = FileGetSize("ipfilter.bak.zip")
Global $sFilePath = @ScriptDir & "\ipfilter.zip"
Global $sFilePathOld = @ScriptDir & "\ipfilter.bak.zip"
Global $sFilePathIpfilter = "D:\Downloads\torrent"
if $CheckFileSizeOld == 0 Then ;백업파일이 없는 경우 :다운
IpFilterDownload()
install()
Elseif not($CheckFileSizeOld == $IpfilterSize) Then ;백업파일이 최신 파일과 같지 않은 경우 : 다운
FileDelete($sFilePathOld) ;백업파일 삭제
IpFilterDownload()
install()
ElseIf $CheckFileSizeOld == $IpfilterSize Then ;백업파일이 최신파일과 같은 경우
MsgBox(0,"확인 ", "새로운 아이피 필터 파일이 없습니다.")
EndIf
Func IpFilterDownload()
Local $FileDownloading = InetGet($IpfilterURL, $sFilePath,1,1)
ProgressOn("아이피 필터","아이피 필터 다운 중...","0% ")
For $i = 1 To $IpfilterSize Step 1
$FileDownloadingInfo = InetGetInfo($FileDownloading)
$FilePercentDownloaded = Round($FileDownloadingInfo[0] * 100 / $IpfilterSize, 0)
ProgressSet($FilePercentDownloaded, $FilePercentDownloaded & " % 다운 중...")
Sleep(100)
If InetGetInfo($FileDownloading, 2) Then ;다운로드 완료시까지 대기
InetClose($FileDownloading)
ExitLoop
Else
ContinueLoop
EndIf
Next
ProgressSet(100, "100%", "다운로드 완료")
Sleep(200)
ProgressOff()
EndFunc
Func install()
RunWait(@ScriptDir & "\unzip.exe -o ipfilter.zip",@ScriptDir, @SW_HIDE)
FileMove($sFilePath,$sFilePathOld,$FC_OVERWRITE )
FileMove( @ScriptDir & "\guarding.p2p" , $sFilePathIpfilter & "\ipfilter.dat",$FC_OVERWRITE + $FC_CREATEPATH )
MsgBox(0,"완료","받은 파일 " & @ScriptDir & "\guarding.p2p" & @CRLF & @CRLF & "설치 경로 : " & $sFilePathIpfilter & "\ipfilter.dat" &@CRLF )
EndFunc
댓글