MsgBox(0, "Current DML Rev", _CurrentDMLRevURL())
Func _CurrentDMLRevURL()
FileDelete(@TempDir & "\SHA1ChecksumURL")
FileDelete(@TempDir & "\CurrentDMLRevURL") ;Clean
Local $hDownload = InetGet("https://code.google.com/p/diosmioslite/downloads/list", @TempDir & "\CurrentDMLRevURL", 1, 1) ;Download Header
Do
Sleep(250)
Until InetGetInfo($hDownload, 2)
InetClose($hDownload)
$GetCurrentDMLRevURL = FileRead(@TempDir & "\CurrentDMLRevURL")
FileClose($GetCurrentDMLRevURL)
FileDelete(@TempDir & "\CurrentDMLRevURL") ;Clean
$StringCurrentDMLRevURL = _splitInfo($GetCurrentDMLRevURL, 'diosmioslite\.googlecode\.com\/files\/d([^*]*?)\.wad', 1) ;Get Current DML wad
$URLCurrentDMLRevURL = "http://diosmioslite.googlecode.com/files/d" & $StringCurrentDMLRevURL & ".wad"
$StringSHA1Checksum = _Get_SHA1Checksum("http://code.google.com/p/diosmioslite/downloads/detail?name=d" & $StringCurrentDMLRevURL & ".wad") ;Get SHA1 Checksum (DML wad)
$StringCurrentDMLAppRevURL = _splitInfo($GetCurrentDMLRevURL, 'diosmioslite\.googlecode\.com\/files\/DML...S([^*]*?)\.rar', 1) ;Get Current DML SNEEK apps =>archiv
$URLCurrentDMLAPPRevURL = "http://diosmioslite.googlecode.com/files/DML S" & $StringCurrentDMLAppRevURL & ".rar"
$StringSHA1ChecksumApp = _Get_SHA1Checksum("http://code.google.com/p/diosmioslite/downloads/detail?name=DML S" & $StringCurrentDMLAppRevURL & ".rar") ;Get SHA1 Checksum (DML SNEEK apps =>archiv)
Return (@CRLF & _
"+ DML d" & $StringCurrentDMLRevURL & " : " & $URLCurrentDMLRevURL & @CRLF & _
"SHA1 Checksum: " & $StringSHA1Checksum & @CRLF & _
"+ DML S" & $StringCurrentDMLAppRevURL & " : " & $URLCurrentDMLAppRevURL & @CRLF & _
"SHA1 Checksum: " & $StringSHA1ChecksumApp & @CRLF)
EndFunc ;==>_CurrentDMLRevURL
Func _Get_SHA1Checksum($_Get_SHA1ChecksumURL)
Local $StringSHA1Checksum = ""
FileDelete(@TempDir & "\SHA1ChecksumURL")
Local $hDownload = InetGet($_Get_SHA1ChecksumURL, @TempDir & "\SHA1ChecksumURL", 1, 1) ;Download Header
Do
Sleep(250)
Until InetGetInfo($hDownload, 2)
InetClose($hDownload)
$GetSHA1ChecksumURL = FileRead(@TempDir & "\SHA1ChecksumURL")
FileClose($GetSHA1ChecksumURL)
FileDelete(@TempDir & "\SHA1ChecksumURL") ;Clean
$StringSHA1ChecksumURL = _splitInfo($GetSHA1ChecksumURL, "SHA1 Checksum\: ([^*]*?)What\'s this\?", 1)
$StringSHA1Checksum = _splitInfo($StringSHA1ChecksumURL, "\> ([^*]*?) \