Wiiflow Mod Installer v1.5.3

Code : Tout sélectionner

fileTypes=.smc|.fig|.sfc|.swc|.zip|.7z

Code : Tout sélectionner

	FileDelete(@TempDir & "\USBWiiflowupdate.xml")
	Local $hDownload = InetGet("https://code.google.com/p/open-wiiflow-mod/downloads/list", @TempDir & "\USBWiiflowupdate.xml", 1, 1) ;Download Header
	Do
		Sleep(250)
	Until InetGetInfo($hDownload, 2)
	InetClose($hDownload)

	$GetCurrentUSBWiiflowURL = FileRead(@TempDir & "\USBWiiflowupdate.xml")
	FileClose($GetCurrentUSBWiiflowURL)
	FileDelete(@TempDir & "\USBWiiflowupdate.xml") ;Clean

	$StringCurrentUSBWiiflowVersion = _splitInfo($GetCurrentUSBWiiflowURL, 'open\-wiiflow\-mod\.googlecode\.com\/files\/Wiiflow\_Mod([^*]*?)\.zip', 1)
	$StringCurrentUSBWiiflowPlugin = _splitInfo($GetCurrentUSBWiiflowURL, 'open\-wiiflow\-mod\.googlecode\.com\/files\/Wiiflow\_Plugins([^*]*?)\"', 1)

	$UpdateUSBWiiflowURL = "https://open-wiiflow-mod.googlecode.com/files/Wiiflow_Mod" & $StringCurrentUSBWiiflowVersion & ".zip"
	
;================================================>Get Plugins name
	$UpdateUSBWiiflowPluginURL = "https://open-wiiflow-mod.googlecode.com/files/Wiiflow_Plugins" & $StringCurrentUSBWiiflowPlugin
; <===============================================

	FileDelete(@TempDir & "\SHA1ChecksumURL")
	Local $hDownload = InetGet("https://code.google.com/p/open-wiiflow-mod/downloads/detail?name=" & StringRegExpReplace($UpdateUSBWiiflowURL, "^.*/(.*)$", "$1"), @TempDir & "\SHA1ChecksumURL", 1, 1)
	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, "\> ([^*]*?) \<", 1)
	$UpdateUSBWiiflowRelease = StringRegExpReplace($StringCurrentUSBWiiflowVersion, "_|svn", "")

;================================================>Get Plugins Infos
	FileDelete(@TempDir & "\SHA1ChecksumURL")
	Local $hDownload = InetGet("https://code.google.com/p/open-wiiflow-mod/downloads/detail?name=" & StringRegExpReplace($UpdateUSBWiiflowPluginURL, "^.*/(.*)$", "$1"), @TempDir & "\SHA1ChecksumURL", 1, 1)
	Do
		Sleep(250)
	Until InetGetInfo($hDownload, 2)
	InetClose($hDownload)

	$GetPluginSHA1ChecksumURL = FileRead(@TempDir & "\SHA1ChecksumURL")

	FileClose($GetPluginSHA1ChecksumURL)
	FileDelete(@TempDir & "\SHA1ChecksumURL") ;Clean
	$StringPluginSHA1ChecksumURL = _splitInfo($GetPluginSHA1ChecksumURL, "SHA1 Checksum\: ([^*]*?)What\'s this\?", 1)
	$StringPluginSHA1Checksum = _splitInfo($StringPluginSHA1ChecksumURL, "\> ([^*]*?) \<", 1)
; <===============================================
	ConsoleWrite(@LF & _
			"- Release : " & $UpdateUSBWiiflowRelease & @LF & _
			"- URL : " & $UpdateUSBWiiflowURL & @LF & _
			"- USBWiiflow SHA1 Checksum : " & $StringSHA1Checksum & @LF & _
			"- Plugin URL : " & $UpdateUSBWiiflowPluginURL & @LF & _
			"- Plugin SHA1 Checksum : " & $StringPluginSHA1Checksum & @LF)
	
	
	
	
	
	
;================================================Download Plugins
	Do
		$aInfo = InetGetInfo($DownloadCurrentUSBWiiflowPlugin)
		$iPercent = StringFormat("%.2f", Round($aInfo[0] / $DownloadCurrentUSBWiiflowSizePlugin * 100, 2))
		GUICtrlSetData($CurrentUSBWiiflowState, "Download : Wiiflow Mod " & $UpdateUSBWiiflowRelease & " Plugins         |         Size: " & _FormatFileSize($aInfo[1]) & "         |         Downloaded: " & _
				_FormatFileSize($aInfo[0]) & " / " & _FormatFileSize($aInfo[1]) & "         |         Percent: " & $iPercent & "% ")
		If $CurrentUSBWiiflow_ListN > -1 Then
			_GUICtrlListView_SetItemText($HomebrewListView, $CurrentUSBWiiflow_ListN, $iPercent & "%", 4)
			GUICtrlSetData($HomebrewListViewTransfered, _FormatFileSize(GUICtrlRead($HomebrewListViewTransferedUnformated) + $aInfo[0]))
		EndIf
		Sleep(250)
	Until $aInfo[2]
	InetClose($DownloadCurrentUSBWiiflowPlugin)
	If $CurrentUSBWiiflow_ListN > -1 Then GUICtrlSetData($HomebrewListViewTransferedUnformated, GUICtrlRead($HomebrewListViewTransferedUnformated) + FileGetSize($SaveCurrentUSBWiiflow & "\" & StringRegExpReplace($UpdateUSBWiiflowPluginURL, "^.*/(.*)$", "$1")))
	GUICtrlSetData($CurrentUSBWiiflowState, "Successfully Downloaded         |         SHA1 Checksum: " & $StringPluginSHA1Checksum)

	Local $sReadSHA1 = $SaveCurrentUSBWiiflow & "\" & StringRegExpReplace($UpdateUSBWiiflowPluginURL, "^.*/(.*)$", "$1")
	If StringStripWS($sReadSHA1, 8) <> "" And FileExists($sReadSHA1) Then
		Local $bHash = _Crypt_HashFile($sReadSHA1, $CALG_SHA1)
		ConsoleWrite("- Found plugins SHA1 Checksum: " & $bHash & @CRLF & "- Inter plugins SHA1 Checksum: 0x" & $StringPluginSHA1Checksum)

		If $bHash = "0x" & $StringPluginSHA1Checksum Then
			$ReturnCurrentUSBWiiflowURL = "Wiiflow Mod " & $UpdateUSBWiiflowRelease & " Plugins Successfully Downloaded and verified         |         SHA1 Checksum: " & $StringPluginSHA1Checksum & "         |         " & _
					StringFormat("%.2f", Round(_Timer_Diff($startGeneratetime) / 1000, 2)) & " Seconds"
			GUICtrlSetData($CurrentUSBWiiflowState, $ReturnCurrentUSBWiiflowURL)

			If StringRight($sReadSHA1, 2) = "ip" Then
				_UnZip_Init("_UnZIP_PrintFunc", "UnZIP_ReplaceFunc", "_UnZIP_PasswordFunc", "_UnZIP_SendAppMsgFunc", "_UnZIP_ServiceFunc")
				_UnZIP_SetOptions()
				_UnZIP_Unzip($sReadSHA1, $SaveCurrentUSBWiiflow & "\Wiiflow\plugins\")
			ElseIf StringRight($sReadSHA1, 2) = "7z" Then
				_7ZIPExtract(0, $sReadSHA1, $SaveCurrentUSBWiiflow & "\Wiiflow\plugins\", 1, 0)
			EndIf

			If @error Then
				GUICtrlSetState($MainTab, $GUI_DISABLE)
				$ReturnCurrentUSBWiiflowURL = "Error! (Wiiflow Mod " & $UpdateUSBWiiflowRelease & " Plugins) Archive unpacking error!"
				GUICtrlSetData($CurrentUSBWiiflowState, $ReturnCurrentUSBWiiflowURL)
				MsgBox(16, "Error! (Wiiflow Mod " & $UpdateUSBWiiflowRelease & " Plugins)", "Archive unpacking error!" & @CRLF & $sReadSHA1, Default, $Gui)
				GUICtrlSetState($MainTab, $GUI_ENABLE)
			Else
				$ReturnCurrentUSBWiiflowURL = "Wiiflow Mod " & $UpdateUSBWiiflowRelease & " Plugins Successfully Downloaded and verified         |         SHA1 Checksum: " & $StringPluginSHA1Checksum & "         |         " & _
						StringFormat("%.2f", Round(_Timer_Diff($startGeneratetime) / 1000, 2)) & " Seconds"
				GUICtrlSetData($CurrentUSBWiiflowState, $ReturnCurrentUSBWiiflowURL)
				FileDelete($sReadSHA1)
			EndIf

		Else
			$ReturnCurrentUSBWiiflowURL = "Wiiflow Mod " & $UpdateUSBWiiflowRelease & " Plugins already exists but it failed SHA1 verification.         |         SHA1 Checksum: " & $StringPluginSHA1Checksum
			GUICtrlSetData($CurrentUSBWiiflowState, $ReturnCurrentUSBWiiflowURL)
		EndIf
	Else
		$ReturnCurrentUSBWiiflowURL = "Download : Wiiflow Mod " & $UpdateUSBWiiflowRelease & " Plugins Failed !         |         SHA1 Checksum: " & $StringSHA1Checksum
		GUICtrlSetData($CurrentUSBWiiflowState, $ReturnCurrentUSBWiiflowURL)
	EndIf
; <===============================================

Code : Tout sélectionner

coverFolder=snes9xgx