Re: Wiiflow Mod Installer v1.3.8 Fr
Posté: Dim 3 Juin 2012 09:22
Vivement le tuto ... Trop fort Ayatus
Site officiel français de WiiFlow et ses thèmes
https://tgames.fr/
https://tgames.fr/logicielswii/wiiflow-mod-installer-v1-5-3-t11138-25.html
flowlapache a écrit:Vraiment excellent! un pur coup de pouce pour l'utilisation des émulateurs!beaucoup plus agréables!!et dire que ce n'est qu'un bout du super app de spayrosam!!whaou!!j'espère qu'on pourra bientôt y gouter!
fileTypes=.smc|.fig|.sfc|.swc|.zip|.7z
Ayatus a écrit:Un tuto est en cours de réalisation.
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
; <===============================================
coverFolder=snes9xgx